v 134 ext/binary/binary.c do { char z; if (SWAP_REQUIRED(endian)) CSWAP(v.buf, z, 0, 1); } while (0)
v 139 ext/binary/binary.c CSWAP(v.buf, z, 0, 3); \
v 140 ext/binary/binary.c CSWAP(v.buf, z, 1, 2); \
v 147 ext/binary/binary.c CSWAP(v.buf, z, 0, 7); \
v 148 ext/binary/binary.c CSWAP(v.buf, z, 1, 6); \
v 149 ext/binary/binary.c CSWAP(v.buf, z, 2, 5); \
v 150 ext/binary/binary.c CSWAP(v.buf, z, 3, 4); \
v 161 ext/binary/binary.c CSWAP(v.buf, z, 0, 3); \
v 162 ext/binary/binary.c CSWAP(v.buf, z, 1, 2); \
v 163 ext/binary/binary.c CSWAP(v.buf, z, 4, 7); \
v 164 ext/binary/binary.c CSWAP(v.buf, z, 5, 6); \
v 166 ext/binary/binary.c CSWAP(v.buf, z, 0, 4); \
v 167 ext/binary/binary.c CSWAP(v.buf, z, 1, 5); \
v 168 ext/binary/binary.c CSWAP(v.buf, z, 2, 6); \
v 169 ext/binary/binary.c CSWAP(v.buf, z, 3, 7); \
v 176 ext/binary/binary.c CSWAP(v.buf, z, 0, 7); \
v 177 ext/binary/binary.c CSWAP(v.buf, z, 1, 6); \
v 178 ext/binary/binary.c CSWAP(v.buf, z, 2, 5); \
v 179 ext/binary/binary.c CSWAP(v.buf, z, 3, 4); \
v 188 ext/binary/binary.c union { char buf[2]; unsigned short val; } v;
v 189 ext/binary/binary.c if (getbytes(v.buf, 2, sport) == EOF) return SCM_EOF;
v 191 ext/binary/binary.c return SCM_MAKE_INT(v.val);
v 196 ext/binary/binary.c union { char buf[2]; short val; } v;
v 197 ext/binary/binary.c if (getbytes(v.buf, 2, sport) == EOF) return SCM_EOF;
v 199 ext/binary/binary.c return SCM_MAKE_INT(v.val);
v 204 ext/binary/binary.c union { char buf[4]; ScmUInt32 val; } v;
v 205 ext/binary/binary.c if (getbytes(v.buf, 4, sport) == EOF) return SCM_EOF;
v 207 ext/binary/binary.c return Scm_MakeIntegerFromUI(v.val);
v 212 ext/binary/binary.c union { char buf[4]; ScmInt32 val; } v;
v 213 ext/binary/binary.c if (getbytes(v.buf, 4, sport) == EOF) return SCM_EOF;
v 215 ext/binary/binary.c return Scm_MakeInteger(v.val);
v 220 ext/binary/binary.c union { char buf[8]; ScmUInt64 val; } v;
v 221 ext/binary/binary.c if (getbytes(v.buf, 8, sport) == EOF) return SCM_EOF;
v 223 ext/binary/binary.c return Scm_MakeIntegerU64(v.val);
v 228 ext/binary/binary.c union { char buf[8]; ScmInt64 val; } v;
v 229 ext/binary/binary.c if (getbytes(v.buf, 8, sport) == EOF) return SCM_EOF;
v 231 ext/binary/binary.c return Scm_MakeInteger64(v.val);
v 236 ext/binary/binary.c union { char buf[4]; float val; } v;
v 237 ext/binary/binary.c if (getbytes(v.buf, 4, sport) == EOF) return SCM_EOF;
v 239 ext/binary/binary.c return Scm_MakeFlonum((double)v.val);
v 244 ext/binary/binary.c union { char buf[8]; double val;} v;
v 245 ext/binary/binary.c if (getbytes(v.buf, 8, sport) == EOF) return SCM_EOF;
v 247 ext/binary/binary.c return Scm_MakeFlonum(v.val);
v 256 ext/binary/binary.c union { char buf[2]; u_short val; } v;
v 265 ext/binary/binary.c v.val = vv;
v 267 ext/binary/binary.c Scm_Putz(v.buf, 2, oport);
v 272 ext/binary/binary.c union { char buf[2]; short val; } v;
v 281 ext/binary/binary.c v.val = vv;
v 283 ext/binary/binary.c Scm_Putz(v.buf, 2, oport);
v 288 ext/binary/binary.c union { char buf[4]; ScmUInt32 val; } v;
v 291 ext/binary/binary.c v.val = Scm_GetIntegerU32Clamp(sval, FALSE, FALSE);
v 293 ext/binary/binary.c Scm_Putz(v.buf, 4, oport);
v 298 ext/binary/binary.c union { char buf[4]; ScmInt32 val; } v;
v 301 ext/binary/binary.c v.val = Scm_GetInteger32Clamp(sval, FALSE, FALSE);
v 303 ext/binary/binary.c Scm_Putz(v.buf, 4, oport);
v 308 ext/binary/binary.c union { char buf[8]; ScmUInt64 val; } v;
v 311 ext/binary/binary.c v.val = Scm_GetIntegerU64Clamp(sval, FALSE, FALSE);
v 313 ext/binary/binary.c Scm_Putz(v.buf, 8, oport);
v 318 ext/binary/binary.c union { char buf[8]; ScmInt64 val; } v;
v 321 ext/binary/binary.c v.val = Scm_GetInteger64Clamp(sval, FALSE, FALSE);
v 323 ext/binary/binary.c Scm_Putz(v.buf, 8, oport);
v 328 ext/binary/binary.c union { char buf[4]; float val; } v;
v 331 ext/binary/binary.c v.val = (float)Scm_GetDouble(sval);
v 333 ext/binary/binary.c Scm_Putz(v.buf, 4, oport);
v 338 ext/binary/binary.c union { char buf[8]; double val; } v;
v 341 ext/binary/binary.c v.val = Scm_GetDouble(sval);
v 343 ext/binary/binary.c Scm_Putz(v.buf, 8, oport);
v 68 ext/fcntl/fcntl.c static void SCM_CPP_CAT3(flock_, name, _set)(ScmSysFlock* t, ScmObj v) \
v 70 ext/fcntl/fcntl.c if (!SCM_INTEGERP(v)) Scm_Error("integer required, but got %S", v); \
v 71 ext/fcntl/fcntl.c t->lock.name = (type)Scm_GetInteger(v); \
v 54 ext/mt-random/mt-lib.c ScmObj v = Scm_MakeU32Vector(N+1, 0);
v 56 ext/mt-random/mt-lib.c for (i=0; i<N; i++) SCM_U32VECTOR_ELEMENTS(v)[i] = mt->mt[i];
v 57 ext/mt-random/mt-lib.c SCM_U32VECTOR_ELEMENTS(v)[N] = mt->mti;
v 58 ext/mt-random/mt-lib.c SCM_RETURN(v);
v 182 ext/mt-random/mt-lib.c ScmU32Vector* v;
v 189 ext/mt-random/mt-lib.c v = SCM_U32VECTOR(v_scm);
v 191 ext/mt-random/mt-lib.c int len = SCM_U32VECTOR_SIZE(v), i;
v 192 ext/mt-random/mt-lib.c ScmUInt32 *p = SCM_U32VECTOR_ELEMENTS(v);
v 194 ext/mt-random/mt-lib.c SCM_RETURN(SCM_OBJ(v));
v 206 ext/mt-random/mt-lib.c ScmF32Vector* v;
v 213 ext/mt-random/mt-lib.c v = SCM_F32VECTOR(v_scm);
v 215 ext/mt-random/mt-lib.c int len = SCM_F32VECTOR_SIZE(v), i;
v 216 ext/mt-random/mt-lib.c float *p = SCM_F32VECTOR_ELEMENTS(v);
v 218 ext/mt-random/mt-lib.c SCM_RETURN(SCM_OBJ(v));
v 230 ext/mt-random/mt-lib.c ScmF64Vector* v;
v 237 ext/mt-random/mt-lib.c v = SCM_F64VECTOR(v_scm);
v 239 ext/mt-random/mt-lib.c int len = SCM_F64VECTOR_SIZE(v), i;
v 240 ext/mt-random/mt-lib.c double *p = SCM_F64VECTOR_ELEMENTS(v);
v 242 ext/mt-random/mt-lib.c SCM_RETURN(SCM_OBJ(v));
v 395 ext/net/net.c int v = Scm_GetInteger(value);
v 396 ext/net/net.c SCM_SYSCALL(r, setsockopt(s->fd, level, option, &v, sizeof(int)));
v 65 ext/termios/termios.c static void SCM_CPP_CAT3(termios_, name, _set)(ScmSysTermios* t, ScmObj v) \
v 67 ext/termios/termios.c if (!SCM_INTEGERP(v)) Scm_Error("integer required, but got %S", v); \
v 68 ext/termios/termios.c t->term.name = (tcflag_t)Scm_GetUInteger(v); \
v 77 ext/uvector/gauche/uvector.h extern ScmObj Scm_UVectorAlias(ScmClass *klass, ScmUVector *v,
v 80 ext/uvector/gauche/uvector.h extern ScmObj Scm_UVectorCopy(ScmUVector *v, int start, int end);
v 81 ext/uvector/gauche/uvector.h extern ScmObj Scm_UVectorSwapBytes(ScmUVector *v);
v 82 ext/uvector/gauche/uvector.h extern ScmObj Scm_UVectorSwapBytesX(ScmUVector *v);
v 84 ext/uvector/gauche/uvector.h extern ScmObj Scm_ReadBlockX(ScmUVector *v, ScmPort *port,
v 86 ext/uvector/gauche/uvector.h extern ScmObj Scm_WriteBlock(ScmUVector *v, ScmPort *port,
v 112 ext/uvector/uvector.c ScmObj Scm_UVectorAlias(ScmClass *klass, ScmUVector *v, int start, int end)
v 114 ext/uvector/uvector.c int len = SCM_UVECTOR_SIZE(v), reqalign, srcalign, dstsize;
v 118 ext/uvector/uvector.c srcalign = Scm_UVectorElementSize(Scm_ClassOf(SCM_OBJ(v)));
v 125 ext/uvector/uvector.c Scm_ClassOf(SCM_OBJ(v)), start, end, klass);
v 131 ext/uvector/uvector.c (char*)v->elements + start*srcalign,
v 132 ext/uvector/uvector.c SCM_UVECTOR_IMMUTABLE_P(v),
v 133 ext/uvector/uvector.c SCM_UVECTOR_OWNER(v)));
v 196 ext/uvector/uvector.c static inline void int64print(ScmPort *out, ScmInt64 v)
v 199 ext/uvector/uvector.c Scm_Printf(out, "%S", Scm_MakeInteger64(v));
v 202 ext/uvector/uvector.c snprintf(buf, 50, "%lld", v);
v 205 ext/uvector/uvector.c Scm_Printf(out, "%ld", v);
v 209 ext/uvector/uvector.c static inline void uint64print(ScmPort *out, ScmUInt64 v)
v 212 ext/uvector/uvector.c Scm_Printf(out, "%S", Scm_MakeIntegerU64(v));
v 215 ext/uvector/uvector.c snprintf(buf, 50, "%llu", v);
v 218 ext/uvector/uvector.c Scm_Printf(out, "%lu", v);
v 337 ext/uvector/uvector.c long r, v;
v 338 ext/uvector/uvector.c SADDOV(r, v, x, y);
v 339 ext/uvector/uvector.c if (v == 0) return clamp_s32(r, clamp);
v 340 ext/uvector/uvector.c if (v > 0) return range_s32hi(0, clamp);
v 347 ext/uvector/uvector.c long r, v;
v 348 ext/uvector/uvector.c SSUBOV(r, v, x, y);
v 349 ext/uvector/uvector.c if (v == 0) return clamp_s32(r, clamp);
v 350 ext/uvector/uvector.c if (v > 0) return range_s32hi(0, clamp);
v 356 ext/uvector/uvector.c long r, v;
v 357 ext/uvector/uvector.c SMULOV(r, v, x, y);
v 358 ext/uvector/uvector.c if (v == 0) return clamp_s32(r, clamp);
v 359 ext/uvector/uvector.c if (v > 0) return range_s32hi(0, clamp);
v 381 ext/uvector/uvector.c u_long r, v;
v 382 ext/uvector/uvector.c UADDOV(r, v, x, y);
v 383 ext/uvector/uvector.c if (v == 0) return clamp_u32(r, clamp);
v 389 ext/uvector/uvector.c u_long r, v;
v 390 ext/uvector/uvector.c USUBOV(r, v, x, y);
v 391 ext/uvector/uvector.c if (v == 0) return clamp_u32(r, clamp);
v 397 ext/uvector/uvector.c u_long r, v;
v 398 ext/uvector/uvector.c UMULOV(r, v, x, y);
v 399 ext/uvector/uvector.c if (v == 0) return clamp_u32(r, clamp);
v 415 ext/uvector/uvector.c long r, v;
v 416 ext/uvector/uvector.c SADDOV(r, v, x, y);
v 417 ext/uvector/uvector.c if (v == 0) return r;
v 418 ext/uvector/uvector.c if (v > 0) return range_s64hi(0, clamp);
v 431 ext/uvector/uvector.c long r, v;
v 432 ext/uvector/uvector.c SSUBOV(r, v, x, y);
v 433 ext/uvector/uvector.c if (v == 0) return r;
v 434 ext/uvector/uvector.c if (v > 0) return range_s64hi(0, clamp);
v 447 ext/uvector/uvector.c long r, v;
v 448 ext/uvector/uvector.c SMULOV(r, v, x, y);
v 449 ext/uvector/uvector.c if (v == 0) return r;
v 450 ext/uvector/uvector.c if (v > 0) return range_s64hi(0, clamp);
v 467 ext/uvector/uvector.c u_long r, v;
v 468 ext/uvector/uvector.c UADDOV(r, v, x, y);
v 469 ext/uvector/uvector.c if (v == 0) return r;
v 482 ext/uvector/uvector.c u_long r, v;
v 483 ext/uvector/uvector.c USUBOV(r, v, x, y);
v 484 ext/uvector/uvector.c if (v == 0) return r;
v 497 ext/uvector/uvector.c u_long r, v;
v 498 ext/uvector/uvector.c UMULOV(r, v, x, y);
v 499 ext/uvector/uvector.c if (v == 0) return r;
v 607 ext/uvector/uvector.c long k, v, m;
v 609 ext/uvector/uvector.c SADDOV(k, v, acc, m);
v 610 ext/uvector/uvector.c if (v) {
v 622 ext/uvector/uvector.c long k, v, m;
v 623 ext/uvector/uvector.c SMULOV(m, v, x, y);
v 624 ext/uvector/uvector.c if (v) {
v 629 ext/uvector/uvector.c SADDOV(k, v, acc, m);
v 630 ext/uvector/uvector.c if (v) {
v 653 ext/uvector/uvector.c u_long k, v, m;
v 655 ext/uvector/uvector.c UADDOV(k, v, acc, m);
v 656 ext/uvector/uvector.c if (v) {
v 668 ext/uvector/uvector.c u_long k, v, m;
v 669 ext/uvector/uvector.c UMULOV(m, v, x, y);
v 670 ext/uvector/uvector.c if (v) {
v 675 ext/uvector/uvector.c UADDOV(k, v, acc, m);
v 676 ext/uvector/uvector.c if (v) {
v 9396 ext/uvector/uvector.c static void s16vector_swapb(ScmS16Vector *v)
v 9398 ext/uvector/uvector.c int i, len = SCM_UVECTOR_SIZE(v);
v 9399 ext/uvector/uvector.c short *d = SCM_S16VECTOR_ELEMENTS(v);
v 9405 ext/uvector/uvector.c ScmObj Scm_S16VectorSwapBytes(ScmS16Vector *v)
v 9407 ext/uvector/uvector.c ScmObj d = Scm_S16VectorCopy(v, 0, -1);
v 9412 ext/uvector/uvector.c ScmObj Scm_S16VectorSwapBytesX(ScmS16Vector *v)
v 9414 ext/uvector/uvector.c SCM_UVECTOR_CHECK_MUTABLE(v);
v 9415 ext/uvector/uvector.c s16vector_swapb(v);
v 9416 ext/uvector/uvector.c return SCM_OBJ(v);
v 9422 ext/uvector/uvector.c static void u16vector_swapb(ScmU16Vector *v)
v 9424 ext/uvector/uvector.c int i, len = SCM_UVECTOR_SIZE(v);
v 9425 ext/uvector/uvector.c unsigned short *d = SCM_U16VECTOR_ELEMENTS(v);
v 9431 ext/uvector/uvector.c ScmObj Scm_U16VectorSwapBytes(ScmU16Vector *v)
v 9433 ext/uvector/uvector.c ScmObj d = Scm_U16VectorCopy(v, 0, -1);
v 9438 ext/uvector/uvector.c ScmObj Scm_U16VectorSwapBytesX(ScmU16Vector *v)
v 9440 ext/uvector/uvector.c SCM_UVECTOR_CHECK_MUTABLE(v);
v 9441 ext/uvector/uvector.c u16vector_swapb(v);
v 9442 ext/uvector/uvector.c return SCM_OBJ(v);
v 9448 ext/uvector/uvector.c static void s32vector_swapb(ScmS32Vector *v)
v 9450 ext/uvector/uvector.c int i, len = SCM_UVECTOR_SIZE(v);
v 9451 ext/uvector/uvector.c ScmInt32 *d = SCM_S32VECTOR_ELEMENTS(v);
v 9457 ext/uvector/uvector.c ScmObj Scm_S32VectorSwapBytes(ScmS32Vector *v)
v 9459 ext/uvector/uvector.c ScmObj d = Scm_S32VectorCopy(v, 0, -1);
v 9464 ext/uvector/uvector.c ScmObj Scm_S32VectorSwapBytesX(ScmS32Vector *v)
v 9466 ext/uvector/uvector.c SCM_UVECTOR_CHECK_MUTABLE(v);
v 9467 ext/uvector/uvector.c s32vector_swapb(v);
v 9468 ext/uvector/uvector.c return SCM_OBJ(v);
v 9474 ext/uvector/uvector.c static void u32vector_swapb(ScmU32Vector *v)
v 9476 ext/uvector/uvector.c int i, len = SCM_UVECTOR_SIZE(v);
v 9477 ext/uvector/uvector.c ScmUInt32 *d = SCM_U32VECTOR_ELEMENTS(v);
v 9483 ext/uvector/uvector.c ScmObj Scm_U32VectorSwapBytes(ScmU32Vector *v)
v 9485 ext/uvector/uvector.c ScmObj d = Scm_U32VectorCopy(v, 0, -1);
v 9490 ext/uvector/uvector.c ScmObj Scm_U32VectorSwapBytesX(ScmU32Vector *v)
v 9492 ext/uvector/uvector.c SCM_UVECTOR_CHECK_MUTABLE(v);
v 9493 ext/uvector/uvector.c u32vector_swapb(v);
v 9494 ext/uvector/uvector.c return SCM_OBJ(v);
v 9500 ext/uvector/uvector.c static void s64vector_swapb(ScmS64Vector *v)
v 9502 ext/uvector/uvector.c int i, len = SCM_UVECTOR_SIZE(v);
v 9503 ext/uvector/uvector.c ScmInt64 *d = SCM_S64VECTOR_ELEMENTS(v);
v 9509 ext/uvector/uvector.c ScmObj Scm_S64VectorSwapBytes(ScmS64Vector *v)
v 9511 ext/uvector/uvector.c ScmObj d = Scm_S64VectorCopy(v, 0, -1);
v 9516 ext/uvector/uvector.c ScmObj Scm_S64VectorSwapBytesX(ScmS64Vector *v)
v 9518 ext/uvector/uvector.c SCM_UVECTOR_CHECK_MUTABLE(v);
v 9519 ext/uvector/uvector.c s64vector_swapb(v);
v 9520 ext/uvector/uvector.c return SCM_OBJ(v);
v 9526 ext/uvector/uvector.c static void u64vector_swapb(ScmU64Vector *v)
v 9528 ext/uvector/uvector.c int i, len = SCM_UVECTOR_SIZE(v);
v 9529 ext/uvector/uvector.c ScmUInt64 *d = SCM_U64VECTOR_ELEMENTS(v);
v 9535 ext/uvector/uvector.c ScmObj Scm_U64VectorSwapBytes(ScmU64Vector *v)
v 9537 ext/uvector/uvector.c ScmObj d = Scm_U64VectorCopy(v, 0, -1);
v 9542 ext/uvector/uvector.c ScmObj Scm_U64VectorSwapBytesX(ScmU64Vector *v)
v 9544 ext/uvector/uvector.c SCM_UVECTOR_CHECK_MUTABLE(v);
v 9545 ext/uvector/uvector.c u64vector_swapb(v);
v 9546 ext/uvector/uvector.c return SCM_OBJ(v);
v 9552 ext/uvector/uvector.c static void f32vector_swapb(ScmF32Vector *v)
v 9554 ext/uvector/uvector.c int i, len = SCM_UVECTOR_SIZE(v);
v 9555 ext/uvector/uvector.c float *d = SCM_F32VECTOR_ELEMENTS(v);
v 9561 ext/uvector/uvector.c ScmObj Scm_F32VectorSwapBytes(ScmF32Vector *v)
v 9563 ext/uvector/uvector.c ScmObj d = Scm_F32VectorCopy(v, 0, -1);
v 9568 ext/uvector/uvector.c ScmObj Scm_F32VectorSwapBytesX(ScmF32Vector *v)
v 9570 ext/uvector/uvector.c SCM_UVECTOR_CHECK_MUTABLE(v);
v 9571 ext/uvector/uvector.c f32vector_swapb(v);
v 9572 ext/uvector/uvector.c return SCM_OBJ(v);
v 9578 ext/uvector/uvector.c static void f64vector_swapb(ScmF64Vector *v)
v 9580 ext/uvector/uvector.c int i, len = SCM_UVECTOR_SIZE(v);
v 9581 ext/uvector/uvector.c double *d = SCM_F64VECTOR_ELEMENTS(v);
v 9587 ext/uvector/uvector.c ScmObj Scm_F64VectorSwapBytes(ScmF64Vector *v)
v 9589 ext/uvector/uvector.c ScmObj d = Scm_F64VectorCopy(v, 0, -1);
v 9594 ext/uvector/uvector.c ScmObj Scm_F64VectorSwapBytesX(ScmF64Vector *v)
v 9596 ext/uvector/uvector.c SCM_UVECTOR_CHECK_MUTABLE(v);
v 9597 ext/uvector/uvector.c f64vector_swapb(v);
v 9598 ext/uvector/uvector.c return SCM_OBJ(v);
v 9611 ext/uvector/uvector.c ScmObj Scm_UVectorCopy(ScmUVector *v, int start, int end)
v 9613 ext/uvector/uvector.c switch (uvector_index(Scm_ClassOf(SCM_OBJ(v)))) {
v 9614 ext/uvector/uvector.c case 0: return Scm_S8VectorCopy(SCM_S8VECTOR(v), start, end);
v 9615 ext/uvector/uvector.c case 1: return Scm_U8VectorCopy(SCM_U8VECTOR(v), start, end);
v 9616 ext/uvector/uvector.c case 2: return Scm_S16VectorCopy(SCM_S16VECTOR(v), start, end);
v 9617 ext/uvector/uvector.c case 3: return Scm_U16VectorCopy(SCM_U16VECTOR(v), start, end);
v 9618 ext/uvector/uvector.c case 4: return Scm_S32VectorCopy(SCM_S32VECTOR(v), start, end);
v 9619 ext/uvector/uvector.c case 5: return Scm_U32VectorCopy(SCM_U32VECTOR(v), start, end);
v 9620 ext/uvector/uvector.c case 6: return Scm_S64VectorCopy(SCM_S64VECTOR(v), start, end);
v 9621 ext/uvector/uvector.c case 7: return Scm_U64VectorCopy(SCM_U64VECTOR(v), start, end);
v 9622 ext/uvector/uvector.c case 8: return Scm_F32VectorCopy(SCM_F32VECTOR(v), start, end);
v 9623 ext/uvector/uvector.c case 9: return Scm_F64VectorCopy(SCM_F64VECTOR(v), start, end);
v 9624 ext/uvector/uvector.c default: Scm_Error("uniform vector required, but got %S", v);
v 9632 ext/uvector/uvector.c ScmObj Scm_UVectorSwapBytes(ScmUVector *v)
v 9634 ext/uvector/uvector.c switch (uvector_index(Scm_ClassOf(SCM_OBJ(v)))) {
v 9635 ext/uvector/uvector.c case 0: return SCM_OBJ(v);
v 9636 ext/uvector/uvector.c case 1: return SCM_OBJ(v);
v 9637 ext/uvector/uvector.c case 2: return Scm_S16VectorSwapBytes(SCM_S16VECTOR(v));
v 9638 ext/uvector/uvector.c case 3: return Scm_U16VectorSwapBytes(SCM_U16VECTOR(v));
v 9639 ext/uvector/uvector.c case 4: return Scm_S32VectorSwapBytes(SCM_S32VECTOR(v));
v 9640 ext/uvector/uvector.c case 5: return Scm_U32VectorSwapBytes(SCM_U32VECTOR(v));
v 9641 ext/uvector/uvector.c case 6: return Scm_S64VectorSwapBytes(SCM_S64VECTOR(v));
v 9642 ext/uvector/uvector.c case 7: return Scm_U64VectorSwapBytes(SCM_U64VECTOR(v));
v 9643 ext/uvector/uvector.c case 8: return Scm_F32VectorSwapBytes(SCM_F32VECTOR(v));
v 9644 ext/uvector/uvector.c case 9: return Scm_F64VectorSwapBytes(SCM_F64VECTOR(v));
v 9645 ext/uvector/uvector.c default: Scm_Error("uniform vector required, but got %S", v);
v 9650 ext/uvector/uvector.c ScmObj Scm_UVectorSwapBytesX(ScmUVector *v)
v 9652 ext/uvector/uvector.c switch (uvector_index(Scm_ClassOf(SCM_OBJ(v)))) {
v 9653 ext/uvector/uvector.c case 0: return SCM_OBJ(v);
v 9654 ext/uvector/uvector.c case 1: return SCM_OBJ(v);
v 9655 ext/uvector/uvector.c case 2: return Scm_S16VectorSwapBytesX(SCM_S16VECTOR(v));
v 9656 ext/uvector/uvector.c case 3: return Scm_U16VectorSwapBytesX(SCM_U16VECTOR(v));
v 9657 ext/uvector/uvector.c case 4: return Scm_S32VectorSwapBytesX(SCM_S32VECTOR(v));
v 9658 ext/uvector/uvector.c case 5: return Scm_U32VectorSwapBytesX(SCM_U32VECTOR(v));
v 9659 ext/uvector/uvector.c case 6: return Scm_S64VectorSwapBytesX(SCM_S64VECTOR(v));
v 9660 ext/uvector/uvector.c case 7: return Scm_U64VectorSwapBytesX(SCM_U64VECTOR(v));
v 9661 ext/uvector/uvector.c case 8: return Scm_F32VectorSwapBytesX(SCM_F32VECTOR(v));
v 9662 ext/uvector/uvector.c case 9: return Scm_F64VectorSwapBytesX(SCM_F64VECTOR(v));
v 9663 ext/uvector/uvector.c default: Scm_Error("uniform vector required, but got %S", v);
v 9680 ext/uvector/uvector.c ScmObj Scm_ReadBlockX(ScmUVector *v, ScmPort *port,
v 9683 ext/uvector/uvector.c int len = SCM_UVECTOR_SIZE(v), eltsize, r;
v 9686 ext/uvector/uvector.c SCM_UVECTOR_CHECK_MUTABLE(v);
v 9689 ext/uvector/uvector.c eltsize = Scm_UVectorElementSize(Scm_ClassOf(SCM_OBJ(v)));
v 9691 ext/uvector/uvector.c r = Scm_Getz((char*)v->elements + start*eltsize,
v 9696 ext/uvector/uvector.c Scm_UVectorSwapBytesX(SCM_UVECTOR(v));
v 9700 ext/uvector/uvector.c Scm_UVectorSwapBytesX(SCM_UVECTOR(v));
v 9706 ext/uvector/uvector.c ScmObj Scm_WriteBlock(ScmUVector *v, ScmPort *port,
v 9709 ext/uvector/uvector.c int len = SCM_UVECTOR_SIZE(v), eltsize, swapb = FALSE;
v 9713 ext/uvector/uvector.c eltsize = Scm_UVectorElementSize(Scm_ClassOf(SCM_OBJ(v)));
v 9721 ext/uvector/uvector.c Scm_Putz((const char*)v->elements + start*eltsize,
v 9734 ext/uvector/uvector.c d.n = ((unsigned short*)v->elements)[i];
v 9745 ext/uvector/uvector.c d.n = ((ScmUInt32*)v->elements)[i];
v 9756 ext/uvector/uvector.c d.n = ((ScmUInt64*)v->elements)[i];
v 96 ext/uvector/uvlib.c ScmS8Vector* v;
v 100 ext/uvector/uvlib.c v = SCM_S8VECTOR(v_scm);
v 102 ext/uvector/uvlib.c SCM_RETURN(SCM_MAKE_INT(SCM_S8VECTOR_SIZE(v)));
v 112 ext/uvector/uvlib.c ScmS8Vector* v;
v 123 ext/uvector/uvlib.c v = SCM_S8VECTOR(v_scm);
v 134 ext/uvector/uvlib.c SCM_RETURN(Scm_S8VectorRef(v, i, fallback));
v 144 ext/uvector/uvlib.c ScmS8Vector* v;
v 157 ext/uvector/uvlib.c v = SCM_S8VECTOR(v_scm);
v 170 ext/uvector/uvlib.c SCM_RETURN(Scm_S8VectorSet(v, i, val, clamp_arg(clamp)));
v 180 ext/uvector/uvlib.c ScmS8Vector* v;
v 191 ext/uvector/uvlib.c v = SCM_S8VECTOR(v_scm);
v 209 ext/uvector/uvlib.c SCM_RESULT = Scm_S8VectorCopy(v, start, end);
v 284 ext/uvector/uvlib.c ScmS8Vector* v;
v 295 ext/uvector/uvlib.c v = SCM_S8VECTOR(v_scm);
v 313 ext/uvector/uvlib.c SCM_RESULT = Scm_S8VectorToList(v, start, end);
v 352 ext/uvector/uvlib.c ScmS8Vector* v;
v 365 ext/uvector/uvlib.c v = SCM_S8VECTOR(v_scm);
v 385 ext/uvector/uvlib.c SCM_RETURN(Scm_S8VectorFill(v, filler, start, end));
v 395 ext/uvector/uvlib.c ScmS8Vector* v;
v 406 ext/uvector/uvlib.c v = SCM_S8VECTOR(v_scm);
v 424 ext/uvector/uvlib.c SCM_RESULT = Scm_S8VectorToVector(v, start, end);
v 436 ext/uvector/uvlib.c ScmVector* v;
v 449 ext/uvector/uvlib.c v = SCM_VECTOR(v_scm);
v 471 ext/uvector/uvlib.c SCM_RETURN(Scm_VectorToS8Vector(v, start, end, clamp_arg(clamp)));
v 545 ext/uvector/uvlib.c ScmU8Vector* v;
v 549 ext/uvector/uvlib.c v = SCM_U8VECTOR(v_scm);
v 551 ext/uvector/uvlib.c SCM_RETURN(SCM_MAKE_INT(SCM_U8VECTOR_SIZE(v)));
v 561 ext/uvector/uvlib.c ScmU8Vector* v;
v 572 ext/uvector/uvlib.c v = SCM_U8VECTOR(v_scm);
v 583 ext/uvector/uvlib.c SCM_RETURN(Scm_U8VectorRef(v, i, fallback));
v 593 ext/uvector/uvlib.c ScmU8Vector* v;
v 606 ext/uvector/uvlib.c v = SCM_U8VECTOR(v_scm);
v 619 ext/uvector/uvlib.c SCM_RETURN(Scm_U8VectorSet(v, i, val, clamp_arg(clamp)));
v 629 ext/uvector/uvlib.c ScmU8Vector* v;
v 640 ext/uvector/uvlib.c v = SCM_U8VECTOR(v_scm);
v 658 ext/uvector/uvlib.c SCM_RESULT = Scm_U8VectorCopy(v, start, end);
v 733 ext/uvector/uvlib.c ScmU8Vector* v;
v 744 ext/uvector/uvlib.c v = SCM_U8VECTOR(v_scm);
v 762 ext/uvector/uvlib.c SCM_RESULT = Scm_U8VectorToList(v, start, end);
v 801 ext/uvector/uvlib.c ScmU8Vector* v;
v 814 ext/uvector/uvlib.c v = SCM_U8VECTOR(v_scm);
v 834 ext/uvector/uvlib.c SCM_RETURN(Scm_U8VectorFill(v, filler, start, end));
v 844 ext/uvector/uvlib.c ScmU8Vector* v;
v 855 ext/uvector/uvlib.c v = SCM_U8VECTOR(v_scm);
v 873 ext/uvector/uvlib.c SCM_RESULT = Scm_U8VectorToVector(v, start, end);
v 885 ext/uvector/uvlib.c ScmVector* v;
v 898 ext/uvector/uvlib.c v = SCM_VECTOR(v_scm);
v 920 ext/uvector/uvlib.c SCM_RETURN(Scm_VectorToU8Vector(v, start, end, clamp_arg(clamp)));
v 994 ext/uvector/uvlib.c ScmS16Vector* v;
v 998 ext/uvector/uvlib.c v = SCM_S16VECTOR(v_scm);
v 1000 ext/uvector/uvlib.c SCM_RETURN(SCM_MAKE_INT(SCM_S16VECTOR_SIZE(v)));
v 1010 ext/uvector/uvlib.c ScmS16Vector* v;
v 1021 ext/uvector/uvlib.c v = SCM_S16VECTOR(v_scm);
v 1032 ext/uvector/uvlib.c SCM_RETURN(Scm_S16VectorRef(v, i, fallback));
v 1042 ext/uvector/uvlib.c ScmS16Vector* v;
v 1055 ext/uvector/uvlib.c v = SCM_S16VECTOR(v_scm);
v 1068 ext/uvector/uvlib.c SCM_RETURN(Scm_S16VectorSet(v, i, val, clamp_arg(clamp)));
v 1078 ext/uvector/uvlib.c ScmS16Vector* v;
v 1089 ext/uvector/uvlib.c v = SCM_S16VECTOR(v_scm);
v 1107 ext/uvector/uvlib.c SCM_RESULT = Scm_S16VectorCopy(v, start, end);
v 1182 ext/uvector/uvlib.c ScmS16Vector* v;
v 1193 ext/uvector/uvlib.c v = SCM_S16VECTOR(v_scm);
v 1211 ext/uvector/uvlib.c SCM_RESULT = Scm_S16VectorToList(v, start, end);
v 1250 ext/uvector/uvlib.c ScmS16Vector* v;
v 1263 ext/uvector/uvlib.c v = SCM_S16VECTOR(v_scm);
v 1283 ext/uvector/uvlib.c SCM_RETURN(Scm_S16VectorFill(v, filler, start, end));
v 1293 ext/uvector/uvlib.c ScmS16Vector* v;
v 1304 ext/uvector/uvlib.c v = SCM_S16VECTOR(v_scm);
v 1322 ext/uvector/uvlib.c SCM_RESULT = Scm_S16VectorToVector(v, start, end);
v 1334 ext/uvector/uvlib.c ScmVector* v;
v 1347 ext/uvector/uvlib.c v = SCM_VECTOR(v_scm);
v 1369 ext/uvector/uvlib.c SCM_RETURN(Scm_VectorToS16Vector(v, start, end, clamp_arg(clamp)));
v 1443 ext/uvector/uvlib.c ScmU16Vector* v;
v 1447 ext/uvector/uvlib.c v = SCM_U16VECTOR(v_scm);
v 1449 ext/uvector/uvlib.c SCM_RETURN(SCM_MAKE_INT(SCM_U16VECTOR_SIZE(v)));
v 1459 ext/uvector/uvlib.c ScmU16Vector* v;
v 1470 ext/uvector/uvlib.c v = SCM_U16VECTOR(v_scm);
v 1481 ext/uvector/uvlib.c SCM_RETURN(Scm_U16VectorRef(v, i, fallback));
v 1491 ext/uvector/uvlib.c ScmU16Vector* v;
v 1504 ext/uvector/uvlib.c v = SCM_U16VECTOR(v_scm);
v 1517 ext/uvector/uvlib.c SCM_RETURN(Scm_U16VectorSet(v, i, val, clamp_arg(clamp)));
v 1527 ext/uvector/uvlib.c ScmU16Vector* v;
v 1538 ext/uvector/uvlib.c v = SCM_U16VECTOR(v_scm);
v 1556 ext/uvector/uvlib.c SCM_RESULT = Scm_U16VectorCopy(v, start, end);
v 1631 ext/uvector/uvlib.c ScmU16Vector* v;
v 1642 ext/uvector/uvlib.c v = SCM_U16VECTOR(v_scm);
v 1660 ext/uvector/uvlib.c SCM_RESULT = Scm_U16VectorToList(v, start, end);
v 1699 ext/uvector/uvlib.c ScmU16Vector* v;
v 1712 ext/uvector/uvlib.c v = SCM_U16VECTOR(v_scm);
v 1732 ext/uvector/uvlib.c SCM_RETURN(Scm_U16VectorFill(v, filler, start, end));
v 1742 ext/uvector/uvlib.c ScmU16Vector* v;
v 1753 ext/uvector/uvlib.c v = SCM_U16VECTOR(v_scm);
v 1771 ext/uvector/uvlib.c SCM_RESULT = Scm_U16VectorToVector(v, start, end);
v 1783 ext/uvector/uvlib.c ScmVector* v;
v 1796 ext/uvector/uvlib.c v = SCM_VECTOR(v_scm);
v 1818 ext/uvector/uvlib.c SCM_RETURN(Scm_VectorToU16Vector(v, start, end, clamp_arg(clamp)));
v 1892 ext/uvector/uvlib.c ScmS32Vector* v;
v 1896 ext/uvector/uvlib.c v = SCM_S32VECTOR(v_scm);
v 1898 ext/uvector/uvlib.c SCM_RETURN(SCM_MAKE_INT(SCM_S32VECTOR_SIZE(v)));
v 1908 ext/uvector/uvlib.c ScmS32Vector* v;
v 1919 ext/uvector/uvlib.c v = SCM_S32VECTOR(v_scm);
v 1930 ext/uvector/uvlib.c SCM_RETURN(Scm_S32VectorRef(v, i, fallback));
v 1940 ext/uvector/uvlib.c ScmS32Vector* v;
v 1953 ext/uvector/uvlib.c v = SCM_S32VECTOR(v_scm);
v 1966 ext/uvector/uvlib.c SCM_RETURN(Scm_S32VectorSet(v, i, val, clamp_arg(clamp)));
v 1976 ext/uvector/uvlib.c ScmS32Vector* v;
v 1987 ext/uvector/uvlib.c v = SCM_S32VECTOR(v_scm);
v 2005 ext/uvector/uvlib.c SCM_RESULT = Scm_S32VectorCopy(v, start, end);
v 2080 ext/uvector/uvlib.c ScmS32Vector* v;
v 2091 ext/uvector/uvlib.c v = SCM_S32VECTOR(v_scm);
v 2109 ext/uvector/uvlib.c SCM_RESULT = Scm_S32VectorToList(v, start, end);
v 2148 ext/uvector/uvlib.c ScmS32Vector* v;
v 2161 ext/uvector/uvlib.c v = SCM_S32VECTOR(v_scm);
v 2181 ext/uvector/uvlib.c SCM_RETURN(Scm_S32VectorFill(v, filler, start, end));
v 2191 ext/uvector/uvlib.c ScmS32Vector* v;
v 2202 ext/uvector/uvlib.c v = SCM_S32VECTOR(v_scm);
v 2220 ext/uvector/uvlib.c SCM_RESULT = Scm_S32VectorToVector(v, start, end);
v 2232 ext/uvector/uvlib.c ScmVector* v;
v 2245 ext/uvector/uvlib.c v = SCM_VECTOR(v_scm);
v 2267 ext/uvector/uvlib.c SCM_RETURN(Scm_VectorToS32Vector(v, start, end, clamp_arg(clamp)));
v 2341 ext/uvector/uvlib.c ScmU32Vector* v;
v 2345 ext/uvector/uvlib.c v = SCM_U32VECTOR(v_scm);
v 2347 ext/uvector/uvlib.c SCM_RETURN(SCM_MAKE_INT(SCM_U32VECTOR_SIZE(v)));
v 2357 ext/uvector/uvlib.c ScmU32Vector* v;
v 2368 ext/uvector/uvlib.c v = SCM_U32VECTOR(v_scm);
v 2379 ext/uvector/uvlib.c SCM_RETURN(Scm_U32VectorRef(v, i, fallback));
v 2389 ext/uvector/uvlib.c ScmU32Vector* v;
v 2402 ext/uvector/uvlib.c v = SCM_U32VECTOR(v_scm);
v 2415 ext/uvector/uvlib.c SCM_RETURN(Scm_U32VectorSet(v, i, val, clamp_arg(clamp)));
v 2425 ext/uvector/uvlib.c ScmU32Vector* v;
v 2436 ext/uvector/uvlib.c v = SCM_U32VECTOR(v_scm);
v 2454 ext/uvector/uvlib.c SCM_RESULT = Scm_U32VectorCopy(v, start, end);
v 2529 ext/uvector/uvlib.c ScmU32Vector* v;
v 2540 ext/uvector/uvlib.c v = SCM_U32VECTOR(v_scm);
v 2558 ext/uvector/uvlib.c SCM_RESULT = Scm_U32VectorToList(v, start, end);
v 2597 ext/uvector/uvlib.c ScmU32Vector* v;
v 2610 ext/uvector/uvlib.c v = SCM_U32VECTOR(v_scm);
v 2630 ext/uvector/uvlib.c SCM_RETURN(Scm_U32VectorFill(v, filler, start, end));
v 2640 ext/uvector/uvlib.c ScmU32Vector* v;
v 2651 ext/uvector/uvlib.c v = SCM_U32VECTOR(v_scm);
v 2669 ext/uvector/uvlib.c SCM_RESULT = Scm_U32VectorToVector(v, start, end);
v 2681 ext/uvector/uvlib.c ScmVector* v;
v 2694 ext/uvector/uvlib.c v = SCM_VECTOR(v_scm);
v 2716 ext/uvector/uvlib.c SCM_RETURN(Scm_VectorToU32Vector(v, start, end, clamp_arg(clamp)));
v 2790 ext/uvector/uvlib.c ScmS64Vector* v;
v 2794 ext/uvector/uvlib.c v = SCM_S64VECTOR(v_scm);
v 2796 ext/uvector/uvlib.c SCM_RETURN(SCM_MAKE_INT(SCM_S64VECTOR_SIZE(v)));
v 2806 ext/uvector/uvlib.c ScmS64Vector* v;
v 2817 ext/uvector/uvlib.c v = SCM_S64VECTOR(v_scm);
v 2828 ext/uvector/uvlib.c SCM_RETURN(Scm_S64VectorRef(v, i, fallback));
v 2838 ext/uvector/uvlib.c ScmS64Vector* v;
v 2851 ext/uvector/uvlib.c v = SCM_S64VECTOR(v_scm);
v 2864 ext/uvector/uvlib.c SCM_RETURN(Scm_S64VectorSet(v, i, val, clamp_arg(clamp)));
v 2874 ext/uvector/uvlib.c ScmS64Vector* v;
v 2885 ext/uvector/uvlib.c v = SCM_S64VECTOR(v_scm);
v 2903 ext/uvector/uvlib.c SCM_RESULT = Scm_S64VectorCopy(v, start, end);
v 2978 ext/uvector/uvlib.c ScmS64Vector* v;
v 2989 ext/uvector/uvlib.c v = SCM_S64VECTOR(v_scm);
v 3007 ext/uvector/uvlib.c SCM_RESULT = Scm_S64VectorToList(v, start, end);
v 3046 ext/uvector/uvlib.c ScmS64Vector* v;
v 3059 ext/uvector/uvlib.c v = SCM_S64VECTOR(v_scm);
v 3079 ext/uvector/uvlib.c SCM_RETURN(Scm_S64VectorFill(v, filler, start, end));
v 3089 ext/uvector/uvlib.c ScmS64Vector* v;
v 3100 ext/uvector/uvlib.c v = SCM_S64VECTOR(v_scm);
v 3118 ext/uvector/uvlib.c SCM_RESULT = Scm_S64VectorToVector(v, start, end);
v 3130 ext/uvector/uvlib.c ScmVector* v;
v 3143 ext/uvector/uvlib.c v = SCM_VECTOR(v_scm);
v 3165 ext/uvector/uvlib.c SCM_RETURN(Scm_VectorToS64Vector(v, start, end, clamp_arg(clamp)));
v 3239 ext/uvector/uvlib.c ScmU64Vector* v;
v 3243 ext/uvector/uvlib.c v = SCM_U64VECTOR(v_scm);
v 3245 ext/uvector/uvlib.c SCM_RETURN(SCM_MAKE_INT(SCM_U64VECTOR_SIZE(v)));
v 3255 ext/uvector/uvlib.c ScmU64Vector* v;
v 3266 ext/uvector/uvlib.c v = SCM_U64VECTOR(v_scm);
v 3277 ext/uvector/uvlib.c SCM_RETURN(Scm_U64VectorRef(v, i, fallback));
v 3287 ext/uvector/uvlib.c ScmU64Vector* v;
v 3300 ext/uvector/uvlib.c v = SCM_U64VECTOR(v_scm);
v 3313 ext/uvector/uvlib.c SCM_RETURN(Scm_U64VectorSet(v, i, val, clamp_arg(clamp)));
v 3323 ext/uvector/uvlib.c ScmU64Vector* v;
v 3334 ext/uvector/uvlib.c v = SCM_U64VECTOR(v_scm);
v 3352 ext/uvector/uvlib.c SCM_RESULT = Scm_U64VectorCopy(v, start, end);
v 3427 ext/uvector/uvlib.c ScmU64Vector* v;
v 3438 ext/uvector/uvlib.c v = SCM_U64VECTOR(v_scm);
v 3456 ext/uvector/uvlib.c SCM_RESULT = Scm_U64VectorToList(v, start, end);
v 3495 ext/uvector/uvlib.c ScmU64Vector* v;
v 3508 ext/uvector/uvlib.c v = SCM_U64VECTOR(v_scm);
v 3528 ext/uvector/uvlib.c SCM_RETURN(Scm_U64VectorFill(v, filler, start, end));
v 3538 ext/uvector/uvlib.c ScmU64Vector* v;
v 3549 ext/uvector/uvlib.c v = SCM_U64VECTOR(v_scm);
v 3567 ext/uvector/uvlib.c SCM_RESULT = Scm_U64VectorToVector(v, start, end);
v 3579 ext/uvector/uvlib.c ScmVector* v;
v 3592 ext/uvector/uvlib.c v = SCM_VECTOR(v_scm);
v 3614 ext/uvector/uvlib.c SCM_RETURN(Scm_VectorToU64Vector(v, start, end, clamp_arg(clamp)));
v 3688 ext/uvector/uvlib.c ScmF32Vector* v;
v 3692 ext/uvector/uvlib.c v = SCM_F32VECTOR(v_scm);
v 3694 ext/uvector/uvlib.c SCM_RETURN(SCM_MAKE_INT(SCM_F32VECTOR_SIZE(v)));
v 3704 ext/uvector/uvlib.c ScmF32Vector* v;
v 3715 ext/uvector/uvlib.c v = SCM_F32VECTOR(v_scm);
v 3726 ext/uvector/uvlib.c SCM_RETURN(Scm_F32VectorRef(v, i, fallback));
v 3736 ext/uvector/uvlib.c ScmF32Vector* v;
v 3749 ext/uvector/uvlib.c v = SCM_F32VECTOR(v_scm);
v 3762 ext/uvector/uvlib.c SCM_RETURN(Scm_F32VectorSet(v, i, val, clamp_arg(clamp)));
v 3772 ext/uvector/uvlib.c ScmF32Vector* v;
v 3783 ext/uvector/uvlib.c v = SCM_F32VECTOR(v_scm);
v 3801 ext/uvector/uvlib.c SCM_RESULT = Scm_F32VectorCopy(v, start, end);
v 3876 ext/uvector/uvlib.c ScmF32Vector* v;
v 3887 ext/uvector/uvlib.c v = SCM_F32VECTOR(v_scm);
v 3905 ext/uvector/uvlib.c SCM_RESULT = Scm_F32VectorToList(v, start, end);
v 3944 ext/uvector/uvlib.c ScmF32Vector* v;
v 3957 ext/uvector/uvlib.c v = SCM_F32VECTOR(v_scm);
v 3977 ext/uvector/uvlib.c SCM_RETURN(Scm_F32VectorFill(v, filler, start, end));
v 3987 ext/uvector/uvlib.c ScmF32Vector* v;
v 3998 ext/uvector/uvlib.c v = SCM_F32VECTOR(v_scm);
v 4016 ext/uvector/uvlib.c SCM_RESULT = Scm_F32VectorToVector(v, start, end);
v 4028 ext/uvector/uvlib.c ScmVector* v;
v 4041 ext/uvector/uvlib.c v = SCM_VECTOR(v_scm);
v 4063 ext/uvector/uvlib.c SCM_RETURN(Scm_VectorToF32Vector(v, start, end, clamp_arg(clamp)));
v 4137 ext/uvector/uvlib.c ScmF64Vector* v;
v 4141 ext/uvector/uvlib.c v = SCM_F64VECTOR(v_scm);
v 4143 ext/uvector/uvlib.c SCM_RETURN(SCM_MAKE_INT(SCM_F64VECTOR_SIZE(v)));
v 4153 ext/uvector/uvlib.c ScmF64Vector* v;
v 4164 ext/uvector/uvlib.c v = SCM_F64VECTOR(v_scm);
v 4175 ext/uvector/uvlib.c SCM_RETURN(Scm_F64VectorRef(v, i, fallback));
v 4185 ext/uvector/uvlib.c ScmF64Vector* v;
v 4198 ext/uvector/uvlib.c v = SCM_F64VECTOR(v_scm);
v 4211 ext/uvector/uvlib.c SCM_RETURN(Scm_F64VectorSet(v, i, val, clamp_arg(clamp)));
v 4221 ext/uvector/uvlib.c ScmF64Vector* v;
v 4232 ext/uvector/uvlib.c v = SCM_F64VECTOR(v_scm);
v 4250 ext/uvector/uvlib.c SCM_RESULT = Scm_F64VectorCopy(v, start, end);
v 4325 ext/uvector/uvlib.c ScmF64Vector* v;
v 4336 ext/uvector/uvlib.c v = SCM_F64VECTOR(v_scm);
v 4354 ext/uvector/uvlib.c SCM_RESULT = Scm_F64VectorToList(v, start, end);
v 4393 ext/uvector/uvlib.c ScmF64Vector* v;
v 4406 ext/uvector/uvlib.c v = SCM_F64VECTOR(v_scm);
v 4426 ext/uvector/uvlib.c SCM_RETURN(Scm_F64VectorFill(v, filler, start, end));
v 4436 ext/uvector/uvlib.c ScmF64Vector* v;
v 4447 ext/uvector/uvlib.c v = SCM_F64VECTOR(v_scm);
v 4465 ext/uvector/uvlib.c SCM_RESULT = Scm_F64VectorToVector(v, start, end);
v 4477 ext/uvector/uvlib.c ScmVector* v;
v 4490 ext/uvector/uvlib.c v = SCM_VECTOR(v_scm);
v 4512 ext/uvector/uvlib.c SCM_RETURN(Scm_VectorToF64Vector(v, start, end, clamp_arg(clamp)));
v 8868 ext/uvector/uvlib.c ScmUVector* v;
v 8882 ext/uvector/uvlib.c v = SCM_UVECTOR(v_scm);
v 8900 ext/uvector/uvlib.c SCM_RESULT = Scm_UVectorAlias(klass, v, start, end);
v 8912 ext/uvector/uvlib.c ScmUVector* v;
v 8916 ext/uvector/uvlib.c v = SCM_UVECTOR(v_scm);
v 8920 ext/uvector/uvlib.c SCM_RESULT = Scm_UVectorSwapBytes(v);
v 8932 ext/uvector/uvlib.c ScmUVector* v;
v 8936 ext/uvector/uvlib.c v = SCM_UVECTOR(v_scm);
v 8940 ext/uvector/uvlib.c SCM_RESULT = Scm_UVectorSwapBytesX(v);
v 8952 ext/uvector/uvlib.c ScmUVector* v;
v 8967 ext/uvector/uvlib.c v = SCM_UVECTOR(v_scm);
v 8998 ext/uvector/uvlib.c SCM_RESULT = Scm_ReadBlockX(v, port, start, end, endian);
v 9010 ext/uvector/uvlib.c ScmUVector* v;
v 9025 ext/uvector/uvlib.c v = SCM_UVECTOR(v_scm);
v 9056 ext/uvector/uvlib.c SCM_RESULT = Scm_WriteBlock(v, port, start, end, endian);
v 9152 ext/uvector/uvlib.c static ScmObj string_to_bytevectorX(ScmUVector *v, int tstart, ScmString *s, int start, int end)
v 9155 ext/uvector/uvlib.c int tlen = SCM_UVECTOR_SIZE(v), i;
v 9157 ext/uvector/uvlib.c if (tstart >= tlen || tstart < 0) return SCM_OBJ(v);
v 9158 ext/uvector/uvlib.c SCM_UVECTOR_CHECK_MUTABLE(v);
v 9166 ext/uvector/uvlib.c buf = (char *)SCM_UVECTOR_ELEMENTS(v) + tstart;
v 9172 ext/uvector/uvlib.c return SCM_OBJ(v);
v 9177 ext/uvector/uvlib.c ScmS8Vector* v;
v 9192 ext/uvector/uvlib.c v = SCM_S8VECTOR(v_scm);
v 9214 ext/uvector/uvlib.c SCM_RETURN(string_to_bytevectorX(SCM_UVECTOR(v), tstart, s, start, end));
v 9224 ext/uvector/uvlib.c ScmU8Vector* v;
v 9239 ext/uvector/uvlib.c v = SCM_U8VECTOR(v_scm);
v 9261 ext/uvector/uvlib.c SCM_RETURN(string_to_bytevectorX(SCM_UVECTOR(v), tstart, s, start, end));
v 9268 ext/uvector/uvlib.c static ScmObj bytevector_to_string(ScmUVector *v, int start, int end)
v 9270 ext/uvector/uvlib.c int len = SCM_UVECTOR_SIZE(v);
v 9272 ext/uvector/uvlib.c return Scm_MakeString((char *)(SCM_UVECTOR_ELEMENTS(v)+start),
v 9278 ext/uvector/uvlib.c ScmS8Vector* v;
v 9289 ext/uvector/uvlib.c v = SCM_S8VECTOR(v_scm);
v 9305 ext/uvector/uvlib.c SCM_RETURN(bytevector_to_string(SCM_UVECTOR(v), start, end));
v 9315 ext/uvector/uvlib.c ScmU8Vector* v;
v 9326 ext/uvector/uvlib.c v = SCM_U8VECTOR(v_scm);
v 9342 ext/uvector/uvlib.c SCM_RETURN(bytevector_to_string(SCM_UVECTOR(v), start, end));
v 9352 ext/uvector/uvlib.c ScmObj v; ScmInt32 *eltp;
v 9359 ext/uvector/uvlib.c v = Scm_MakeUVector(klass, end - start, NULL);
v 9360 ext/uvector/uvlib.c eltp = (ScmInt32*)SCM_UVECTOR_ELEMENTS(v);
v 9367 ext/uvector/uvlib.c SCM_RETURN(v);
v 9443 ext/uvector/uvlib.c static ScmObj wordvector_to_string(ScmUVector *v, int start, int end)
v 9445 ext/uvector/uvlib.c int len = SCM_UVECTOR_SIZE(v);
v 9449 ext/uvector/uvlib.c eltp = (ScmInt32*)SCM_UVECTOR_ELEMENTS(v);
v 9459 ext/uvector/uvlib.c ScmS32Vector* v;
v 9470 ext/uvector/uvlib.c v = SCM_S32VECTOR(v_scm);
v 9486 ext/uvector/uvlib.c SCM_RETURN(wordvector_to_string(SCM_UVECTOR(v), start, end));
v 9496 ext/uvector/uvlib.c ScmU32Vector* v;
v 9507 ext/uvector/uvlib.c v = SCM_U32VECTOR(v_scm);
v 9523 ext/uvector/uvlib.c SCM_RETURN(wordvector_to_string(SCM_UVECTOR(v), start, end));
v 417 ext/vport/vport.c static void SCM_CPP_CAT3(vport_,name,_set) (ScmObj p, ScmObj v) \
v 421 ext/vport/vport.c data->SCM_CPP_CAT(name,_proc) = v; \
v 665 ext/vport/vport.c static void SCM_CPP_CAT3(bport_,name,_set) (ScmObj p, ScmObj v) \
v 669 ext/vport/vport.c data->SCM_CPP_CAT(name,_proc) = v; \
v 20 gc/mach_dep.c # define _longjmp(b,v) longjmp(b,v)
v 1194 gc/os_dep.c DWORD v = GetVersion();
v 1195 gc/os_dep.c GC_no_win32_dlls |= ((v & 0x80000000) && (v & 0xff) <= 3);
v 95 gc/pthread_support.c # define GC_setspecific(key, v) ((key) = (v), 0)
v 706 src/bignum.c ScmObj v = SCM_CAR(args);
v 707 src/bignum.c if (SCM_INTP(v)) {
v 708 src/bignum.c r = bignum_add_si(r, SCM_INT_VALUE(v));
v 711 src/bignum.c if (SCM_BIGNUMP(v)) {
v 712 src/bignum.c r = bignum_add(r, SCM_BIGNUM(v));
v 715 src/bignum.c if (SCM_FLONUMP(v) || SCM_COMPLEXP(v)) {
v 717 src/bignum.c return Scm_Add(z, v, SCM_CDR(args));
v 720 src/bignum.c return Scm_Add(Scm_NormalizeBignum(r), v, SCM_CDR(args));
v 729 src/bignum.c ScmObj v = SCM_CAR(args);
v 730 src/bignum.c if (SCM_INTP(v)) {
v 731 src/bignum.c r = bignum_add_si(r, -SCM_INT_VALUE(v));
v 734 src/bignum.c if (SCM_BIGNUMP(v)) {
v 735 src/bignum.c r = bignum_sub(r, SCM_BIGNUM(v));
v 738 src/bignum.c if (SCM_FLONUMP(v) || SCM_COMPLEXP(v)) {
v 740 src/bignum.c return Scm_Subtract(z, v, SCM_CDR(args));
v 742 src/bignum.c Scm_Error("number expected, but got %S", v);
v 900 src/bignum.c ScmObj v = SCM_CAR(args);
v 901 src/bignum.c if (SCM_INTP(v)) {
v 902 src/bignum.c r = bignum_mul_si(r, SCM_INT_VALUE(v));
v 905 src/bignum.c if (SCM_BIGNUMP(v)) {
v 906 src/bignum.c r = bignum_mul(r, SCM_BIGNUM(v));
v 909 src/bignum.c if (SCM_FLONUMP(v) || SCM_COMPLEXP(v)) {
v 911 src/bignum.c return Scm_Multiply(f, v, SCM_CDR(args));
v 913 src/bignum.c Scm_Error("number expected, but got %S", v);
v 941 src/bignum.c ScmBignum *u, *v;
v 951 src/bignum.c #define SETDIGIT(num, n, v) \
v 953 src/bignum.c (num->values[(n)/2] = (num->values[(n)/2] & LOMASK)|((v) << HALF_BITS)) :\
v 954 src/bignum.c (num->values[(n)/2] = (num->values[(n)/2] & HIMASK)|((v) & LOMASK)))
v 955 src/bignum.c #define SETDIGIT2(num, n, v) \
v 957 src/bignum.c ((num->values[(n)/2] = LO(num->values[(n)/2])|((v)<<HALF_BITS)), \
v 958 src/bignum.c (num->values[(n)/2+1] = (num->values[(n)/2+1] & HIMASK)|HI(v))) : \
v 959 src/bignum.c (num->values[(n)/2] = (v)))
v 963 src/bignum.c ALLOC_TEMP_BIGNUM(v, divisor->size);
v 973 src/bignum.c bignum_lshift(v, divisor, d);
v 974 src/bignum.c vn_1 = DIGIT(v, n-1);
v 975 src/bignum.c vn_2 = DIGIT(v, n-2);
v 980 src/bignum.c Scm_Printf(SCM_CUROUT, "\nv="); Scm_DumpBignum(v, SCM_CUROUT);
v 1002 src/bignum.c vv = qq * DIGIT(v, k);
v 1017 src/bignum.c vv = DIGIT(v, k);
v 195 src/class.c ScmClass **v, **vp;
v 196 src/class.c v = vp = SCM_NEW_ARRAY(ScmClass*, len+1);
v 204 src/class.c return v;
v 966 src/class.c ScmObj v;
v 968 src/class.c v = Scm_SymbolValue(module, SCM_SYMBOL(name));
v 969 src/class.c return SCM_CLASSP(v) ? v : SCM_FALSE;
v 1195 src/class.c ScmObj v = Scm_GetKeyword(sa->initKeyword, initargs, SCM_UNDEFINED);
v 1196 src/class.c if (!SCM_UNDEFINEDP(v)) {
v 1197 src/class.c return slot_set_using_accessor(obj, sa, v);
v 1702 src/class.c static void slot_accessor_class_set(ScmSlotAccessor *sa, ScmObj v)
v 1704 src/class.c if (!Scm_TypeP(v, SCM_CLASS_CLASS)) {
v 1705 src/class.c Scm_Error(":class argument must be a class metaobject, but got %S", v);
v 1707 src/class.c sa->klass = SCM_CLASS(v);
v 1715 src/class.c static void slot_accessor_name_set(ScmSlotAccessor *sa, ScmObj v)
v 1717 src/class.c sa->name = v;
v 1725 src/class.c static void slot_accessor_init_value_set(ScmSlotAccessor *sa, ScmObj v)
v 1727 src/class.c sa->initValue = v;
v 1735 src/class.c static void slot_accessor_init_keyword_set(ScmSlotAccessor *sa, ScmObj v)
v 1737 src/class.c sa->initKeyword = v;
v 1745 src/class.c static void slot_accessor_init_thunk_set(ScmSlotAccessor *sa, ScmObj v)
v 1747 src/class.c sa->initThunk = v;
v 1768 src/class.c static void slot_accessor_initializable_set(ScmSlotAccessor *sa, ScmObj v)
v 1770 src/class.c sa->initializable = SCM_FALSEP(v)? FALSE : TRUE;
v 2543 src/class.c static void accessor_method_slot_accessor_set(ScmAccessorMethod *m, ScmObj v)
v 2545 src/class.c if (!SCM_SLOT_ACCESSOR_P(v)) {
v 2546 src/class.c Scm_Error("slot accessor required, but got %S", v);
v 2548 src/class.c m->data = v;
v 341 src/extlib.c ScmObj v = Scm_MakeVector(3, SCM_FALSE);
v 342 src/extlib.c SCM_VECTOR_ELEMENT(v, 0) = f;
v 343 src/extlib.c SCM_VECTOR_ELEMENT(v, 1) = Scm_MakeInteger(exp);
v 344 src/extlib.c SCM_VECTOR_ELEMENT(v, 2) = Scm_MakeInteger(sign);
v 345 src/extlib.c SCM_RETURN(v);
v 347 src/extlib.c ScmObj v = Scm_MakeVector(3, SCM_FALSE);
v 348 src/extlib.c SCM_VECTOR_ELEMENT(v, 0) = Scm_Abs(num);
v 349 src/extlib.c SCM_VECTOR_ELEMENT(v, 1) = Scm_MakeInteger(0);
v 350 src/extlib.c SCM_VECTOR_ELEMENT(v, 2) = Scm_MakeInteger(Scm_Sign(num));
v 351 src/extlib.c SCM_RETURN(v);
v 2715 src/extlib.c ScmVector* v;
v 2728 src/extlib.c v = SCM_VECTOR(v_scm);
v 2752 src/extlib.c SCM_RESULT = Scm_VectorCopy(v, start, end, fill);
v 1258 src/gauche.h SCM_EXTERN ScmObj Scm_VectorToList(ScmVector *v, int start, int end);
v 1672 src/gauche.h SCM_EXTERN ScmObj Scm_WeakVectorRef(ScmWeakVector *v, int index, ScmObj fallback);
v 1673 src/gauche.h SCM_EXTERN ScmObj Scm_WeakVectorSet(ScmWeakVector *v, int index, ScmObj val);
v 96 src/gauche/arith.h #define UADDOV(r, v, x, y) \
v 99 src/gauche/arith.h (v) = ((r) < (x))? 1 : 0; \
v 112 src/gauche/arith.h #define SADDOV(r, v, x, y) \
v 116 src/gauche/arith.h if ((y) >= 0 && (r) < 0) (v) = 1; \
v 117 src/gauche/arith.h else (v) = 0; \
v 119 src/gauche/arith.h if ((y) < 0 && (r) >= 0) (v) = -1; \
v 120 src/gauche/arith.h else (v) = 0; \
v 150 src/gauche/arith.h #define USUBOV(r, v, x, y) \
v 153 src/gauche/arith.h (v) = ((r) > (x))? 1 : 0; \
v 166 src/gauche/arith.h #define SSUBOV(r, v, x, y) \
v 170 src/gauche/arith.h if ((y) < 0 && (r) <= 0) (v) = 1; \
v 171 src/gauche/arith.h else (v) = 0; \
v 173 src/gauche/arith.h if ((y) >= 0 && (r) > 0) (v) = -1; \
v 174 src/gauche/arith.h else (v) = 0; \
v 213 src/gauche/arith.h #define UMULOV(r, v, x, y) \
v 215 src/gauche/arith.h if ((x)==0 || (y)==0) { (v) = (r) = 0; } \
v 219 src/gauche/arith.h (v) = (t5_)? 1 : 0; \
v 233 src/gauche/arith.h #define SMULOV(r, v, x, y) \
v 238 src/gauche/arith.h UMULOV(t6_, v, x, y); \
v 239 src/gauche/arith.h if ((v) || t6_ > LONG_MAX) (v) = 1; \
v 242 src/gauche/arith.h UMULOV(t6_, v, x, -y); \
v 243 src/gauche/arith.h if ((v) || t6_ > LONG_MAX+1UL) (v) = -1; \
v 248 src/gauche/arith.h UMULOV(t6_, v, -x, y); \
v 249 src/gauche/arith.h if ((v) || t6_ > LONG_MAX+1UL) (v) = -1; \
v 252 src/gauche/arith.h UMULOV(t6_, v, -x, -y); \
v 253 src/gauche/arith.h if ((v) || t6_ > LONG_MAX) (v) = 1; \
v 70 src/gauche/arith_i386.h #define UADDOV(r, v, x, y) \
v 75 src/gauche/arith_i386.h : "=&r" (r), "=&r" (v) \
v 85 src/gauche/arith_i386.h #define SADDOV(r, v, x, y) \
v 94 src/gauche/arith_i386.h : "=&r" (r), "=&r" (v) \
v 120 src/gauche/arith_i386.h #define USUBOV(r, v, x, y) \
v 125 src/gauche/arith_i386.h : "=&r" (r), "=&r"(v) \
v 135 src/gauche/arith_i386.h #define SSUBOV(r, v, x, y) \
v 144 src/gauche/arith_i386.h : "=&r" (r), "=&r" (v) \
v 173 src/gauche/arith_i386.h #define UMULOV(r, v, x, y) \
v 176 src/gauche/arith_i386.h : "=a" (r), "=r" (v) \
v 188 src/gauche/arith_i386.h #define SMULOV(r, v, x, y) \
v 196 src/gauche/arith_i386.h : "=a" (r), "=r" (v) \
v 383 src/hash.c int mode, void *v)
v 388 src/hash.c ScmObj key = SCM_OBJ(k), value = SCM_OBJ(v);
v 450 src/hash.c int mode, void *v)
v 464 src/hash.c e->value = v;
v 471 src/hash.c else return insert_entry(table, k, v, index);
v 745 src/hash.c ScmVector *v = SCM_VECTOR(Scm_MakeVector(table->numBuckets, SCM_NIL));
v 755 src/hash.c for (vp = SCM_VECTOR_ELEMENTS(v), i = 0; i<table->numBuckets; i++, vp++) {
v 762 src/hash.c SCM_APPEND1(h, t, SCM_OBJ(v));
v 1530 src/intlib.c ScmObj v = Scm_MakeVector(LVAR_SIZE, SCM_MAKE_INT(0));
v 1531 src/intlib.c SCM_VECTOR_ELEMENT(v, LVAR_OFFSET_TAG) = sym_lvar;
v 1532 src/intlib.c SCM_VECTOR_ELEMENT(v, LVAR_OFFSET_NAME) = SCM_CAR(names);
v 1533 src/intlib.c SCM_VECTOR_ELEMENT(v, LVAR_OFFSET_INITVAL) = SCM_UNDEFINED;
v 1534 src/intlib.c SCM_APPEND1(h, t, v);
v 358 src/main.c ScmObj v = SCM_CDR(p);
v 361 src/main.c Scm_AddLoadPath(Scm_GetStringConst(SCM_STRING(v)), FALSE);
v 364 src/main.c Scm_AddLoadPath(Scm_GetStringConst(SCM_STRING(v)), TRUE);
v 367 src/main.c Scm_Load(Scm_GetStringConst(SCM_STRING(v)), 0);
v 370 src/main.c Scm_Require(Scm_StringJoin(Scm_StringSplitByChar(SCM_STRING(v),
v 375 src/main.c SCM_LIST1(Scm_Intern(SCM_STRING(v))));
v 378 src/main.c Scm_Eval(Scm_ReadFromString(SCM_STRING(v)),
v 382 src/main.c v = Scm_StringAppend(SCM_LIST3(SCM_MAKE_STR("("),
v 383 src/main.c v,
v 385 src/main.c Scm_Eval(Scm_ReadFromString(SCM_STRING(v)),
v 342 src/number.c double v = SCM_FLONUM_VALUE(obj);
v 343 src/number.c if (v > (double)LONG_MAX) {
v 347 src/number.c if (v < (double)LONG_MIN) {
v 351 src/number.c return (long)v;
v 375 src/number.c double v = SCM_FLONUM_VALUE(obj);
v 376 src/number.c if (v > (double)ULONG_MAX) {
v 380 src/number.c if (v < 0.0) {
v 384 src/number.c return (u_long)v;
v 515 src/number.c long v = SCM_INT_VALUE(obj);
v 516 src/number.c r.lo = v;
v 517 src/number.c if (v < 0) r.hi = ULONG_MAX;
v 546 src/number.c double v;
v 550 src/number.c v = SCM_FLONUM_VALUE(obj);
v 551 src/number.c if (v > (double)maxval) {
v 554 src/number.c } else if (v < (double)minval) {
v 558 src/number.c return (long)v;
v 577 src/number.c long v = SCM_INT_VALUE(obj);
v 578 src/number.c if (v < 0) {
v 581 src/number.c r.lo = v;
v 605 src/number.c long v = SCM_INT_VALUE(obj);
v 606 src/number.c if (v < 0) {
v 610 src/number.c return (ScmUInt64)v;
v 617 src/number.c double v = SCM_FLONUM_VALUE(obj);
v 620 src/number.c if (v < 0) {
v 625 src/number.c if (v > (double)maxval) {
v 629 src/number.c return (uint32_t)v;
v 693 src/number.c long v = SCM_INT_VALUE(obj);
v 694 src/number.c if (v < 0) obj = SCM_MAKE_INT(-v);
v 701 src/number.c double v = SCM_FLONUM_VALUE(obj);
v 702 src/number.c if (v < 0) obj = Scm_MakeFlonum(-v);
v 727 src/number.c double v = SCM_FLONUM_VALUE(obj);
v 728 src/number.c if (v != 0.0) {
v 729 src/number.c r = (v > 0.0)? 1 : -1;
v 742 src/number.c long v = SCM_INT_VALUE(obj);
v 743 src/number.c if (v == SCM_SMALL_INT_MIN) {
v 744 src/number.c obj = Scm_MakeBignumFromSI(-v);
v 746 src/number.c obj = SCM_MAKE_INT(-v);
v 865 src/number.c #define APPLY_GENERIC_ARITH(v, gf, arg0, arg1, args) \
v 867 src/number.c v = Scm_Apply(SCM_OBJ(&gf), SCM_LIST2(arg0, arg1)); \
v 868 src/number.c if (SCM_NULLP(args)) return v; \
v 1708 src/number.c static double roundeven(double v)
v 1711 src/number.c double frac = modf(v, &r);
v 1712 src/number.c if (v > 0.0) {
v 1729 src/number.c double r = 0.0, v;
v 1734 src/number.c v = SCM_FLONUM_VALUE(num);
v 1736 src/number.c case SCM_ROUND_FLOOR: r = floor(v); break;
v 1737 src/number.c case SCM_ROUND_CEIL: r = ceil(v); break;
v 1740 src/number.c case SCM_ROUND_TRUNC: r = trunc(v); break;
v 1742 src/number.c case SCM_ROUND_TRUNC: r = (v < 0.0)? ceil(v) : floor(v); break;
v 1744 src/number.c case SCM_ROUND_ROUND: r = roundeven(v); break;
v 696 src/stdlib.c ScmObj v;
v 699 src/stdlib.c v = (v_scm);
v 703 src/stdlib.c SCM_RESULT = (Scm_Round(v, SCM_ROUND_FLOOR));
v 715 src/stdlib.c ScmObj v;
v 718 src/stdlib.c v = (v_scm);
v 722 src/stdlib.c SCM_RESULT = (Scm_Round(v, SCM_ROUND_CEIL));
v 734 src/stdlib.c ScmObj v;
v 737 src/stdlib.c v = (v_scm);
v 741 src/stdlib.c SCM_RESULT = (Scm_Round(v, SCM_ROUND_TRUNC));
v 753 src/stdlib.c ScmObj v;
v 756 src/stdlib.c v = (v_scm);
v 760 src/stdlib.c SCM_RESULT = (Scm_Round(v, SCM_ROUND_ROUND));
v 2344 src/syslib.c double v = Scm_GetDouble(nanoseconds);
v 2345 src/syslib.c if (v < 0) Scm_Error("bad timeout spec: positive number required, but got %S", nanoseconds);
v 2346 src/syslib.c spec.tv_sec = (unsigned long)floor(v/1.0e9);
v 2347 src/syslib.c spec.tv_nsec = (unsigned long)fmod(v, 1.0e9);
v 59 src/vector.c ScmVector *v = SCM_NEW2(ScmVector *,
v 61 src/vector.c SCM_SET_CLASS(v, SCM_CLASS_VECTOR);
v 62 src/vector.c v->size = size;
v 63 src/vector.c return v;
v 69 src/vector.c ScmVector *v;
v 73 src/vector.c v = make_vector(size);
v 75 src/vector.c for (i=0; i<size; i++) v->elements[i] = fill;
v 76 src/vector.c return SCM_OBJ(v);
v 81 src/vector.c ScmVector *v;
v 89 src/vector.c v = make_vector(size - start);
v 92 src/vector.c v = make_vector(end - start);
v 99 src/vector.c v->elements[i] = SCM_CAR(e);
v 101 src/vector.c return SCM_OBJ(v);
v 104 src/vector.c ScmObj Scm_VectorToList(ScmVector *v, int start, int end)
v 106 src/vector.c int len = SCM_VECTOR_SIZE(v);
v 108 src/vector.c return Scm_ArrayToList(SCM_VECTOR_ELEMENTS(v)+start,
v 148 src/vector.c ScmVector *v = NULL;
v 154 src/vector.c v = make_vector(0);
v 157 src/vector.c v = make_vector(end - start);
v 160 src/vector.c SCM_VECTOR_ELEMENT(v, i) = fill;
v 162 src/vector.c SCM_VECTOR_ELEMENT(v, i) = SCM_VECTOR_ELEMENT(vec, i+start);
v 166 src/vector.c return SCM_OBJ(v);
v 149 src/vm.c ScmVM *v = SCM_NEW(ScmVM);
v 152 src/vm.c SCM_SET_CLASS(v, SCM_CLASS_VM);
v 153 src/vm.c v->state = SCM_VM_NEW;
v 154 src/vm.c (void)SCM_INTERNAL_MUTEX_INIT(v->vmlock);
v 155 src/vm.c (void)SCM_INTERNAL_COND_INIT(v->cond);
v 156 src/vm.c v->canceller = NULL;
v 157 src/vm.c v->name = name;
v 158 src/vm.c v->specific = SCM_FALSE;
v 159 src/vm.c v->thunk = NULL;
v 160 src/vm.c v->result = SCM_UNDEFINED;
v 161 src/vm.c v->resultException = SCM_UNDEFINED;
v 162 src/vm.c v->module = proto ? proto->module : Scm_SchemeModule();
v 163 src/vm.c v->cstack = proto ? proto->cstack : NULL;
v 165 src/vm.c v->curin = SCM_PORT(Scm_Stdin());
v 166 src/vm.c v->curout = SCM_PORT(Scm_Stdout());
v 167 src/vm.c v->curerr = SCM_PORT(Scm_Stderr());
v 169 src/vm.c Scm_ParameterTableInit(&(v->parameters), proto);
v 171 src/vm.c v->compilerFlags = proto? proto->compilerFlags : 0;
v 172 src/vm.c v->runtimeFlags = proto? proto->runtimeFlags : 0;
v 173 src/vm.c v->queueNotEmpty = 0;
v 176 src/vm.c v->stack = (ScmObj*)GC_generic_malloc((SCM_VM_STACK_SIZE+1)*sizeof(ScmObj),
v 178 src/vm.c *v->stack++ = SCM_OBJ(v);
v 180 src/vm.c v->stack = SCM_NEW_ARRAY(ScmObj, SCM_VM_STACK_SIZE);
v 182 src/vm.c v->sp = v->stack;
v 183 src/vm.c v->stackBase = v->stack;
v 184 src/vm.c v->stackEnd = v->stack + SCM_VM_STACK_SIZE;
v 186 src/vm.c v->env = NULL;
v 187 src/vm.c v->argp = v->stack;
v 188 src/vm.c v->cont = NULL;
v 189 src/vm.c v->pc = PC_TO_RETURN;
v 190 src/vm.c v->base = NULL;
v 191 src/vm.c v->val0 = SCM_UNDEFINED;
v 192 src/vm.c for (i=0; i<SCM_VM_MAX_VALUES; i++) v->vals[i] = SCM_UNDEFINED;
v 193 src/vm.c v->numVals = 1;
v 195 src/vm.c v->handlers = SCM_NIL;
v 197 src/vm.c v->exceptionHandler = DEFAULT_EXCEPTION_HANDLER;
v 198 src/vm.c v->escapePoint = v->escapePointFloating = NULL;
v 199 src/vm.c v->escapeReason = SCM_VM_ESCAPE_NONE;
v 200 src/vm.c v->escapeData[0] = NULL;
v 201 src/vm.c v->escapeData[1] = NULL;
v 202 src/vm.c v->defaultEscapeHandler = SCM_FALSE;
v 204 src/vm.c v->load_history = SCM_NIL;
v 205 src/vm.c v->load_next = SCM_NIL;
v 206 src/vm.c v->load_port = SCM_FALSE;
v 207 src/vm.c v->evalSituation = SCM_VM_EXECUTING;
v 209 src/vm.c sigemptyset(&v->sigMask);
v 210 src/vm.c Scm_SignalQueueInit(&v->sigq);
v 213 src/vm.c v->stat.sovCount = 0;
v 214 src/vm.c v->stat.sovTime = 0;
v 215 src/vm.c v->profilerRunning = FALSE;
v 216 src/vm.c v->prof = NULL;
v 219 src/vm.c v->thread = (pthread_t)NULL;
v 222 src/vm.c return v;
v 605 src/vm.c #define GLOBAL_REF(v) \
v 608 src/vm.c FETCH_OPERAND(v); \
v 609 src/vm.c if (!SCM_GLOCP(v)) { \
v 610 src/vm.c VM_ASSERT(SCM_IDENTIFIERP(v)); \
v 611 src/vm.c gloc = Scm_FindBinding(SCM_IDENTIFIER(v)->module, \
v 612 src/vm.c SCM_IDENTIFIER(v)->name, \
v 616 src/vm.c SCM_IDENTIFIER(v)->name)); \
v 621 src/vm.c gloc = SCM_GLOC(v); \
v 623 src/vm.c v = SCM_GLOC_GET(gloc); \
v 624 src/vm.c if (v == SCM_UNBOUND) { \
v 626 src/vm.c } else if (SCM_AUTOLOADP(v)) { \
v 628 src/vm.c v = Scm_LoadAutoload(SCM_AUTOLOAD(v)); \
v 1042 src/vm.c ScmObj v;
v 1043 src/vm.c POP_ARG(v);
v 1044 src/vm.c if (!SCM_EQ(VAL0, v)) {
v 1052 src/vm.c ScmObj v;
v 1053 src/vm.c POP_ARG(v);
v 1054 src/vm.c if (!Scm_EqvP(VAL0, v)) {
v 1073 src/vm.c ScmObj v;
v 1074 src/vm.c GLOBAL_REF(v);
v 1075 src/vm.c VAL0 = v;
v 1079 src/vm.c ScmObj v;
v 1080 src/vm.c GLOBAL_REF(v);
v 1081 src/vm.c *SP++ = v;
v 1096 src/vm.c ScmObj v;
v 1097 src/vm.c GLOBAL_REF(v);
v 1098 src/vm.c VAL0 = v;
v 1113 src/vm.c ScmObj v;
v 1114 src/vm.c GLOBAL_REF(v);
v 1115 src/vm.c VAL0 = v;
v 2198 src/vm.c ScmObj v = VAL0;
v 2199 src/vm.c if (SCM_INTP(v)) {
v 2200 src/vm.c long r = -SCM_INT_VALUE(v);
v 2206 src/vm.c } else if (SCM_FLONUMP(v)) {
v 2207 src/vm.c VAL0 = Scm_MakeFlonum(-Scm_GetDouble(v));
v 2210 src/vm.c VAL0 = Scm_Negate(v);
v 2787 src/vm.c ScmObj v = SCM_NIL;
v 2791 src/vm.c v = Scm_Compile(expr, e);
v 2793 src/vm.c Scm_CompiledCodeDump(SCM_COMPILED_CODE(v));
v 2800 src/vm.c ScmObj body = Scm_MakeClosure(v, get_env(vm));
v 2808 src/vm.c SCM_ASSERT(SCM_COMPILED_CODE_P(v));
v 2809 src/vm.c vm->base = SCM_COMPILED_CODE(v);
v 2810 src/vm.c vm->pc = SCM_COMPILED_CODE(v)->code;
v 2811 src/vm.c SCM_PROF_COUNT_CALL(vm, v);
v 2932 src/vm.c ScmObj v = SCM_NIL;
v 2933 src/vm.c v = Scm_Compile(expr, e);
v 2934 src/vm.c SCM_COMPILED_CODE(v)->name = SCM_SYM_INTERNAL_EVAL;
v 2936 src/vm.c Scm_CompiledCodeDump(SCM_COMPILED_CODE(v));
v 2938 src/vm.c return user_eval_inner(v, NULL);
v 55 src/weak.c ScmWeakVector *v = SCM_WEAK_VECTOR(obj);
v 56 src/weak.c ScmObj *ptrs = (ScmObj*)v->pointers;
v 57 src/weak.c Scm_Printf(port, "#,(<weak-vector> %d", v->size);
v 58 src/weak.c for (i=0; i<v->size; i++) {
v 69 src/weak.c ScmWeakVector *v = SCM_WEAK_VECTOR(obj);
v 70 src/weak.c ScmObj *p = (ScmObj*)v->pointers;
v 71 src/weak.c for (i=0; i<v->size; i++) {
v 87 src/weak.c ScmWeakVector *v = SCM_NEW(ScmWeakVector);
v 89 src/weak.c SCM_SET_CLASS(v, SCM_CLASS_WEAK_VECTOR);
v 90 src/weak.c v->size = size;
v 95 src/weak.c v->pointers = (void*)p;
v 96 src/weak.c Scm_RegisterFinalizer(SCM_OBJ(v), weakvector_finalize, NULL);
v 97 src/weak.c return SCM_OBJ(v);
v 100 src/weak.c ScmObj Scm_WeakVectorRef(ScmWeakVector *v, int index, ScmObj fallback)
v 103 src/weak.c if (index < 0 || index >= v->size) {
v 110 src/weak.c p = (ScmObj*)v->pointers;
v 119 src/weak.c ScmObj Scm_WeakVectorSet(ScmWeakVector *v, int index, ScmObj value)
v 122 src/weak.c if (index < 0 || index >= v->size) {
v 125 src/weak.c p = (ScmObj*)v->pointers;