x 79 ext/auxsys/auxsyslib.c double x;
x 85 ext/auxsys/auxsyslib.c x = Scm_GetDouble(x_scm);
x 92 ext/auxsys/auxsyslib.c SCM_RESULT = fmod(x, y);
x 125 ext/auxsys/auxsyslib.c double x;
x 129 ext/auxsys/auxsyslib.c x = Scm_GetDouble(x_scm);
x 134 ext/auxsys/auxsyslib.c SCM_RESULT0 = modf(x, &SCM_RESULT1);
x 146 ext/auxsys/auxsyslib.c double x;
x 152 ext/auxsys/auxsyslib.c x = Scm_GetDouble(x_scm);
x 159 ext/auxsys/auxsyslib.c SCM_RESULT = ldexp(x, exp);
x 171 ext/auxsys/auxsyslib.c double x;
x 175 ext/auxsys/auxsyslib.c x = Scm_GetDouble(x_scm);
x 179 ext/auxsys/auxsyslib.c SCM_RESULT = log10(x);
x 40 ext/binary/binary.c #define IPORT(var, x) \
x 42 ext/binary/binary.c if (SCM_FALSEP(x)) { \
x 44 ext/binary/binary.c } else if (SCM_IPORTP(x)) { \
x 45 ext/binary/binary.c (var) = SCM_PORT(x); \
x 47 ext/binary/binary.c Scm_Error("input port or #f is expected, but got: %S", x); \
x 52 ext/binary/binary.c #define OPORT(var, x) \
x 54 ext/binary/binary.c if (SCM_FALSEP(x)) { \
x 56 ext/binary/binary.c } else if (SCM_OPORTP(x)) { \
x 57 ext/binary/binary.c (var) = SCM_PORT(x); \
x 59 ext/binary/binary.c Scm_Error("output port or #f is expected, but got: %S", x); \
x 148 ext/digest/md5c.c #define F1(x, y, z) (z ^ (x & (y ^ z)))
x 149 ext/digest/md5c.c #define F2(x, y, z) F1(z, x, y)
x 150 ext/digest/md5c.c #define F3(x, y, z) (x ^ y ^ z)
x 151 ext/digest/md5c.c #define F4(x, y, z) (y ^ (x | ~z))
x 154 ext/digest/md5c.c #define MD5STEP(f, w, x, y, z, data, s) \
x 155 ext/digest/md5c.c ( w += f(x, y, z) + data, w = w<<s | w>>(32-s), w += x )
x 82 ext/digest/sha.c #define f1(x,y,z) ( z ^ (x & (y ^ z) ) ) /* Rounds 0-19 */
x 83 ext/digest/sha.c #define f2(x,y,z) ( x ^ y ^ z ) /* Rounds 20-39 */
x 84 ext/digest/sha.c #define f3(x,y,z) ( (x & y) + (z & (x ^ y) ) ) /* Rounds 40-59 */
x 85 ext/digest/sha.c #define f4(x,y,z) ( x ^ y ^ z ) /* Rounds 60-79 */
x 1133 ext/net/netlib.c u_int x;
x 1137 ext/net/netlib.c x = Scm_GetIntegerU(x_scm);
x 1141 ext/net/netlib.c SCM_RESULT = ntohl(x);
x 1153 ext/net/netlib.c u_int x;
x 1157 ext/net/netlib.c x = Scm_GetIntegerU(x_scm);
x 1161 ext/net/netlib.c SCM_RESULT = ntohs(x);
x 1173 ext/net/netlib.c u_int x;
x 1177 ext/net/netlib.c x = Scm_GetIntegerU(x_scm);
x 1181 ext/net/netlib.c SCM_RESULT = htonl(x);
x 1193 ext/net/netlib.c u_int x;
x 1197 ext/net/netlib.c x = Scm_GetIntegerU(x_scm);
x 1201 ext/net/netlib.c SCM_RESULT = htons(x);
x 140 ext/uvector/uvector.c static void size_mismatch(const char *name, ScmObj x, ScmObj y)
x 142 ext/uvector/uvector.c Scm_Error("%s: argument object sizes do not match: %S vs %S", name, x, y);
x 155 ext/uvector/uvector.c static ArgType arg2_check(const char *name, ScmObj x, ScmObj y, int const_ok)
x 157 ext/uvector/uvector.c int size = SCM_UVECTOR_SIZE(x);
x 159 ext/uvector/uvector.c if (SCM_UVECTOR_SIZE(y) != size) size_mismatch(name, SCM_OBJ(x), y);
x 162 ext/uvector/uvector.c if (SCM_VECTOR_SIZE(y) != size) size_mismatch(name, SCM_OBJ(x), y);
x 165 ext/uvector/uvector.c if (Scm_Length(y) != size) size_mismatch(name, SCM_OBJ(x), y);
x 178 ext/uvector/uvector.c static inline int int64eqv(ScmInt64 x, ScmInt64 y)
x 181 ext/uvector/uvector.c return (x.hi == y.hi && x.lo == y.lo);
x 183 ext/uvector/uvector.c return x == y;
x 187 ext/uvector/uvector.c static inline int uint64eqv(ScmUInt64 x, ScmUInt64 y)
x 190 ext/uvector/uvector.c return (x.hi == y.hi && x.lo == y.lo);
x 192 ext/uvector/uvector.c return x == y;
x 223 ext/uvector/uvector.c #define s8s8_add(x, y, clamp) clamp_s8(x+y, clamp)
x 224 ext/uvector/uvector.c #define s8s8_sub(x, y, clamp) clamp_s8(x-y, clamp)
x 225 ext/uvector/uvector.c #define s8s8_mul(x, y, clamp) clamp_s8(x*y, clamp)
x 227 ext/uvector/uvector.c static inline long s8g_add(long x, long y, int clamp)
x 231 ext/uvector/uvector.c return clamp_s8(x+y, clamp);
x 234 ext/uvector/uvector.c static inline long s8g_sub(long x, long y, int clamp)
x 238 ext/uvector/uvector.c return clamp_s8(x-y, clamp);
x 241 ext/uvector/uvector.c static inline long s8g_mul(long x, long y, int clamp)
x 243 ext/uvector/uvector.c if (x == 0) return 0;
x 244 ext/uvector/uvector.c if (y > 128) return (x>0)?range_s8hi(0, clamp):range_s8lo(0, clamp);
x 245 ext/uvector/uvector.c return clamp_s8(x*y, clamp);
x 248 ext/uvector/uvector.c #define u8u8_add(x, y, clamp) clamp_u8(x+y, clamp)
x 249 ext/uvector/uvector.c #define u8u8_sub(x, y, clamp) clamp_u8((long)(x-y), clamp)
x 250 ext/uvector/uvector.c #define u8u8_mul(x, y, clamp) clamp_u8(x*y, clamp)
x 252 ext/uvector/uvector.c static inline u_long u8g_add(u_long x, u_long y, int clamp)
x 255 ext/uvector/uvector.c return clamp_u8(x+y, clamp);
x 258 ext/uvector/uvector.c static inline u_long u8g_sub(u_long x, u_long y, int clamp)
x 260 ext/uvector/uvector.c if (y > x) return range_u8lo(0, clamp);
x 261 ext/uvector/uvector.c return x-y; /* never overflows */
x 264 ext/uvector/uvector.c static inline u_long u8g_mul(u_long x, u_long y, int clamp)
x 266 ext/uvector/uvector.c if (x == 0) return 0;
x 268 ext/uvector/uvector.c return clamp_u8(x*y, clamp);
x 271 ext/uvector/uvector.c #define s16s16_add(x, y, clamp) clamp_s16(x+y, clamp)
x 272 ext/uvector/uvector.c #define s16s16_sub(x, y, clamp) clamp_s16(x-y, clamp)
x 273 ext/uvector/uvector.c #define s16s16_mul(x, y, clamp) clamp_s16(x*y, clamp)
x 275 ext/uvector/uvector.c static inline long s16g_add(long x, long y, int clamp)
x 279 ext/uvector/uvector.c return clamp_s16(x+y, clamp);
x 282 ext/uvector/uvector.c static inline long s16g_sub(long x, long y, int clamp)
x 286 ext/uvector/uvector.c return clamp_s16(x-y, clamp);
x 289 ext/uvector/uvector.c static inline long s16g_mul(long x, long y, int clamp)
x 291 ext/uvector/uvector.c if (x == 0) return 0;
x 292 ext/uvector/uvector.c if (y > 32767) return (x>0)?range_s16hi(0, clamp):range_s16lo(0, clamp);
x 293 ext/uvector/uvector.c return clamp_s16(x*y, clamp);
x 296 ext/uvector/uvector.c #define u16u16_add(x, y, clamp) clamp_u16(x+y, clamp)
x 297 ext/uvector/uvector.c #define u16u16_sub(x, y, clamp) clamp_u16((long)(x-y), clamp)
x 298 ext/uvector/uvector.c #define u16u16_mul(x, y, clamp) clamp_u16(x*y, clamp)
x 300 ext/uvector/uvector.c static inline u_long u16g_add(u_long x, u_long y, int clamp)
x 303 ext/uvector/uvector.c return clamp_u16(x+y, clamp);
x 306 ext/uvector/uvector.c static inline u_long u16g_sub(u_long x, u_long y, int clamp)
x 308 ext/uvector/uvector.c if (y > x) return range_u16lo(0, clamp);
x 309 ext/uvector/uvector.c return x-y; /* never overflows */
x 312 ext/uvector/uvector.c static inline u_long u16g_mul(u_long x, u_long y, int clamp)
x 314 ext/uvector/uvector.c if (x == 0) return 0;
x 316 ext/uvector/uvector.c return clamp_u16(x*y, clamp);
x 320 ext/uvector/uvector.c #define s32s32_add(x, y, clamp) s32_add_safe(x, y, clamp)
x 321 ext/uvector/uvector.c #define s32s32_sub(x, y, clamp) s32_sub_safe(x, y, clamp)
x 322 ext/uvector/uvector.c #define s32s32_mul(x, y, clamp) s32_mul_safe(x, y, clamp)
x 323 ext/uvector/uvector.c #define s32g_add(x, y, clamp) s32_add_safe(x, y, clamp)
x 324 ext/uvector/uvector.c #define s32g_sub(x, y, clamp) s32_sub_safe(x, y, clamp)
x 325 ext/uvector/uvector.c #define s32g_mul(x, y, clamp) s32_mul_safe(x, y, clamp)
x 327 ext/uvector/uvector.c #define s32s32_add(x, y, clamp) clamp_s32(x+y, clamp)
x 328 ext/uvector/uvector.c #define s32s32_sub(x, y, clamp) clamp_s32(x-y, clamp)
x 329 ext/uvector/uvector.c #define s32s32_mul(x, y, clamp) clamp_s32(x*y, clamp)
x 330 ext/uvector/uvector.c #define s32g_add(x, y, clamp) s32_add_safe(x, y, clamp)
x 331 ext/uvector/uvector.c #define s32g_sub(x, y, clamp) s32_sub_safe(x, y, clamp)
x 332 ext/uvector/uvector.c #define s32g_mul(x, y, clamp) s32_mul_safe(x, y, clamp)
x 335 ext/uvector/uvector.c static inline long s32_add_safe(long x, long y, int clamp)
x 338 ext/uvector/uvector.c SADDOV(r, v, x, y);
x 345 ext/uvector/uvector.c static inline long s32_sub_safe(long x, long y, int clamp)
x 348 ext/uvector/uvector.c SSUBOV(r, v, x, y);
x 354 ext/uvector/uvector.c static inline long s32_mul_safe(long x, long y, int clamp)
x 357 ext/uvector/uvector.c SMULOV(r, v, x, y);
x 364 ext/uvector/uvector.c #define u32u32_add(x, y, clamp) u32_add_safe(x, y, clamp)
x 365 ext/uvector/uvector.c #define u32u32_sub(x, y, clamp) u32_sub_safe(x, y, clamp)
x 366 ext/uvector/uvector.c #define u32u32_mul(x, y, clamp) u32_mul_safe(x, y, clamp)
x 367 ext/uvector/uvector.c #define u32g_add(x, y, clamp) u32_add_safe(x, y, clamp)
x 368 ext/uvector/uvector.c #define u32g_sub(x, y, clamp) u32_sub_safe(x, y, clamp)
x 369 ext/uvector/uvector.c #define u32g_mul(x, y, clamp) u32_mul_safe(x, y, clamp)
x 371 ext/uvector/uvector.c #define u32u32_add(x, y, clamp) clamp_u32(x+y, clamp)
x 372 ext/uvector/uvector.c #define u32u32_sub(x, y, clamp) u32_sub_safe(x, y, clamp)
x 373 ext/uvector/uvector.c #define u32u32_mul(x, y, clamp) clamp_u32(x*y, clamp)
x 374 ext/uvector/uvector.c #define u32g_add(x, y, clamp) u32_add_safe(x, y, clamp)
x 375 ext/uvector/uvector.c #define u32g_sub(x, y, clamp) u32_sub_safe(x, y, clamp)
x 376 ext/uvector/uvector.c #define u32g_mul(x, y, clamp) u32_mul_safe(x, y, clamp)
x 379 ext/uvector/uvector.c static inline u_long u32_add_safe(u_long x, u_long y, int clamp)
x 382 ext/uvector/uvector.c UADDOV(r, v, x, y);
x 387 ext/uvector/uvector.c static inline u_long u32_sub_safe(u_long x, u_long y, int clamp)
x 390 ext/uvector/uvector.c USUBOV(r, v, x, y);
x 395 ext/uvector/uvector.c static inline u_long u32_mul_safe(u_long x, u_long y, int clamp)
x 398 ext/uvector/uvector.c UMULOV(r, v, x, y);
x 403 ext/uvector/uvector.c #define s64s64_add(x, y, clamp) s64g_add(x, y, clamp)
x 404 ext/uvector/uvector.c #define s64s64_sub(x, y, clamp) s64g_sub(x, y, clamp)
x 405 ext/uvector/uvector.c #define s64s64_mul(x, y, clamp) s64g_mul(x, y, clamp)
x 407 ext/uvector/uvector.c static inline ScmInt64 s64g_add(ScmInt64 x, ScmInt64 y, int clamp)
x 410 ext/uvector/uvector.c ScmObj xx = Scm_MakeInteger64(x);
x 416 ext/uvector/uvector.c SADDOV(r, v, x, y);
x 423 ext/uvector/uvector.c static inline ScmInt64 s64g_sub(ScmInt64 x, ScmInt64 y, int clamp)
x 426 ext/uvector/uvector.c ScmObj xx = Scm_MakeInteger64(x);
x 432 ext/uvector/uvector.c SSUBOV(r, v, x, y);
x 439 ext/uvector/uvector.c static inline ScmInt64 s64g_mul(ScmInt64 x, ScmInt64 y, int clamp)
x 442 ext/uvector/uvector.c ScmObj xx = Scm_MakeInteger64(x);
x 448 ext/uvector/uvector.c SMULOV(r, v, x, y);
x 455 ext/uvector/uvector.c #define u64u64_add(x, y, clamp) u64g_add(x, y, clamp)
x 456 ext/uvector/uvector.c #define u64u64_sub(x, y, clamp) u64g_sub(x, y, clamp)
x 457 ext/uvector/uvector.c #define u64u64_mul(x, y, clamp) u64g_mul(x, y, clamp)
x 459 ext/uvector/uvector.c static inline ScmUInt64 u64g_add(ScmUInt64 x, ScmUInt64 y, int clamp)
x 462 ext/uvector/uvector.c ScmObj xx = Scm_MakeIntegerU64(x);
x 468 ext/uvector/uvector.c UADDOV(r, v, x, y);
x 474 ext/uvector/uvector.c static inline ScmUInt64 u64g_sub(ScmUInt64 x, ScmUInt64 y, int clamp)
x 477 ext/uvector/uvector.c ScmObj xx = Scm_MakeIntegerU64(x);
x 483 ext/uvector/uvector.c USUBOV(r, v, x, y);
x 489 ext/uvector/uvector.c static inline ScmUInt64 u64g_mul(ScmUInt64 x, ScmUInt64 y, int clamp)
x 492 ext/uvector/uvector.c ScmObj xx = Scm_MakeIntegerU64(x);
x 498 ext/uvector/uvector.c UMULOV(r, v, x, y);
x 504 ext/uvector/uvector.c #define f32f32_add(x, y, clamp) (x+y)
x 505 ext/uvector/uvector.c #define f32f32_sub(x, y, clamp) (x-y)
x 506 ext/uvector/uvector.c #define f32f32_mul(x, y, clamp) (x*y)
x 507 ext/uvector/uvector.c #define f32f32_div(x, y, clamp) (x/y)
x 509 ext/uvector/uvector.c #define f32g_add(x, y, clamp) (x+y)
x 510 ext/uvector/uvector.c #define f32g_sub(x, y, clamp) (x-y)
x 511 ext/uvector/uvector.c #define f32g_mul(x, y, clamp) (x*y)
x 512 ext/uvector/uvector.c #define f32g_div(x, y, clamp) (x/y)
x 514 ext/uvector/uvector.c #define f64f64_add(x, y, clamp) (x+y)
x 515 ext/uvector/uvector.c #define f64f64_sub(x, y, clamp) (x-y)
x 516 ext/uvector/uvector.c #define f64f64_mul(x, y, clamp) (x*y)
x 517 ext/uvector/uvector.c #define f64f64_div(x, y, clamp) (x/y)
x 519 ext/uvector/uvector.c #define f64g_add(x, y, clamp) (x+y)
x 520 ext/uvector/uvector.c #define f64g_sub(x, y, clamp) (x-y)
x 521 ext/uvector/uvector.c #define f64g_mul(x, y, clamp) (x*y)
x 522 ext/uvector/uvector.c #define f64g_div(x, y, clamp) (x/y)
x 527 ext/uvector/uvector.c static inline long s8num(ScmObj x, int *oor)
x 529 ext/uvector/uvector.c return Scm_GetIntegerClamp(x, SCM_CLAMP_NONE, oor);
x 532 ext/uvector/uvector.c #define s16num(x, oor) s8num(x, oor)
x 533 ext/uvector/uvector.c #define s32num(x, oor) s8num(x, oor)
x 535 ext/uvector/uvector.c static inline u_long u8num(ScmObj x, int *oor)
x 537 ext/uvector/uvector.c return Scm_GetIntegerUClamp(x, SCM_CLAMP_NONE, oor);
x 540 ext/uvector/uvector.c #define u16num(x, oor) u8num(x, oor)
x 541 ext/uvector/uvector.c #define u32num(x, oor) u8num(x, oor)
x 543 ext/uvector/uvector.c static inline ScmInt64 s64num(ScmObj x, int *oor)
x 545 ext/uvector/uvector.c return Scm_GetInteger64Clamp(x, SCM_CLAMP_NONE, oor);
x 548 ext/uvector/uvector.c static inline ScmUInt64 u64num(ScmObj x, int *oor)
x 550 ext/uvector/uvector.c return Scm_GetIntegerU64Clamp(x, SCM_CLAMP_NONE, oor);
x 553 ext/uvector/uvector.c #define f32num(x, oor) ((*oor = FALSE),((float)Scm_GetDouble(x)))
x 554 ext/uvector/uvector.c #define f64num(x, oor) ((*oor = FALSE), Scm_GetDouble(x))
x 557 ext/uvector/uvector.c static inline u_long bitext(ScmObj x)
x 559 ext/uvector/uvector.c if (SCM_INTP(x)) return (u_long)SCM_INT_VALUE(x);
x 560 ext/uvector/uvector.c if (SCM_BIGNUMP(x)) {
x 561 ext/uvector/uvector.c if (SCM_BIGNUM_SIGN(x) > 0) {
x 562 ext/uvector/uvector.c return SCM_BIGNUM(x)->values[0];
x 564 ext/uvector/uvector.c return ~(SCM_BIGNUM(x)->values[0]) + 1;
x 567 ext/uvector/uvector.c Scm_Error("integer required, but got %S", x);
x 571 ext/uvector/uvector.c static inline ScmUInt64 bitext64(ScmObj x)
x 575 ext/uvector/uvector.c if (SCM_INTP(x)) r.lo = SCM_INT_VALUE(x);
x 576 ext/uvector/uvector.c else if (SCM_BIGNUMP(x)) {
x 577 ext/uvector/uvector.c ScmObj xx = Scm_LogAnd(x, SCM_2_64_MINUS_1);
x 585 ext/uvector/uvector.c if (SCM_INTP(x)) r = SCM_INT_VALUE(x);
x 586 ext/uvector/uvector.c else if (SCM_BIGNUMP(x)) {
x 587 ext/uvector/uvector.c ScmObj xx = Scm_LogAnd(x, SCM_2_64_MINUS_1);
x 594 ext/uvector/uvector.c Scm_Error("integer required, but got %S", x);
x 599 ext/uvector/uvector.c #define INT64BITOP(r, x, op, y) ((r.lo = x.lo op y.lo), (r.hi = x.hi op y.hi))
x 601 ext/uvector/uvector.c #define INT64BITOP(r, x, op, y) (r = x op y)
x 605 ext/uvector/uvector.c static inline long s8muladd(long x, long y, long acc, ScmObj *sacc)
x 608 ext/uvector/uvector.c m = x * y;
x 618 ext/uvector/uvector.c #define s16muladd(x, y, acc, sacc) s8muladd(x, y, acc, sacc)
x 620 ext/uvector/uvector.c static inline long s32muladd(long x, long y, long acc, ScmObj *sacc)
x 623 ext/uvector/uvector.c SMULOV(m, v, x, y);
x 625 ext/uvector/uvector.c *sacc = Scm_Add2(*sacc, Scm_Multiply2(Scm_MakeInteger(x),
x 640 ext/uvector/uvector.c static inline ScmInt64 s64muladd(ScmInt64 x, ScmInt64 y, ScmInt64 acc, ScmObj *sacc)
x 643 ext/uvector/uvector.c *sacc = Scm_Add2(*sacc, Scm_Multiply2(Scm_MakeInteger64(x),
x 648 ext/uvector/uvector.c #define s64muladd(x, y, acc, sacc) s32muladd(x, y, acc, sacc)
x 651 ext/uvector/uvector.c static inline u_long u8muladd(u_long x, u_long y, u_long acc, ScmObj *sacc)
x 654 ext/uvector/uvector.c m = x * y;
x 664 ext/uvector/uvector.c #define u16muladd(x, y, acc, sacc) u8muladd(x, y, acc, sacc)
x 666 ext/uvector/uvector.c static inline u_long u32muladd(u_long x, u_long y, u_long acc, ScmObj *sacc)
x 669 ext/uvector/uvector.c UMULOV(m, v, x, y);
x 671 ext/uvector/uvector.c *sacc = Scm_Add2(*sacc, Scm_Multiply2(Scm_MakeIntegerU(x),
x 686 ext/uvector/uvector.c static inline ScmUInt64 u64muladd(ScmUInt64 x, ScmUInt64 y, ScmUInt64 acc, ScmObj *sacc)
x 689 ext/uvector/uvector.c *sacc = Scm_Add2(*sacc, Scm_Multiply2(Scm_MakeIntegerU64(x),
x 694 ext/uvector/uvector.c #define u64muladd(x, y, acc, sacc) u32muladd(x, y, acc, sacc)
x 697 ext/uvector/uvector.c #define f32muladd(x, y, acc, sacc) (acc + x*y)
x 698 ext/uvector/uvector.c #define f64muladd(x, y, acc, sacc) (acc + x*y)
x 707 ext/uvector/uvector.c #define SWAP(x, y) (t = dd.c[x], dd.c[x] = dd.c[y], dd.c[y] = t)
x 770 ext/uvector/uvector.c static int compare_s8vector(ScmObj x, ScmObj y, int equalp)
x 772 ext/uvector/uvector.c int len = SCM_S8VECTOR_SIZE(x), i;
x 776 ext/uvector/uvector.c xx = SCM_S8VECTOR_ELEMENTS(x)[i];
x 974 ext/uvector/uvector.c static int compare_u8vector(ScmObj x, ScmObj y, int equalp)
x 976 ext/uvector/uvector.c int len = SCM_U8VECTOR_SIZE(x), i;
x 980 ext/uvector/uvector.c xx = SCM_U8VECTOR_ELEMENTS(x)[i];
x 1178 ext/uvector/uvector.c static int compare_s16vector(ScmObj x, ScmObj y, int equalp)
x 1180 ext/uvector/uvector.c int len = SCM_S16VECTOR_SIZE(x), i;
x 1184 ext/uvector/uvector.c xx = SCM_S16VECTOR_ELEMENTS(x)[i];
x 1382 ext/uvector/uvector.c static int compare_u16vector(ScmObj x, ScmObj y, int equalp)
x 1384 ext/uvector/uvector.c int len = SCM_U16VECTOR_SIZE(x), i;
x 1388 ext/uvector/uvector.c xx = SCM_U16VECTOR_ELEMENTS(x)[i];
x 1586 ext/uvector/uvector.c static int compare_s32vector(ScmObj x, ScmObj y, int equalp)
x 1588 ext/uvector/uvector.c int len = SCM_S32VECTOR_SIZE(x), i;
x 1592 ext/uvector/uvector.c xx = SCM_S32VECTOR_ELEMENTS(x)[i];
x 1790 ext/uvector/uvector.c static int compare_u32vector(ScmObj x, ScmObj y, int equalp)
x 1792 ext/uvector/uvector.c int len = SCM_U32VECTOR_SIZE(x), i;
x 1796 ext/uvector/uvector.c xx = SCM_U32VECTOR_ELEMENTS(x)[i];
x 1994 ext/uvector/uvector.c static int compare_s64vector(ScmObj x, ScmObj y, int equalp)
x 1996 ext/uvector/uvector.c int len = SCM_S64VECTOR_SIZE(x), i;
x 2000 ext/uvector/uvector.c xx = SCM_S64VECTOR_ELEMENTS(x)[i];
x 2198 ext/uvector/uvector.c static int compare_u64vector(ScmObj x, ScmObj y, int equalp)
x 2200 ext/uvector/uvector.c int len = SCM_U64VECTOR_SIZE(x), i;
x 2204 ext/uvector/uvector.c xx = SCM_U64VECTOR_ELEMENTS(x)[i];
x 2402 ext/uvector/uvector.c static int compare_f32vector(ScmObj x, ScmObj y, int equalp)
x 2404 ext/uvector/uvector.c int len = SCM_F32VECTOR_SIZE(x), i;
x 2408 ext/uvector/uvector.c xx = SCM_F32VECTOR_ELEMENTS(x)[i];
x 2606 ext/uvector/uvector.c static int compare_f64vector(ScmObj x, ScmObj y, int equalp)
x 2608 ext/uvector/uvector.c int len = SCM_F64VECTOR_SIZE(x), i;
x 2612 ext/uvector/uvector.c xx = SCM_F64VECTOR_ELEMENTS(x)[i];
x 6645 ext/uvector/uvector.c ScmObj Scm_S8VectorDotProd(ScmS8Vector *x, ScmObj y)
x 6647 ext/uvector/uvector.c int i, size = SCM_S8VECTOR_SIZE(x), oor;
x 6652 ext/uvector/uvector.c switch (arg2_check("s8vector-dot", SCM_OBJ(x), y, FALSE)) {
x 6655 ext/uvector/uvector.c vx = SCM_S8VECTOR_ELEMENTS(x)[i];
x 6662 ext/uvector/uvector.c vx = SCM_S8VECTOR_ELEMENTS(x)[i];
x 6675 ext/uvector/uvector.c vx = SCM_S8VECTOR_ELEMENTS(x)[i];
x 6698 ext/uvector/uvector.c ScmObj Scm_U8VectorDotProd(ScmU8Vector *x, ScmObj y)
x 6700 ext/uvector/uvector.c int i, size = SCM_U8VECTOR_SIZE(x), oor;
x 6705 ext/uvector/uvector.c switch (arg2_check("u8vector-dot", SCM_OBJ(x), y, FALSE)) {
x 6708 ext/uvector/uvector.c vx = SCM_U8VECTOR_ELEMENTS(x)[i];
x 6715 ext/uvector/uvector.c vx = SCM_U8VECTOR_ELEMENTS(x)[i];
x 6728 ext/uvector/uvector.c vx = SCM_U8VECTOR_ELEMENTS(x)[i];
x 6751 ext/uvector/uvector.c ScmObj Scm_S16VectorDotProd(ScmS16Vector *x, ScmObj y)
x 6753 ext/uvector/uvector.c int i, size = SCM_S16VECTOR_SIZE(x), oor;
x 6758 ext/uvector/uvector.c switch (arg2_check("s16vector-dot", SCM_OBJ(x), y, FALSE)) {
x 6761 ext/uvector/uvector.c vx = SCM_S16VECTOR_ELEMENTS(x)[i];
x 6768 ext/uvector/uvector.c vx = SCM_S16VECTOR_ELEMENTS(x)[i];
x 6781 ext/uvector/uvector.c vx = SCM_S16VECTOR_ELEMENTS(x)[i];
x 6804 ext/uvector/uvector.c ScmObj Scm_U16VectorDotProd(ScmU16Vector *x, ScmObj y)
x 6806 ext/uvector/uvector.c int i, size = SCM_U16VECTOR_SIZE(x), oor;
x 6811 ext/uvector/uvector.c switch (arg2_check("u16vector-dot", SCM_OBJ(x), y, FALSE)) {
x 6814 ext/uvector/uvector.c vx = SCM_U16VECTOR_ELEMENTS(x)[i];
x 6821 ext/uvector/uvector.c vx = SCM_U16VECTOR_ELEMENTS(x)[i];
x 6834 ext/uvector/uvector.c vx = SCM_U16VECTOR_ELEMENTS(x)[i];
x 6857 ext/uvector/uvector.c ScmObj Scm_S32VectorDotProd(ScmS32Vector *x, ScmObj y)
x 6859 ext/uvector/uvector.c int i, size = SCM_S32VECTOR_SIZE(x), oor;
x 6864 ext/uvector/uvector.c switch (arg2_check("s32vector-dot", SCM_OBJ(x), y, FALSE)) {
x 6867 ext/uvector/uvector.c vx = SCM_S32VECTOR_ELEMENTS(x)[i];
x 6874 ext/uvector/uvector.c vx = SCM_S32VECTOR_ELEMENTS(x)[i];
x 6887 ext/uvector/uvector.c vx = SCM_S32VECTOR_ELEMENTS(x)[i];
x 6910 ext/uvector/uvector.c ScmObj Scm_U32VectorDotProd(ScmU32Vector *x, ScmObj y)
x 6912 ext/uvector/uvector.c int i, size = SCM_U32VECTOR_SIZE(x), oor;
x 6917 ext/uvector/uvector.c switch (arg2_check("u32vector-dot", SCM_OBJ(x), y, FALSE)) {
x 6920 ext/uvector/uvector.c vx = SCM_U32VECTOR_ELEMENTS(x)[i];
x 6927 ext/uvector/uvector.c vx = SCM_U32VECTOR_ELEMENTS(x)[i];
x 6940 ext/uvector/uvector.c vx = SCM_U32VECTOR_ELEMENTS(x)[i];
x 6963 ext/uvector/uvector.c ScmObj Scm_S64VectorDotProd(ScmS64Vector *x, ScmObj y)
x 6965 ext/uvector/uvector.c int i, size = SCM_S64VECTOR_SIZE(x), oor;
x 6970 ext/uvector/uvector.c switch (arg2_check("s64vector-dot", SCM_OBJ(x), y, FALSE)) {
x 6973 ext/uvector/uvector.c vx = SCM_S64VECTOR_ELEMENTS(x)[i];
x 6980 ext/uvector/uvector.c vx = SCM_S64VECTOR_ELEMENTS(x)[i];
x 6993 ext/uvector/uvector.c vx = SCM_S64VECTOR_ELEMENTS(x)[i];
x 7016 ext/uvector/uvector.c ScmObj Scm_U64VectorDotProd(ScmU64Vector *x, ScmObj y)
x 7018 ext/uvector/uvector.c int i, size = SCM_U64VECTOR_SIZE(x), oor;
x 7023 ext/uvector/uvector.c switch (arg2_check("u64vector-dot", SCM_OBJ(x), y, FALSE)) {
x 7026 ext/uvector/uvector.c vx = SCM_U64VECTOR_ELEMENTS(x)[i];
x 7033 ext/uvector/uvector.c vx = SCM_U64VECTOR_ELEMENTS(x)[i];
x 7046 ext/uvector/uvector.c vx = SCM_U64VECTOR_ELEMENTS(x)[i];
x 7069 ext/uvector/uvector.c ScmObj Scm_F32VectorDotProd(ScmF32Vector *x, ScmObj y)
x 7071 ext/uvector/uvector.c int i, size = SCM_F32VECTOR_SIZE(x), oor;
x 7076 ext/uvector/uvector.c switch (arg2_check("f32vector-dot", SCM_OBJ(x), y, FALSE)) {
x 7079 ext/uvector/uvector.c vx = SCM_F32VECTOR_ELEMENTS(x)[i];
x 7086 ext/uvector/uvector.c vx = SCM_F32VECTOR_ELEMENTS(x)[i];
x 7099 ext/uvector/uvector.c vx = SCM_F32VECTOR_ELEMENTS(x)[i];
x 7122 ext/uvector/uvector.c ScmObj Scm_F64VectorDotProd(ScmF64Vector *x, ScmObj y)
x 7124 ext/uvector/uvector.c int i, size = SCM_F64VECTOR_SIZE(x), oor;
x 7129 ext/uvector/uvector.c switch (arg2_check("f64vector-dot", SCM_OBJ(x), y, FALSE)) {
x 7132 ext/uvector/uvector.c vx = SCM_F64VECTOR_ELEMENTS(x)[i];
x 7139 ext/uvector/uvector.c vx = SCM_F64VECTOR_ELEMENTS(x)[i];
x 7152 ext/uvector/uvector.c vx = SCM_F64VECTOR_ELEMENTS(x)[i];
x 7176 ext/uvector/uvector.c ScmObj Scm_S8VectorRangeCheck(ScmS8Vector *x, ScmObj min, ScmObj max)
x 7178 ext/uvector/uvector.c int i, size = SCM_S8VECTOR_SIZE(x);
x 7187 ext/uvector/uvector.c else mintype = arg2_check("s8vector-range-check", SCM_OBJ(x), min, TRUE);
x 7190 ext/uvector/uvector.c else maxtype = arg2_check("s8vector-range-check", SCM_OBJ(x), max, TRUE);
x 7204 ext/uvector/uvector.c val = SCM_S8VECTOR_ELEMENTS(x)[i];
x 7250 ext/uvector/uvector.c ScmObj Scm_S8VectorClamp(ScmS8Vector *x, ScmObj min, ScmObj max)
x 7252 ext/uvector/uvector.c int i, size = SCM_S8VECTOR_SIZE(x);
x 7257 ext/uvector/uvector.c ScmObj d = Scm_MakeUVector(Scm_ClassOf(SCM_OBJ(x)), SCM_UVECTOR_SIZE(x), SCM_UVECTOR_ELEMENTS(x));
x 7261 ext/uvector/uvector.c else mintype = arg2_check("s8vector-clamp", SCM_OBJ(x), min, TRUE);
x 7264 ext/uvector/uvector.c else maxtype = arg2_check("s8vector-clamp", SCM_OBJ(x), max, TRUE);
x 7278 ext/uvector/uvector.c val = SCM_S8VECTOR_ELEMENTS(x)[i];
x 7324 ext/uvector/uvector.c ScmObj Scm_S8VectorClampX(ScmS8Vector *x, ScmObj min, ScmObj max)
x 7326 ext/uvector/uvector.c int i, size = SCM_S8VECTOR_SIZE(x);
x 7335 ext/uvector/uvector.c else mintype = arg2_check("s8vector-clamp!", SCM_OBJ(x), min, TRUE);
x 7338 ext/uvector/uvector.c else maxtype = arg2_check("s8vector-clamp!", SCM_OBJ(x), max, TRUE);
x 7352 ext/uvector/uvector.c val = SCM_S8VECTOR_ELEMENTS(x)[i];
x 7388 ext/uvector/uvector.c SCM_S8VECTOR_ELEMENTS(x)[i] = val;
x 7392 ext/uvector/uvector.c SCM_S8VECTOR_ELEMENTS(x)[i] = val;
x 7395 ext/uvector/uvector.c return SCM_OBJ(x);
x 7398 ext/uvector/uvector.c ScmObj Scm_U8VectorRangeCheck(ScmU8Vector *x, ScmObj min, ScmObj max)
x 7400 ext/uvector/uvector.c int i, size = SCM_U8VECTOR_SIZE(x);
x 7409 ext/uvector/uvector.c else mintype = arg2_check("u8vector-range-check", SCM_OBJ(x), min, TRUE);
x 7412 ext/uvector/uvector.c else maxtype = arg2_check("u8vector-range-check", SCM_OBJ(x), max, TRUE);
x 7426 ext/uvector/uvector.c val = SCM_U8VECTOR_ELEMENTS(x)[i];
x 7472 ext/uvector/uvector.c ScmObj Scm_U8VectorClamp(ScmU8Vector *x, ScmObj min, ScmObj max)
x 7474 ext/uvector/uvector.c int i, size = SCM_U8VECTOR_SIZE(x);
x 7479 ext/uvector/uvector.c ScmObj d = Scm_MakeUVector(Scm_ClassOf(SCM_OBJ(x)), SCM_UVECTOR_SIZE(x), SCM_UVECTOR_ELEMENTS(x));
x 7483 ext/uvector/uvector.c else mintype = arg2_check("u8vector-clamp", SCM_OBJ(x), min, TRUE);
x 7486 ext/uvector/uvector.c else maxtype = arg2_check("u8vector-clamp", SCM_OBJ(x), max, TRUE);
x 7500 ext/uvector/uvector.c val = SCM_U8VECTOR_ELEMENTS(x)[i];
x 7546 ext/uvector/uvector.c ScmObj Scm_U8VectorClampX(ScmU8Vector *x, ScmObj min, ScmObj max)
x 7548 ext/uvector/uvector.c int i, size = SCM_U8VECTOR_SIZE(x);
x 7557 ext/uvector/uvector.c else mintype = arg2_check("u8vector-clamp!", SCM_OBJ(x), min, TRUE);
x 7560 ext/uvector/uvector.c else maxtype = arg2_check("u8vector-clamp!", SCM_OBJ(x), max, TRUE);
x 7574 ext/uvector/uvector.c val = SCM_U8VECTOR_ELEMENTS(x)[i];
x 7610 ext/uvector/uvector.c SCM_U8VECTOR_ELEMENTS(x)[i] = val;
x 7614 ext/uvector/uvector.c SCM_U8VECTOR_ELEMENTS(x)[i] = val;
x 7617 ext/uvector/uvector.c return SCM_OBJ(x);
x 7620 ext/uvector/uvector.c ScmObj Scm_S16VectorRangeCheck(ScmS16Vector *x, ScmObj min, ScmObj max)
x 7622 ext/uvector/uvector.c int i, size = SCM_S16VECTOR_SIZE(x);
x 7631 ext/uvector/uvector.c else mintype = arg2_check("s16vector-range-check", SCM_OBJ(x), min, TRUE);
x 7634 ext/uvector/uvector.c else maxtype = arg2_check("s16vector-range-check", SCM_OBJ(x), max, TRUE);
x 7648 ext/uvector/uvector.c val = SCM_S16VECTOR_ELEMENTS(x)[i];
x 7694 ext/uvector/uvector.c ScmObj Scm_S16VectorClamp(ScmS16Vector *x, ScmObj min, ScmObj max)
x 7696 ext/uvector/uvector.c int i, size = SCM_S16VECTOR_SIZE(x);
x 7701 ext/uvector/uvector.c ScmObj d = Scm_MakeUVector(Scm_ClassOf(SCM_OBJ(x)), SCM_UVECTOR_SIZE(x), SCM_UVECTOR_ELEMENTS(x));
x 7705 ext/uvector/uvector.c else mintype = arg2_check("s16vector-clamp", SCM_OBJ(x), min, TRUE);
x 7708 ext/uvector/uvector.c else maxtype = arg2_check("s16vector-clamp", SCM_OBJ(x), max, TRUE);
x 7722 ext/uvector/uvector.c val = SCM_S16VECTOR_ELEMENTS(x)[i];
x 7768 ext/uvector/uvector.c ScmObj Scm_S16VectorClampX(ScmS16Vector *x, ScmObj min, ScmObj max)
x 7770 ext/uvector/uvector.c int i, size = SCM_S16VECTOR_SIZE(x);
x 7779 ext/uvector/uvector.c else mintype = arg2_check("s16vector-clamp!", SCM_OBJ(x), min, TRUE);
x 7782 ext/uvector/uvector.c else maxtype = arg2_check("s16vector-clamp!", SCM_OBJ(x), max, TRUE);
x 7796 ext/uvector/uvector.c val = SCM_S16VECTOR_ELEMENTS(x)[i];
x 7832 ext/uvector/uvector.c SCM_S16VECTOR_ELEMENTS(x)[i] = val;
x 7836 ext/uvector/uvector.c SCM_S16VECTOR_ELEMENTS(x)[i] = val;
x 7839 ext/uvector/uvector.c return SCM_OBJ(x);
x 7842 ext/uvector/uvector.c ScmObj Scm_U16VectorRangeCheck(ScmU16Vector *x, ScmObj min, ScmObj max)
x 7844 ext/uvector/uvector.c int i, size = SCM_U16VECTOR_SIZE(x);
x 7853 ext/uvector/uvector.c else mintype = arg2_check("u16vector-range-check", SCM_OBJ(x), min, TRUE);
x 7856 ext/uvector/uvector.c else maxtype = arg2_check("u16vector-range-check", SCM_OBJ(x), max, TRUE);
x 7870 ext/uvector/uvector.c val = SCM_U16VECTOR_ELEMENTS(x)[i];
x 7916 ext/uvector/uvector.c ScmObj Scm_U16VectorClamp(ScmU16Vector *x, ScmObj min, ScmObj max)
x 7918 ext/uvector/uvector.c int i, size = SCM_U16VECTOR_SIZE(x);
x 7923 ext/uvector/uvector.c ScmObj d = Scm_MakeUVector(Scm_ClassOf(SCM_OBJ(x)), SCM_UVECTOR_SIZE(x), SCM_UVECTOR_ELEMENTS(x));
x 7927 ext/uvector/uvector.c else mintype = arg2_check("u16vector-clamp", SCM_OBJ(x), min, TRUE);
x 7930 ext/uvector/uvector.c else maxtype = arg2_check("u16vector-clamp", SCM_OBJ(x), max, TRUE);
x 7944 ext/uvector/uvector.c val = SCM_U16VECTOR_ELEMENTS(x)[i];
x 7990 ext/uvector/uvector.c ScmObj Scm_U16VectorClampX(ScmU16Vector *x, ScmObj min, ScmObj max)
x 7992 ext/uvector/uvector.c int i, size = SCM_U16VECTOR_SIZE(x);
x 8001 ext/uvector/uvector.c else mintype = arg2_check("u16vector-clamp!", SCM_OBJ(x), min, TRUE);
x 8004 ext/uvector/uvector.c else maxtype = arg2_check("u16vector-clamp!", SCM_OBJ(x), max, TRUE);
x 8018 ext/uvector/uvector.c val = SCM_U16VECTOR_ELEMENTS(x)[i];
x 8054 ext/uvector/uvector.c SCM_U16VECTOR_ELEMENTS(x)[i] = val;
x 8058 ext/uvector/uvector.c SCM_U16VECTOR_ELEMENTS(x)[i] = val;
x 8061 ext/uvector/uvector.c return SCM_OBJ(x);
x 8064 ext/uvector/uvector.c ScmObj Scm_S32VectorRangeCheck(ScmS32Vector *x, ScmObj min, ScmObj max)
x 8066 ext/uvector/uvector.c int i, size = SCM_S32VECTOR_SIZE(x);
x 8075 ext/uvector/uvector.c else mintype = arg2_check("s32vector-range-check", SCM_OBJ(x), min, TRUE);
x 8078 ext/uvector/uvector.c else maxtype = arg2_check("s32vector-range-check", SCM_OBJ(x), max, TRUE);
x 8092 ext/uvector/uvector.c val = SCM_S32VECTOR_ELEMENTS(x)[i];
x 8138 ext/uvector/uvector.c ScmObj Scm_S32VectorClamp(ScmS32Vector *x, ScmObj min, ScmObj max)
x 8140 ext/uvector/uvector.c int i, size = SCM_S32VECTOR_SIZE(x);
x 8145 ext/uvector/uvector.c ScmObj d = Scm_MakeUVector(Scm_ClassOf(SCM_OBJ(x)), SCM_UVECTOR_SIZE(x), SCM_UVECTOR_ELEMENTS(x));
x 8149 ext/uvector/uvector.c else mintype = arg2_check("s32vector-clamp", SCM_OBJ(x), min, TRUE);
x 8152 ext/uvector/uvector.c else maxtype = arg2_check("s32vector-clamp", SCM_OBJ(x), max, TRUE);
x 8166 ext/uvector/uvector.c val = SCM_S32VECTOR_ELEMENTS(x)[i];
x 8212 ext/uvector/uvector.c ScmObj Scm_S32VectorClampX(ScmS32Vector *x, ScmObj min, ScmObj max)
x 8214 ext/uvector/uvector.c int i, size = SCM_S32VECTOR_SIZE(x);
x 8223 ext/uvector/uvector.c else mintype = arg2_check("s32vector-clamp!", SCM_OBJ(x), min, TRUE);
x 8226 ext/uvector/uvector.c else maxtype = arg2_check("s32vector-clamp!", SCM_OBJ(x), max, TRUE);
x 8240 ext/uvector/uvector.c val = SCM_S32VECTOR_ELEMENTS(x)[i];
x 8276 ext/uvector/uvector.c SCM_S32VECTOR_ELEMENTS(x)[i] = val;
x 8280 ext/uvector/uvector.c SCM_S32VECTOR_ELEMENTS(x)[i] = val;
x 8283 ext/uvector/uvector.c return SCM_OBJ(x);
x 8286 ext/uvector/uvector.c ScmObj Scm_U32VectorRangeCheck(ScmU32Vector *x, ScmObj min, ScmObj max)
x 8288 ext/uvector/uvector.c int i, size = SCM_U32VECTOR_SIZE(x);
x 8297 ext/uvector/uvector.c else mintype = arg2_check("u32vector-range-check", SCM_OBJ(x), min, TRUE);
x 8300 ext/uvector/uvector.c else maxtype = arg2_check("u32vector-range-check", SCM_OBJ(x), max, TRUE);
x 8314 ext/uvector/uvector.c val = SCM_U32VECTOR_ELEMENTS(x)[i];
x 8360 ext/uvector/uvector.c ScmObj Scm_U32VectorClamp(ScmU32Vector *x, ScmObj min, ScmObj max)
x 8362 ext/uvector/uvector.c int i, size = SCM_U32VECTOR_SIZE(x);
x 8367 ext/uvector/uvector.c ScmObj d = Scm_MakeUVector(Scm_ClassOf(SCM_OBJ(x)), SCM_UVECTOR_SIZE(x), SCM_UVECTOR_ELEMENTS(x));
x 8371 ext/uvector/uvector.c else mintype = arg2_check("u32vector-clamp", SCM_OBJ(x), min, TRUE);
x 8374 ext/uvector/uvector.c else maxtype = arg2_check("u32vector-clamp", SCM_OBJ(x), max, TRUE);
x 8388 ext/uvector/uvector.c val = SCM_U32VECTOR_ELEMENTS(x)[i];
x 8434 ext/uvector/uvector.c ScmObj Scm_U32VectorClampX(ScmU32Vector *x, ScmObj min, ScmObj max)
x 8436 ext/uvector/uvector.c int i, size = SCM_U32VECTOR_SIZE(x);
x 8445 ext/uvector/uvector.c else mintype = arg2_check("u32vector-clamp!", SCM_OBJ(x), min, TRUE);
x 8448 ext/uvector/uvector.c else maxtype = arg2_check("u32vector-clamp!", SCM_OBJ(x), max, TRUE);
x 8462 ext/uvector/uvector.c val = SCM_U32VECTOR_ELEMENTS(x)[i];
x 8498 ext/uvector/uvector.c SCM_U32VECTOR_ELEMENTS(x)[i] = val;
x 8502 ext/uvector/uvector.c SCM_U32VECTOR_ELEMENTS(x)[i] = val;
x 8505 ext/uvector/uvector.c return SCM_OBJ(x);
x 8508 ext/uvector/uvector.c ScmObj Scm_S64VectorRangeCheck(ScmS64Vector *x, ScmObj min, ScmObj max)
x 8510 ext/uvector/uvector.c int i, size = SCM_S64VECTOR_SIZE(x);
x 8519 ext/uvector/uvector.c else mintype = arg2_check("s64vector-range-check", SCM_OBJ(x), min, TRUE);
x 8522 ext/uvector/uvector.c else maxtype = arg2_check("s64vector-range-check", SCM_OBJ(x), max, TRUE);
x 8536 ext/uvector/uvector.c val = SCM_S64VECTOR_ELEMENTS(x)[i];
x 8582 ext/uvector/uvector.c ScmObj Scm_S64VectorClamp(ScmS64Vector *x, ScmObj min, ScmObj max)
x 8584 ext/uvector/uvector.c int i, size = SCM_S64VECTOR_SIZE(x);
x 8589 ext/uvector/uvector.c ScmObj d = Scm_MakeUVector(Scm_ClassOf(SCM_OBJ(x)), SCM_UVECTOR_SIZE(x), SCM_UVECTOR_ELEMENTS(x));
x 8593 ext/uvector/uvector.c else mintype = arg2_check("s64vector-clamp", SCM_OBJ(x), min, TRUE);
x 8596 ext/uvector/uvector.c else maxtype = arg2_check("s64vector-clamp", SCM_OBJ(x), max, TRUE);
x 8610 ext/uvector/uvector.c val = SCM_S64VECTOR_ELEMENTS(x)[i];
x 8656 ext/uvector/uvector.c ScmObj Scm_S64VectorClampX(ScmS64Vector *x, ScmObj min, ScmObj max)
x 8658 ext/uvector/uvector.c int i, size = SCM_S64VECTOR_SIZE(x);
x 8667 ext/uvector/uvector.c else mintype = arg2_check("s64vector-clamp!", SCM_OBJ(x), min, TRUE);
x 8670 ext/uvector/uvector.c else maxtype = arg2_check("s64vector-clamp!", SCM_OBJ(x), max, TRUE);
x 8684 ext/uvector/uvector.c val = SCM_S64VECTOR_ELEMENTS(x)[i];
x 8720 ext/uvector/uvector.c SCM_S64VECTOR_ELEMENTS(x)[i] = val;
x 8724 ext/uvector/uvector.c SCM_S64VECTOR_ELEMENTS(x)[i] = val;
x 8727 ext/uvector/uvector.c return SCM_OBJ(x);
x 8730 ext/uvector/uvector.c ScmObj Scm_U64VectorRangeCheck(ScmU64Vector *x, ScmObj min, ScmObj max)
x 8732 ext/uvector/uvector.c int i, size = SCM_U64VECTOR_SIZE(x);
x 8741 ext/uvector/uvector.c else mintype = arg2_check("u64vector-range-check", SCM_OBJ(x), min, TRUE);
x 8744 ext/uvector/uvector.c else maxtype = arg2_check("u64vector-range-check", SCM_OBJ(x), max, TRUE);
x 8758 ext/uvector/uvector.c val = SCM_U64VECTOR_ELEMENTS(x)[i];
x 8804 ext/uvector/uvector.c ScmObj Scm_U64VectorClamp(ScmU64Vector *x, ScmObj min, ScmObj max)
x 8806 ext/uvector/uvector.c int i, size = SCM_U64VECTOR_SIZE(x);
x 8811 ext/uvector/uvector.c ScmObj d = Scm_MakeUVector(Scm_ClassOf(SCM_OBJ(x)), SCM_UVECTOR_SIZE(x), SCM_UVECTOR_ELEMENTS(x));
x 8815 ext/uvector/uvector.c else mintype = arg2_check("u64vector-clamp", SCM_OBJ(x), min, TRUE);
x 8818 ext/uvector/uvector.c else maxtype = arg2_check("u64vector-clamp", SCM_OBJ(x), max, TRUE);
x 8832 ext/uvector/uvector.c val = SCM_U64VECTOR_ELEMENTS(x)[i];
x 8878 ext/uvector/uvector.c ScmObj Scm_U64VectorClampX(ScmU64Vector *x, ScmObj min, ScmObj max)
x 8880 ext/uvector/uvector.c int i, size = SCM_U64VECTOR_SIZE(x);
x 8889 ext/uvector/uvector.c else mintype = arg2_check("u64vector-clamp!", SCM_OBJ(x), min, TRUE);
x 8892 ext/uvector/uvector.c else maxtype = arg2_check("u64vector-clamp!", SCM_OBJ(x), max, TRUE);
x 8906 ext/uvector/uvector.c val = SCM_U64VECTOR_ELEMENTS(x)[i];
x 8942 ext/uvector/uvector.c SCM_U64VECTOR_ELEMENTS(x)[i] = val;
x 8946 ext/uvector/uvector.c SCM_U64VECTOR_ELEMENTS(x)[i] = val;
x 8949 ext/uvector/uvector.c return SCM_OBJ(x);
x 8952 ext/uvector/uvector.c ScmObj Scm_F32VectorRangeCheck(ScmF32Vector *x, ScmObj min, ScmObj max)
x 8954 ext/uvector/uvector.c int i, size = SCM_F32VECTOR_SIZE(x);
x 8963 ext/uvector/uvector.c else mintype = arg2_check("f32vector-range-check", SCM_OBJ(x), min, TRUE);
x 8966 ext/uvector/uvector.c else maxtype = arg2_check("f32vector-range-check", SCM_OBJ(x), max, TRUE);
x 8980 ext/uvector/uvector.c val = SCM_F32VECTOR_ELEMENTS(x)[i];
x 9026 ext/uvector/uvector.c ScmObj Scm_F32VectorClamp(ScmF32Vector *x, ScmObj min, ScmObj max)
x 9028 ext/uvector/uvector.c int i, size = SCM_F32VECTOR_SIZE(x);
x 9033 ext/uvector/uvector.c ScmObj d = Scm_MakeUVector(Scm_ClassOf(SCM_OBJ(x)), SCM_UVECTOR_SIZE(x), SCM_UVECTOR_ELEMENTS(x));
x 9037 ext/uvector/uvector.c else mintype = arg2_check("f32vector-clamp", SCM_OBJ(x), min, TRUE);
x 9040 ext/uvector/uvector.c else maxtype = arg2_check("f32vector-clamp", SCM_OBJ(x), max, TRUE);
x 9054 ext/uvector/uvector.c val = SCM_F32VECTOR_ELEMENTS(x)[i];
x 9100 ext/uvector/uvector.c ScmObj Scm_F32VectorClampX(ScmF32Vector *x, ScmObj min, ScmObj max)
x 9102 ext/uvector/uvector.c int i, size = SCM_F32VECTOR_SIZE(x);
x 9111 ext/uvector/uvector.c else mintype = arg2_check("f32vector-clamp!", SCM_OBJ(x), min, TRUE);
x 9114 ext/uvector/uvector.c else maxtype = arg2_check("f32vector-clamp!", SCM_OBJ(x), max, TRUE);
x 9128 ext/uvector/uvector.c val = SCM_F32VECTOR_ELEMENTS(x)[i];
x 9164 ext/uvector/uvector.c SCM_F32VECTOR_ELEMENTS(x)[i] = val;
x 9168 ext/uvector/uvector.c SCM_F32VECTOR_ELEMENTS(x)[i] = val;
x 9171 ext/uvector/uvector.c return SCM_OBJ(x);
x 9174 ext/uvector/uvector.c ScmObj Scm_F64VectorRangeCheck(ScmF64Vector *x, ScmObj min, ScmObj max)
x 9176 ext/uvector/uvector.c int i, size = SCM_F64VECTOR_SIZE(x);
x 9185 ext/uvector/uvector.c else mintype = arg2_check("f64vector-range-check", SCM_OBJ(x), min, TRUE);
x 9188 ext/uvector/uvector.c else maxtype = arg2_check("f64vector-range-check", SCM_OBJ(x), max, TRUE);
x 9202 ext/uvector/uvector.c val = SCM_F64VECTOR_ELEMENTS(x)[i];
x 9248 ext/uvector/uvector.c ScmObj Scm_F64VectorClamp(ScmF64Vector *x, ScmObj min, ScmObj max)
x 9250 ext/uvector/uvector.c int i, size = SCM_F64VECTOR_SIZE(x);
x 9255 ext/uvector/uvector.c ScmObj d = Scm_MakeUVector(Scm_ClassOf(SCM_OBJ(x)), SCM_UVECTOR_SIZE(x), SCM_UVECTOR_ELEMENTS(x));
x 9259 ext/uvector/uvector.c else mintype = arg2_check("f64vector-clamp", SCM_OBJ(x), min, TRUE);
x 9262 ext/uvector/uvector.c else maxtype = arg2_check("f64vector-clamp", SCM_OBJ(x), max, TRUE);
x 9276 ext/uvector/uvector.c val = SCM_F64VECTOR_ELEMENTS(x)[i];
x 9322 ext/uvector/uvector.c ScmObj Scm_F64VectorClampX(ScmF64Vector *x, ScmObj min, ScmObj max)
x 9324 ext/uvector/uvector.c int i, size = SCM_F64VECTOR_SIZE(x);
x 9333 ext/uvector/uvector.c else mintype = arg2_check("f64vector-clamp!", SCM_OBJ(x), min, TRUE);
x 9336 ext/uvector/uvector.c else maxtype = arg2_check("f64vector-clamp!", SCM_OBJ(x), max, TRUE);
x 9350 ext/uvector/uvector.c val = SCM_F64VECTOR_ELEMENTS(x)[i];
x 9386 ext/uvector/uvector.c SCM_F64VECTOR_ELEMENTS(x)[i] = val;
x 9390 ext/uvector/uvector.c SCM_F64VECTOR_ELEMENTS(x)[i] = val;
x 9393 ext/uvector/uvector.c return SCM_OBJ(x);
x 77 gc/alloc.c # define IF_THREADS(x) x
x 79 gc/alloc.c # define IF_THREADS(x)
x 869 gc/alloc.c ptr_t GC_max(x,y)
x 870 gc/alloc.c ptr_t x, y;
x 872 gc/alloc.c return(x > y? x : y);
x 875 gc/alloc.c ptr_t GC_min(x,y)
x 876 gc/alloc.c ptr_t x, y;
x 878 gc/alloc.c return(x < y? x : y);
x 104 gc/cord/cordbscs.c void CORD_dump_inner(CORD x, unsigned n)
x 111 gc/cord/cordbscs.c if (x == 0) {
x 113 gc/cord/cordbscs.c } else if (CORD_IS_STRING(x)) {
x 115 gc/cord/cordbscs.c if (x[i] == '\0') break;
x 116 gc/cord/cordbscs.c putchar(x[i]);
x 118 gc/cord/cordbscs.c if (x[i] != '\0') fputs("...", stdout);
x 120 gc/cord/cordbscs.c } else if (IS_CONCATENATION(x)) {
x 122 gc/cord/cordbscs.c &(((CordRep *)x) -> concatenation);
x 124 gc/cord/cordbscs.c x, (int)(conc -> len), (int)(conc -> depth));
x 129 gc/cord/cordbscs.c &(((CordRep *)x) -> function);
x 130 gc/cord/cordbscs.c if (IS_SUBSTR(x)) printf("(Substring) ");
x 131 gc/cord/cordbscs.c printf("Function: %p (len: %d): ", x, (int)(func -> len));
x 141 gc/cord/cordbscs.c void CORD_dump(CORD x)
x 143 gc/cord/cordbscs.c CORD_dump_inner(x, 0);
x 147 gc/cord/cordbscs.c CORD CORD_cat_char_star(CORD x, const char * y, size_t leny)
x 153 gc/cord/cordbscs.c if (x == CORD_EMPTY) return(y);
x 154 gc/cord/cordbscs.c if (leny == 0) return(x);
x 155 gc/cord/cordbscs.c if (CORD_IS_STRING(x)) {
x 156 gc/cord/cordbscs.c lenx = strlen(x);
x 162 gc/cord/cordbscs.c memcpy(result, x, lenx);
x 175 gc/cord/cordbscs.c lenx = LEN(x);
x 178 gc/cord/cordbscs.c && IS_CONCATENATION(x)
x 179 gc/cord/cordbscs.c && CORD_IS_STRING(right = ((CordRep *)x) -> concatenation.right)) {
x 181 gc/cord/cordbscs.c if (!CORD_IS_STRING(left = ((CordRep *)x) -> concatenation.left)) {
x 183 gc/cord/cordbscs.c } else if (((CordRep *)x) -> concatenation.left_len != 0) {
x 184 gc/cord/cordbscs.c right_len = lenx - ((CordRep *)x) -> concatenation.left_len;
x 196 gc/cord/cordbscs.c x = left;
x 200 gc/cord/cordbscs.c if (CORD_IS_STRING(x)) {
x 203 gc/cord/cordbscs.c depth = DEPTH(x) + 1;
x 206 gc/cord/cordbscs.c depth = DEPTH(x) + 1;
x 220 gc/cord/cordbscs.c result->left = x;
x 231 gc/cord/cordbscs.c CORD CORD_cat(CORD x, CORD y)
x 237 gc/cord/cordbscs.c if (x == CORD_EMPTY) return(y);
x 238 gc/cord/cordbscs.c if (y == CORD_EMPTY) return(x);
x 240 gc/cord/cordbscs.c return(CORD_cat_char_star(x, y, strlen(y)));
x 241 gc/cord/cordbscs.c } else if (CORD_IS_STRING(x)) {
x 242 gc/cord/cordbscs.c lenx = strlen(x);
x 247 gc/cord/cordbscs.c lenx = LEN(x);
x 248 gc/cord/cordbscs.c depth = DEPTH(x) + 1;
x 261 gc/cord/cordbscs.c result->left = x;
x 309 gc/cord/cordbscs.c size_t CORD_len(CORD x)
x 311 gc/cord/cordbscs.c if (x == 0) {
x 314 gc/cord/cordbscs.c return(GEN_LEN(x));
x 342 gc/cord/cordbscs.c CORD CORD_substr_closure(CORD x, size_t i, size_t n, CORD_fn f)
x 348 gc/cord/cordbscs.c sa->sa_cord = (CordRep *)x;
x 361 gc/cord/cordbscs.c CORD CORD_substr_checked(CORD x, size_t i, size_t n)
x 363 gc/cord/cordbscs.c if (CORD_IS_STRING(x)) {
x 365 gc/cord/cordbscs.c return(CORD_substr_closure(x, i, n, CORD_index_access_fn));
x 370 gc/cord/cordbscs.c strncpy(result, x+i, n);
x 374 gc/cord/cordbscs.c } else if (IS_CONCATENATION(x)) {
x 376 gc/cord/cordbscs.c = &(((CordRep *)x) -> concatenation);
x 409 gc/cord/cordbscs.c if (IS_SUBSTR(x)) {
x 411 gc/cord/cordbscs.c register struct Function * f = &(((CordRep *)x) -> function);
x 419 gc/cord/cordbscs.c return(CORD_substr_closure(x, i, n, CORD_apply_access_fn));
x 423 gc/cord/cordbscs.c register struct Function * f = &(((CordRep *)x) -> function);
x 433 gc/cord/cordbscs.c return(CORD_substr_closure(x, i, n, CORD_apply_access_fn));
x 446 gc/cord/cordbscs.c CORD CORD_substr(CORD x, size_t i, size_t n)
x 448 gc/cord/cordbscs.c register size_t len = CORD_len(x);
x 459 gc/cord/cordbscs.c return(CORD_substr_checked(x, i, n));
x 463 gc/cord/cordbscs.c int CORD_iter5(CORD x, size_t i, CORD_iter_fn f1,
x 466 gc/cord/cordbscs.c if (x == 0) return(0);
x 467 gc/cord/cordbscs.c if (CORD_IS_STRING(x)) {
x 468 gc/cord/cordbscs.c register const char *p = x+i;
x 480 gc/cord/cordbscs.c } else if (IS_CONCATENATION(x)) {
x 482 gc/cord/cordbscs.c = &(((CordRep *)x) -> concatenation);
x 498 gc/cord/cordbscs.c register struct Function * f = &(((CordRep *)x) -> function);
x 512 gc/cord/cordbscs.c int CORD_iter(CORD x, CORD_iter_fn f1, void * client_data)
x 514 gc/cord/cordbscs.c return(CORD_iter5(x, 0, f1, CORD_NO_FN, client_data));
x 517 gc/cord/cordbscs.c int CORD_riter4(CORD x, size_t i, CORD_iter_fn f1, void * client_data)
x 519 gc/cord/cordbscs.c if (x == 0) return(0);
x 520 gc/cord/cordbscs.c if (CORD_IS_STRING(x)) {
x 521 gc/cord/cordbscs.c register const char *p = x + i;
x 528 gc/cord/cordbscs.c if (p == x) break;
x 532 gc/cord/cordbscs.c } else if (IS_CONCATENATION(x)) {
x 534 gc/cord/cordbscs.c = &(((CordRep *)x) -> concatenation);
x 548 gc/cord/cordbscs.c register struct Function * f = &(((CordRep *)x) -> function);
x 560 gc/cord/cordbscs.c int CORD_riter(CORD x, CORD_iter_fn f1, void * client_data)
x 562 gc/cord/cordbscs.c return(CORD_riter4(x, CORD_len(x) - 1, f1, client_data));
x 632 gc/cord/cordbscs.c void CORD_add_forest(ForestElement * forest, CORD x, size_t len)
x 648 gc/cord/cordbscs.c sum = CORD_cat(sum, x);
x 687 gc/cord/cordbscs.c void CORD_balance_insert(CORD x, size_t len, ForestElement * forest)
x 691 gc/cord/cordbscs.c if (CORD_IS_STRING(x)) {
x 692 gc/cord/cordbscs.c CORD_add_forest(forest, x, len);
x 693 gc/cord/cordbscs.c } else if (IS_CONCATENATION(x)
x 694 gc/cord/cordbscs.c && ((depth = DEPTH(x)) >= MAX_DEPTH
x 697 gc/cord/cordbscs.c = &(((CordRep *)x) -> concatenation);
x 703 gc/cord/cordbscs.c CORD_add_forest(forest, x, len);
x 708 gc/cord/cordbscs.c CORD CORD_balance(CORD x)
x 713 gc/cord/cordbscs.c if (x == 0) return(0);
x 714 gc/cord/cordbscs.c if (CORD_IS_STRING(x)) return(x);
x 716 gc/cord/cordbscs.c len = LEN(x);
x 718 gc/cord/cordbscs.c CORD_balance_insert(x, len, forest);
x 908 gc/cord/cordbscs.c void CORD_set_pos(CORD_pos p, CORD x, size_t i)
x 910 gc/cord/cordbscs.c if (x == CORD_EMPTY) {
x 914 gc/cord/cordbscs.c p[0].path[0].pe_cord = x;
x 39 gc/cord/cordprnt.c static int ec_len(CORD_ec x)
x 41 gc/cord/cordprnt.c return(CORD_len(x[0].ec_cord) + (x[0].ec_bufptr - x[0].ec_buf));
x 24 gc/cord/cordtest.c { int x = 0; fprintf(stderr, "FAILED: %s\n", string); x = 1 / x; abort(); }
x 53 gc/cord/cordtest.c CORD x = CORD_from_char_star("ab");
x 59 gc/cord/cordtest.c x = CORD_cat(x,x);
x 60 gc/cord/cordtest.c if (!CORD_IS_STRING(x)) ABORT("short cord should usually be a string");
x 61 gc/cord/cordtest.c if (strcmp(x, "abab") != 0) ABORT("bad CORD_cat result");
x 64 gc/cord/cordtest.c x = CORD_cat(x,x);
x 66 gc/cord/cordtest.c x = CORD_cat(x,"c");
x 67 gc/cord/cordtest.c if (CORD_len(x) != 128*1024+1) ABORT("bad length");
x 70 gc/cord/cordtest.c if (CORD_iter5(x, 64*1024-1, test_fn, CORD_NO_FN, (void *)13) == 0) {
x 76 gc/cord/cordtest.c CORD_set_pos(p, x, 64*1024-1);
x 83 gc/cord/cordtest.c y = CORD_substr(x, 1023, 5);
x 87 gc/cord/cordtest.c y = CORD_substr(x, 1024, 8);
x 91 gc/cord/cordtest.c y = CORD_substr(x, 128*1024-1, 8);
x 95 gc/cord/cordtest.c x = CORD_balance(x);
x 96 gc/cord/cordtest.c if (CORD_len(x) != 128*1024+1) ABORT("bad length");
x 99 gc/cord/cordtest.c if (CORD_iter5(x, 64*1024-1, test_fn, CORD_NO_FN, (void *)13) == 0) {
x 104 gc/cord/cordtest.c y = CORD_substr(x, 1023, 5);
x 132 gc/cord/cordtest.c CORD x = "{}";
x 141 gc/cord/cordtest.c x = CORD_cat(x, y);
x 143 gc/cord/cordtest.c z = CORD_balance(x);
x 144 gc/cord/cordtest.c if (CORD_cmp(x,z) != 0) ABORT("balanced string comparison wrong");
x 145 gc/cord/cordtest.c if (CORD_cmp(x,CORD_cat(z, CORD_nul(13))) >= 0) ABORT("comparison 2");
x 146 gc/cord/cordtest.c if (CORD_cmp(CORD_cat(x, CORD_nul(13)), z) <= 0) ABORT("comparison 3");
x 147 gc/cord/cordtest.c if (CORD_cmp(x,CORD_cat(z, "13")) >= 0) ABORT("comparison 4");
x 161 gc/cord/cordtest.c x = y;
x 163 gc/cord/cordtest.c x = CORD_cat(x,x);
x 170 gc/cord/cordtest.c if (CORD_put(x,f) == EOF) ABORT("CORD_put failed");
x 173 gc/cord/cordtest.c if (CORD_len(w) != CORD_len(x)) ABORT("file length wrong");
x 174 gc/cord/cordtest.c if (CORD_cmp(w,x) != 0) ABORT("file comparison wrong");
x 181 gc/cord/cordtest.c if (CORD_str(x,1,"9a") != 35) ABORT("CORD_str failed 1");
x 182 gc/cord/cordtest.c if (CORD_str(x,0,"9abcdefghijk") != 35) ABORT("CORD_str failed 2");
x 183 gc/cord/cordtest.c if (CORD_str(x,0,"9abcdefghijx") != CORD_NOT_FOUND)
x 185 gc/cord/cordtest.c if (CORD_str(x,0,"9>") != CORD_NOT_FOUND) ABORT("CORD_str failed 4");
x 204 gc/cord/cordtest.c CORD x;
x 214 gc/cord/cordtest.c x = "abcdefghij";
x 215 gc/cord/cordtest.c x = CORD_cat(x,x);
x 216 gc/cord/cordtest.c x = CORD_cat(x,x);
x 217 gc/cord/cordtest.c x = CORD_cat(x,x);
x 218 gc/cord/cordtest.c if (CORD_sprintf(&result, "->%-120.78r!\n", x) != 124)
x 220 gc/cord/cordtest.c (void) sprintf(result2, "->%-120.78s!\n", CORD_to_char_star(x));
x 38 gc/cord/cordxtra.c # define ATOMIC_WRITE(x,y) (x) = (y)
x 39 gc/cord/cordxtra.c # define ATOMIC_READ(x) (*(x))
x 58 gc/cord/cordxtra.c CORD CORD_cat_char(CORD x, char c)
x 62 gc/cord/cordxtra.c if (c == '\0') return(CORD_cat(x, CORD_nul(1)));
x 67 gc/cord/cordxtra.c return(CORD_cat_char_star(x, string, 1));
x 126 gc/cord/cordxtra.c void CORD_fill_buf(CORD x, size_t i, size_t len, char * buf)
x 133 gc/cord/cordxtra.c (void)CORD_iter5(x, i, CORD_fill_proc, CORD_batched_fill_proc, &fd);
x 136 gc/cord/cordxtra.c int CORD_cmp(CORD x, CORD y)
x 142 gc/cord/cordxtra.c if (y == CORD_EMPTY) return(x != CORD_EMPTY);
x 143 gc/cord/cordxtra.c if (x == CORD_EMPTY) return(-1);
x 144 gc/cord/cordxtra.c if (CORD_IS_STRING(y) && CORD_IS_STRING(x)) return(strcmp(x,y));
x 145 gc/cord/cordxtra.c CORD_set_pos(xpos, x, 0);
x 179 gc/cord/cordxtra.c int CORD_ncmp(CORD x, size_t x_start, CORD y, size_t y_start, size_t len)
x 186 gc/cord/cordxtra.c CORD_set_pos(xpos, x, x_start);
x 224 gc/cord/cordxtra.c char * CORD_to_char_star(CORD x)
x 226 gc/cord/cordxtra.c register size_t len = CORD_len(x);
x 230 gc/cord/cordxtra.c CORD_fill_buf(x, 0, len, result);
x 247 gc/cord/cordxtra.c const char * CORD_to_const_char_star(CORD x)
x 249 gc/cord/cordxtra.c if (x == 0) return("");
x 250 gc/cord/cordxtra.c if (CORD_IS_STRING(x)) return((const char *)x);
x 251 gc/cord/cordxtra.c return(CORD_to_char_star(x));
x 254 gc/cord/cordxtra.c char CORD_fetch(CORD x, size_t i)
x 258 gc/cord/cordxtra.c CORD_set_pos(xpos, x, i);
x 279 gc/cord/cordxtra.c int CORD_put(CORD x, FILE * f)
x 281 gc/cord/cordxtra.c if (CORD_iter5(x, 0, CORD_put_proc, CORD_batched_put_proc, f)) {
x 325 gc/cord/cordxtra.c size_t CORD_chr(CORD x, size_t i, int c)
x 331 gc/cord/cordxtra.c if (CORD_iter5(x, i, CORD_chr_proc, CORD_batched_chr_proc, &d)) {
x 338 gc/cord/cordxtra.c size_t CORD_rchr(CORD x, size_t i, int c)
x 344 gc/cord/cordxtra.c if (CORD_riter4(x, i, CORD_rchr_proc, &d)) {
x 357 gc/cord/cordxtra.c size_t CORD_str(CORD x, size_t start, CORD s)
x 360 gc/cord/cordxtra.c size_t xlen = CORD_len(x);
x 383 gc/cord/cordxtra.c CORD_set_pos(xpos, x, start);
x 396 gc/cord/cordxtra.c CORD_ncmp(x, match_pos + start_len,
x 410 gc/cord/cordxtra.c void CORD_ec_flush_buf(CORD_ec x)
x 412 gc/cord/cordxtra.c register size_t len = x[0].ec_bufptr - x[0].ec_buf;
x 417 gc/cord/cordxtra.c memcpy(s, x[0].ec_buf, len);
x 419 gc/cord/cordxtra.c x[0].ec_cord = CORD_cat_char_star(x[0].ec_cord, s, len);
x 420 gc/cord/cordxtra.c x[0].ec_bufptr = x[0].ec_buf;
x 423 gc/cord/cordxtra.c void CORD_ec_append_cord(CORD_ec x, CORD s)
x 425 gc/cord/cordxtra.c CORD_ec_flush_buf(x);
x 426 gc/cord/cordxtra.c x[0].ec_cord = CORD_cat(x[0].ec_cord, s);
x 314 gc/cord/de.c # define move_cursor(x,y) cgotoxy(x + 1, y + 1, stdout)
x 316 gc/cord/de.c # define move_cursor(x,y) move(y,x)
x 78 gc/cord/de_win.h void set_position(int x, int y);
x 53 gc/finalize.c # define dl_next(x) (struct disappearing_link *)((x) -> prolog.next)
x 54 gc/finalize.c # define dl_set_next(x,y) (x) -> prolog.next = (struct hash_chain_entry *)(y)
x 73 gc/finalize.c # define fo_next(x) (struct finalizable_object *)((x) -> prolog.next)
x 74 gc/finalize.c # define fo_set_next(x,y) (x) -> prolog.next = (struct hash_chain_entry *)(y)
x 79 gc/include/cord.h CORD CORD_cat(CORD x, CORD y);
x 86 gc/include/cord.h CORD CORD_cat_char_star(CORD x, const char * y, size_t leny);
x 89 gc/include/cord.h size_t CORD_len(CORD x);
x 99 gc/include/cord.h CORD CORD_substr(CORD x, size_t i, size_t n);
x 109 gc/include/cord.h CORD CORD_balance(CORD x);
x 133 gc/include/cord.h int CORD_iter5(CORD x, size_t i, CORD_iter_fn f1,
x 137 gc/include/cord.h int CORD_iter(CORD x, CORD_iter_fn f1, void * client_data);
x 138 gc/include/cord.h # define CORD_iter(x, f1, cd) CORD_iter5(x, 0, f1, CORD_NO_FN, cd)
x 142 gc/include/cord.h int CORD_riter4(CORD x, size_t i, CORD_iter_fn f1, void * client_data);
x 145 gc/include/cord.h int CORD_riter(CORD x, CORD_iter_fn f1, void * client_data);
x 200 gc/include/cord.h void CORD_dump(CORD x);
x 206 gc/include/cord.h CORD CORD_cat_char(CORD x, char c);
x 212 gc/include/cord.h char CORD_fetch(CORD x, size_t i);
x 215 gc/include/cord.h int CORD_cmp(CORD x, CORD y);
x 219 gc/include/cord.h int CORD_ncmp(CORD x, size_t x_start, CORD y, size_t y_start, size_t len);
x 224 gc/include/cord.h size_t CORD_str(CORD x, size_t start, CORD s);
x 261 gc/include/cord.h char * CORD_to_char_star(CORD x);
x 269 gc/include/cord.h const char * CORD_to_const_char_star(CORD x);
x 274 gc/include/cord.h int CORD_put(CORD x, FILE * f);
x 282 gc/include/cord.h size_t CORD_chr(CORD x, size_t i, int c);
x 287 gc/include/cord.h size_t CORD_rchr(CORD x, size_t i, int c);
x 49 gc/include/ec.h void CORD_ec_flush_buf(CORD_ec x);
x 52 gc/include/ec.h # define CORD_ec_to_cord(x) (CORD_ec_flush_buf(x), (x)[0].ec_cord)
x 55 gc/include/ec.h # define CORD_ec_init(x) ((x)[0].ec_cord = 0, (x)[0].ec_bufptr = (x)[0].ec_buf)
x 58 gc/include/ec.h # define CORD_ec_append(x, c) \
x 60 gc/include/ec.h if ((x)[0].ec_bufptr == (x)[0].ec_buf + CORD_BUFSZ) { \
x 61 gc/include/ec.h CORD_ec_flush_buf(x); \
x 63 gc/include/ec.h *((x)[0].ec_bufptr)++ = (c); \
x 68 gc/include/ec.h void CORD_ec_append_cord(CORD_ec x, CORD s);
x 820 gc/include/gc.h # define GC_PTR_ADD3(x, n, type_of_result) \
x 821 gc/include/gc.h ((type_of_result)GC_same_obj((x)+(n), (x)))
x 822 gc/include/gc.h # define GC_PRE_INCR3(x, n, type_of_result) \
x 823 gc/include/gc.h ((type_of_result)GC_pre_incr(&(x), (n)*sizeof(*x))
x 824 gc/include/gc.h # define GC_POST_INCR2(x, type_of_result) \
x 825 gc/include/gc.h ((type_of_result)GC_post_incr(&(x), sizeof(*x))
x 827 gc/include/gc.h # define GC_PTR_ADD(x, n) \
x 828 gc/include/gc.h GC_PTR_ADD3(x, n, typeof(x))
x 829 gc/include/gc.h # define GC_PRE_INCR(x, n) \
x 830 gc/include/gc.h GC_PRE_INCR3(x, n, typeof(x))
x 831 gc/include/gc.h # define GC_POST_INCR(x, n) \
x 832 gc/include/gc.h GC_POST_INCR3(x, typeof(x))
x 838 gc/include/gc.h # define GC_PTR_ADD(x, n) ((x)+(n))
x 841 gc/include/gc.h # define GC_PTR_ADD3(x, n, type_of_result) ((x)+(n))
x 842 gc/include/gc.h # define GC_PTR_ADD(x, n) ((x)+(n))
x 843 gc/include/gc.h # define GC_PRE_INCR3(x, n, type_of_result) ((x) += (n))
x 844 gc/include/gc.h # define GC_PRE_INCR(x, n) ((x) += (n))
x 845 gc/include/gc.h # define GC_POST_INCR2(x, n, type_of_result) ((x)++)
x 846 gc/include/gc.h # define GC_POST_INCR(x, n) ((x)++)
x 956 gc/include/gc.h # define GC_MAX(x,y) ((x) > (y) ? (x) : (y))
x 957 gc/include/gc.h # define GC_MIN(x,y) ((x) < (y) ? (x) : (y))
x 66 gc/include/private/cord_pos.h void CORD_set_pos(CORD_pos p, CORD x, size_t i);
x 100 gc/include/private/gc_priv.h # define MAKE_COOLER(x,y) if ((word)(x)+(y) > (word)(x)) {(x) += (y);} \
x 101 gc/include/private/gc_priv.h else {(x) = (word)ONES;}
x 102 gc/include/private/gc_priv.h # define MAKE_HOTTER(x,y) (x) -= (y)
x 106 gc/include/private/gc_priv.h # define MAKE_COOLER(x,y) if ((word)(x)-(y) < (word)(x)) {(x) -= (y);} else {(x) = 0;}
x 107 gc/include/private/gc_priv.h # define MAKE_HOTTER(x,y) (x) += (y)
x 297 gc/include/private/gc_priv.h # define GET_TIME(x) { struct rusage rusage; \
x 299 gc/include/private/gc_priv.h x = rusage.ru_utime; }
x 307 gc/include/private/gc_priv.h # define GET_TIME(x) x = GetTickCount()
x 332 gc/include/private/gc_priv.h # define GET_TIME(x) x = clock()
x 362 gc/include/private/gc_priv.h # define BCOPY(x,y,n) memcpy(y, x, (size_t)(n))
x 363 gc/include/private/gc_priv.h # define BZERO(x,n) memset(x, 0, (size_t)(n))
x 365 gc/include/private/gc_priv.h # define BCOPY(x,y,n) bcopy((char *)(x),(char *)(y),(int)(n))
x 366 gc/include/private/gc_priv.h # define BZERO(x,n) bzero((char *)(x),(int)(n))
x 475 gc/include/private/gc_priv.h # define WORDS_TO_BYTES(x) ((x)<<2)
x 476 gc/include/private/gc_priv.h # define BYTES_TO_WORDS(x) ((x)>>2)
x 485 gc/include/private/gc_priv.h # define WORDS_TO_BYTES(x) ((x)<<3)
x 486 gc/include/private/gc_priv.h # define BYTES_TO_WORDS(x) ((x)>>3)
x 1206 gc/include/private/gc_priv.h # define abs(x) ((x) < 0? (-(x)) : (x))
x 808 gc/include/private/gcconfig.h # define PREFETCH(x) \
x 809 gc/include/private/gcconfig.h __asm__ __volatile__ ("dcbt 0,%0" : : "r" ((const void *) (x)))
x 810 gc/include/private/gcconfig.h # define PREFETCH_FOR_WRITE(x) \
x 811 gc/include/private/gcconfig.h __asm__ __volatile__ ("dcbtst 0,%0" : : "r" ((const void *) (x)))
x 1152 gc/include/private/gcconfig.h # define PREFETCH(x) \
x 1153 gc/include/private/gcconfig.h __asm__ __volatile__ (" prefetchnta %0": : "m"(*(char *)(x)))
x 1161 gc/include/private/gcconfig.h # define PREFETCH_FOR_WRITE(x) \
x 1162 gc/include/private/gcconfig.h __asm__ __volatile__ (" prefetcht0 %0": : "m"(*(char *)(x)))
x 1166 gc/include/private/gcconfig.h # define PREFETCH(x) \
x 1167 gc/include/private/gcconfig.h __asm__ __volatile__ (" prefetch %0": : "m"(*(char *)(x)))
x 1168 gc/include/private/gcconfig.h # define PREFETCH_FOR_WRITE(x) \
x 1169 gc/include/private/gcconfig.h __asm__ __volatile__ (" prefetchw %0": : "m"(*(char *)(x)))
x 1485 gc/include/private/gcconfig.h # define PREFETCH(x) { \
x 1486 gc/include/private/gcconfig.h register long addr = (long)(x); \
x 1671 gc/include/private/gcconfig.h # define PREFETCH(x) \
x 1672 gc/include/private/gcconfig.h __asm__ (" lfetch [%0]": : "r"(x))
x 1673 gc/include/private/gcconfig.h # define PREFETCH_FOR_WRITE(x) \
x 1674 gc/include/private/gcconfig.h __asm__ (" lfetch.excl [%0]": : "r"(x))
x 1675 gc/include/private/gcconfig.h # define CLEAR_DOUBLE(x) \
x 1676 gc/include/private/gcconfig.h __asm__ (" stf.spill [%0]=f0": : "r"((void *)(x)))
x 1679 gc/include/private/gcconfig.h # define PREFETCH(x) \
x 1680 gc/include/private/gcconfig.h __lfetch(__lfhint_none, (x))
x 1681 gc/include/private/gcconfig.h # define PREFETCH_FOR_WRITE(x) \
x 1682 gc/include/private/gcconfig.h __lfetch(__lfhint_nta, (x))
x 1683 gc/include/private/gcconfig.h # define CLEAR_DOUBLE(x) \
x 1684 gc/include/private/gcconfig.h __stf_spill((void *)(x), 0)
x 1926 gc/include/private/gcconfig.h # define PREFETCH(x) __builtin_prefetch((x), 0, 0)
x 1927 gc/include/private/gcconfig.h # define PREFETCH_FOR_WRITE(x) __builtin_prefetch((x), 1)
x 2051 gc/include/private/gcconfig.h # define PREFETCH(x)
x 2056 gc/include/private/gcconfig.h # define PREFETCH_FOR_WRITE(x)
x 2079 gc/include/private/gcconfig.h # define CLEAR_DOUBLE(x) \
x 2080 gc/include/private/gcconfig.h ((word*)x)[0] = 0; \
x 2081 gc/include/private/gcconfig.h ((word*)x)[1] = 0;
x 35 gc/mark.c void GC_noop1(x)
x 36 gc/mark.c word x;
x 40 gc/mark.c sink = x;
x 413 gc/os_dep.c #define E_MAGIC(x) (x).magic_number
x 415 gc/os_dep.c #define E_LFANEW(x) (x).new_exe_offset
x 430 gc/os_dep.c #define E32_MAGIC1(x) (x).magic_number[0]
x 432 gc/os_dep.c #define E32_MAGIC2(x) (x).magic_number[1]
x 434 gc/os_dep.c #define E32_BORDER(x) (x).byte_order
x 436 gc/os_dep.c #define E32_WORDER(x) (x).word_order
x 438 gc/os_dep.c #define E32_CPU(x) (x).cpu
x 440 gc/os_dep.c #define E32_OBJTAB(x) (x).object_table_offset
x 441 gc/os_dep.c #define E32_OBJCNT(x) (x).object_count
x 452 gc/os_dep.c #define O32_FLAGS(x) (x).flags
x 456 gc/os_dep.c #define O32_SIZE(x) (x).size
x 457 gc/os_dep.c #define O32_BASE(x) (x).base
x 2818 gc/os_dep.c #define PAGE_ALIGNED(x) !((word)(x) & (GC_page_size - 1))
x 223 gc/pthread_stop_world.c # define IF_IA64(x) x
x 225 gc/pthread_stop_world.c # define IF_IA64(x)
x 94 gc/pthread_support.c # define GC_getspecific(x) (x)
x 65 gc/setjmp_t.c register int x = (int)strlen("a"); /* 1, slightly disguised */
x 86 gc/setjmp_t.c x = 2*x-1;
x 88 gc/setjmp_t.c x = 2*x-1;
x 91 gc/setjmp_t.c if (x == 2) {
x 98 gc/setjmp_t.c } else if (x == 1) {
x 105 gc/setjmp_t.c x = 2;
x 110 gc/setjmp_t.c int g(x)
x 111 gc/setjmp_t.c int x;
x 113 gc/setjmp_t.c return(x);
x 153 gc/tests/test.c # define INT_TO_SEXPR(x) ((sexpr)(unsigned long)(x))
x 157 gc/tests/test.c # define car(x) ((x) -> sexpr_car)
x 158 gc/tests/test.c # define cdr(x) ((x) -> sexpr_cdr)
x 159 gc/tests/test.c # define is_nil(x) ((x) == nil)
x 169 gc/tests/test.c sexpr cons (x, y)
x 170 gc/tests/test.c sexpr x;
x 195 gc/tests/test.c r -> sexpr_car = x;
x 232 gc/tests/test.c sexpr x;
x 237 gc/tests/test.c x = (sexpr)(addr + 1); /* Skip the vtable pointer. */
x 239 gc/tests/test.c (GC_PTR)(x -> sexpr_cdr), mark_stack_ptr,
x 240 gc/tests/test.c mark_stack_limit, (GC_PTR *)&(x -> sexpr_cdr));
x 242 gc/tests/test.c (GC_PTR)(x -> sexpr_car), mark_stack_ptr,
x 243 gc/tests/test.c mark_stack_limit, (GC_PTR *)&(x -> sexpr_car));
x 254 gc/tests/test.c sexpr local_cons (x, y)
x 255 gc/tests/test.c sexpr x;
x 285 gc/tests/test.c r -> sexpr_car = x;
x 297 gc/tests/test.c sexpr small_cons (x, y)
x 298 gc/tests/test.c sexpr x;
x 309 gc/tests/test.c r -> sexpr_car = x;
x 314 gc/tests/test.c sexpr small_cons_uncollectable (x, y)
x 315 gc/tests/test.c sexpr x;
x 326 gc/tests/test.c r -> sexpr_car = x;
x 334 gc/tests/test.c sexpr gcj_cons(x, y)
x 335 gc/tests/test.c sexpr x;
x 358 gc/tests/test.c result -> sexpr_car = x;
x 365 gc/tests/test.c sexpr reverse1(x, y)
x 366 gc/tests/test.c sexpr x, y;
x 368 gc/tests/test.c if (is_nil(x)) {
x 371 gc/tests/test.c return( reverse1(cdr(x), cons(car(x), y)) );
x 375 gc/tests/test.c sexpr reverse(x)
x 376 gc/tests/test.c sexpr x;
x 381 gc/tests/test.c return( reverse1(x, nil) );
x 396 gc/tests/test.c sexpr gcj_reverse1(x, y)
x 397 gc/tests/test.c sexpr x, y;
x 399 gc/tests/test.c if (is_nil(x)) {
x 402 gc/tests/test.c return( gcj_reverse1(cdr(x), gcj_cons(car(x), y)) );
x 406 gc/tests/test.c sexpr gcj_reverse(x)
x 407 gc/tests/test.c sexpr x;
x 409 gc/tests/test.c return( gcj_reverse1(x, nil) );
x 425 gc/tests/test.c sexpr local_reverse1(x, y)
x 426 gc/tests/test.c sexpr x, y;
x 428 gc/tests/test.c if (is_nil(x)) {
x 431 gc/tests/test.c return( local_reverse1(cdr(x), local_cons(car(x), y)) );
x 435 gc/tests/test.c sexpr local_reverse(x)
x 436 gc/tests/test.c sexpr x;
x 438 gc/tests/test.c return( local_reverse1(x, nil) );
x 484 gc/tests/test.c # define UNCOLLECTABLE_CDR(x) (sexpr)(~(unsigned long)(cdr(x)))
x 506 gc/tests/test.c void print_int_list(x)
x 507 gc/tests/test.c sexpr x;
x 509 gc/tests/test.c if (is_nil(x)) {
x 512 gc/tests/test.c (void)GC_printf1("(%ld)", (long)(car(car(x))));
x 513 gc/tests/test.c if (!is_nil(cdr(x))) {
x 515 gc/tests/test.c (void)print_int_list(cdr(x));
x 1093 gc/tests/test.c GC_word * x = (GC_word *)GC_malloc_explicitly_typed(2000, d4);
x 1152 gc/tests/test.c GC_noop(x);
x 1159 gc/tests/test.c void fail_proc1(x)
x 1160 gc/tests/test.c GC_PTR x;
x 1168 gc/tests/test.c void fail_proc1(GC_PTR x)
x 1202 gc/tests/test.c char *x;
x 1238 gc/tests/test.c x = GC_malloc(16);
x 1239 gc/tests/test.c if (GC_base(x + 13) != x) {
x 1249 gc/tests/test.c if (GC_same_obj(x+5, x) != x + 5) {
x 1253 gc/tests/test.c if (GC_is_visible(y) != y || GC_is_visible(x) != x) {
x 1268 gc/tests/test.c || GC_is_valid_displacement(x) != x
x 1269 gc/tests/test.c || GC_is_valid_displacement(x + 3) != x + 3) {
x 204 gc/tests/test_cpp.cc int *x = gc_allocator<int>().allocate(1);
x 208 gc/tests/test_cpp.cc int *x = (int *)gc_alloc::allocate(sizeof(int));
x 210 gc/tests/test_cpp.cc int *x = (int *)alloc::allocate(sizeof(int));
x 213 gc/tests/test_cpp.cc *x = 29;
x 215 gc/tests/test_cpp.cc *xptr = x;
x 216 gc/tests/test_cpp.cc x = 0;
x 282 gc/tests/test_cpp.cc x = *xptr;
x 284 gc/tests/test_cpp.cc my_assert (29 == x[0]);
x 6 gc/tests/trace_test.c struct treenode *x;
x 14 gc/tests/trace_test.c r -> x = mktree(i-1);
x 84 src/bignum.c #define min(x, y) (((x) < (y))? (x) : (y))
x 86 src/bignum.c #define max(x, y) (((x) > (y))? (x) : (y))
x 90 src/bignum.c static int bignum_safe_size_for_add(ScmBignum *x, ScmBignum *y);
x 525 src/bignum.c static int bignum_safe_size_for_add(ScmBignum *x, ScmBignum *y)
x 527 src/bignum.c int xsize = SCM_BIGNUM_SIZE(x);
x 530 src/bignum.c if (x->values[xsize-1] == SCM_ULONG_MAX) return xsize+1;
x 546 src/bignum.c unsigned long x = ~br->values[i];
x 547 src/bignum.c UADD(br->values[i], c, x, 0);
x 566 src/bignum.c u_long x, y;
x 579 src/bignum.c x = bx->values[i];
x 580 src/bignum.c UADD(br->values[i], c, x, 0);
x 583 src/bignum.c x = bx->values[i];
x 585 src/bignum.c UADD(br->values[i], c, x, y);
x 598 src/bignum.c u_long x, y;
x 611 src/bignum.c x = bx->values[i];
x 612 src/bignum.c USUB(br->values[i], c, x, 0);
x 615 src/bignum.c x = bx->values[i];
x 617 src/bignum.c USUB(br->values[i], c, x, y);
x 768 src/bignum.c u_long x;
x 770 src/bignum.c x = (bx->values[i+1]<<(WORD_BITS-nbits))|(bx->values[i]>>nbits);
x 771 src/bignum.c br->values[i-nwords] = x;
x 785 src/bignum.c u_long x;
x 801 src/bignum.c x = (bx->values[i]<<nbits)|(bx->values[i-1]>>(WORD_BITS-nbits));
x 802 src/bignum.c if (br->size > i+nwords) br->values[i+nwords] = x;
x 821 src/bignum.c u_long hi, lo, x, r0, r1, c;
x 825 src/bignum.c x = bx->values[i];
x 826 src/bignum.c UMUL(hi, lo, x, y);
x 1104 src/bignum.c ScmObj Scm_BignumAsh(ScmBignum *x, int cnt)
x 1106 src/bignum.c if (cnt == 0) return Scm_NormalizeBignum(x);
x 1108 src/bignum.c int rsize = SCM_BIGNUM_SIZE(x) + (cnt+WORD_BITS-1)/WORD_BITS;
x 1110 src/bignum.c return Scm_NormalizeBignum(bignum_lshift(r, x, cnt));
x 1112 src/bignum.c int rsize = SCM_BIGNUM_SIZE(x) + cnt/WORD_BITS;
x 1114 src/bignum.c if (SCM_BIGNUM_SIGN(x) < 0) {
x 1120 src/bignum.c if (SCM_BIGNUM_SIGN(x) < 0) {
x 1122 src/bignum.c ScmObj r = Scm_Quotient(Scm_Add(SCM_OBJ(x), SCM_MAKE_INT(1),
x 1129 src/bignum.c return Scm_NormalizeBignum(bignum_rshift(r, x, -cnt));
x 1138 src/bignum.c static ScmBignum *bignum_and(ScmBignum *z, ScmBignum *x, ScmBignum *y,
x 1143 src/bignum.c z->values[i] = x->values[i] & y->values[i];
x 1146 src/bignum.c for (; i < xsize; i++) z->values[i] = x->values[i];
x 1153 src/bignum.c ScmObj Scm_BignumLogAnd(ScmBignum *x, ScmBignum *y)
x 1155 src/bignum.c int xsize = SCM_BIGNUM_SIZE(x), xsign = SCM_BIGNUM_SIGN(x);
x 1162 src/bignum.c z = bignum_and(make_bignum(minsize), x, y, minsize, 0, 0);
x 1166 src/bignum.c z = bignum_and(make_bignum(xsize), x, yy, minsize, xsize, 0);
x 1171 src/bignum.c xx = SCM_BIGNUM(Scm_BignumComplement(x));
x 1175 src/bignum.c xx = SCM_BIGNUM(Scm_BignumComplement(x));
x 1189 src/bignum.c static ScmBignum *bignum_ior(ScmBignum *z, ScmBignum *x, ScmBignum *y,
x 1194 src/bignum.c z->values[i] = x->values[i] | y->values[i];
x 1197 src/bignum.c for (; i < xsize; i++) z->values[i] = x->values[i];
x 1204 src/bignum.c ScmObj Scm_BignumLogIor(ScmBignum *x, ScmBignum *y)
x 1206 src/bignum.c int xsize = SCM_BIGNUM_SIZE(x), xsign = SCM_BIGNUM_SIGN(x);
x 1214 src/bignum.c z = bignum_ior(make_bignum(zsize), x, y, minsize, xsize, ysize);
x 1218 src/bignum.c z = bignum_ior(make_bignum(ysize), x, yy, minsize, 0, ysize);
x 1225 src/bignum.c xx = SCM_BIGNUM(Scm_BignumComplement(x));
x 1231 src/bignum.c xx = SCM_BIGNUM(Scm_BignumComplement(x));
x 1241 src/bignum.c ScmObj Scm_BignumLogXor(ScmBignum *x, ScmBignum *y)
x 1244 src/bignum.c ScmObj xandy = Scm_BignumLogAnd(x, y);
x 1245 src/bignum.c ScmObj xory = Scm_BignumLogIor(x, y);
x 39 src/boolean.c int Scm_EqP(ScmObj x, ScmObj y)
x 41 src/boolean.c return SCM_EQ(x, y);
x 44 src/boolean.c int Scm_EqvP(ScmObj x, ScmObj y)
x 47 src/boolean.c if (SCM_NUMBERP(x)) {
x 49 src/boolean.c if ((SCM_EXACTP(x) && SCM_EXACTP(y))
x 50 src/boolean.c || (SCM_INEXACTP(x) && SCM_INEXACTP(y))) {
x 51 src/boolean.c return Scm_NumEq(x, y);
x 56 src/boolean.c return SCM_EQ(x, y);
x 59 src/boolean.c int Scm_EqualP(ScmObj x, ScmObj y)
x 63 src/boolean.c if (SCM_EQ(x, y)) return TRUE;
x 64 src/boolean.c if (SCM_PAIRP(x)) {
x 67 src/boolean.c if (!Scm_EqualP(SCM_CAR(x), SCM_CAR(y))) return FALSE;
x 68 src/boolean.c x = SCM_CDR(x);
x 70 src/boolean.c } while (SCM_PAIRP(x)&&SCM_PAIRP(y));
x 71 src/boolean.c return Scm_EqualP(x, y);
x 73 src/boolean.c if (SCM_STRINGP(x)) {
x 75 src/boolean.c return Scm_StringEqual(SCM_STRING(x), SCM_STRING(y));
x 79 src/boolean.c if (SCM_NUMBERP(x)) {
x 81 src/boolean.c if ((SCM_EXACTP(x) && SCM_EXACTP(y))
x 82 src/boolean.c || (SCM_INEXACTP(x) && SCM_INEXACTP(y))) {
x 83 src/boolean.c return Scm_NumEq(x, y);
x 88 src/boolean.c if (SCM_VECTORP(x)) {
x 90 src/boolean.c int sizx = SCM_VECTOR_SIZE(x);
x 94 src/boolean.c if (!Scm_EqualP(SCM_VECTOR_ELEMENT(x, sizx),
x 115 src/boolean.c if (SCM_IDENTIFIERP(x) || SCM_IDENTIFIERP(y)) {
x 116 src/boolean.c if (SCM_IDENTIFIERP(x)) x = SCM_OBJ(SCM_IDENTIFIER(x)->name);
x 118 src/boolean.c return SCM_EQ(x, y);
x 122 src/boolean.c if (!SCM_PTRP(x)) return (x == y);
x 123 src/boolean.c cx = Scm_ClassOf(x);
x 126 src/boolean.c return (cx->compare(x, y, TRUE) == 0);
x 131 src/boolean.c int Scm_EqualM(ScmObj x, ScmObj y, int mode)
x 135 src/boolean.c return SCM_EQ(x, y);
x 137 src/boolean.c return Scm_EqvP(x, y);
x 139 src/boolean.c return Scm_EqualP(x, y);
x 168 src/char.c static int charset_compare(ScmObj x, ScmObj y, int equalp);
x 343 src/char.c static int charset_compare(ScmObj x, ScmObj y, int equalp)
x 345 src/char.c ScmCharSet *xx = SCM_CHARSET(x);
x 354 src/char.c Scm_Error("cannot compare char-sets: %S vs %S", x, y);
x 359 src/char.c int Scm_CharSetEq(ScmCharSet *x, ScmCharSet *y)
x 364 src/char.c if (x->mask[i] != y->mask[i]) return FALSE;
x 365 src/char.c for (rx=x->ranges, ry=y->ranges; rx && ry; rx=rx->next, ry=ry->next) {
x 373 src/char.c int Scm_CharSetLE(ScmCharSet *x, ScmCharSet *y)
x 378 src/char.c if ((x->mask[i] | y->mask[i]) != y->mask[i]) return FALSE;
x 379 src/char.c rx = x->ranges;
x 64 src/class.c static int object_compare(ScmObj x, ScmObj y, int equalp);
x 1864 src/class.c static int object_compare(ScmObj x, ScmObj y, int equalp)
x 1868 src/class.c r = Scm_Apply(SCM_OBJ(&Scm_GenericObjectEqualP), SCM_LIST2(x, y));
x 1871 src/class.c r = Scm_Apply(SCM_OBJ(&Scm_GenericObjectCompare), SCM_LIST2(x, y));
x 1878 src/class.c Scm_Error("object %S and %S can't be ordered", x, y);
x 2036 src/class.c static inline int method_more_specific(ScmMethod *x, ScmMethod *y,
x 2039 src/class.c ScmClass **xs = x->specializers;
x 2043 src/class.c for (i=0; i<SCM_PROCEDURE_REQUIRED(x) && i<SCM_PROCEDURE_REQUIRED(y); i++) {
x 2063 src/class.c ScmMethod *x = SCM_METHOD(args[0]);
x 2076 src/class.c return SCM_MAKE_BOOL(method_more_specific(x, y, targs, ntargs));
x 584 src/code.c #define INSN(x) SCM_VM_INSN(x)
x 585 src/code.c #define INSN1(x, a) SCM_VM_INSN1(x, a)
x 586 src/code.c #define INSN2(x, a, b) SCM_VM_INSN2(x, a, b)
x 588 src/code.c #define CODE(x) SCM_VM_INSN_CODE(x)
x 589 src/code.c #define IARG(x) SCM_VM_INSN_ARG(x)
x 590 src/code.c #define IARG0(x) SCM_VM_INSN_ARG0(x)
x 591 src/code.c #define IARG1(x) SCM_VM_INSN_ARG1(x)
x 44 src/compare.c int Scm_Compare(ScmObj x, ScmObj y)
x 49 src/compare.c if (SCM_NUMBERP(x) && SCM_NUMBERP(y))
x 50 src/compare.c return Scm_NumCmp(x, y);
x 51 src/compare.c if (SCM_STRINGP(x) && SCM_STRINGP(y))
x 52 src/compare.c return Scm_StringCmp(SCM_STRING(x), SCM_STRING(y));
x 53 src/compare.c if (SCM_CHARP(x) && SCM_CHARP(y))
x 54 src/compare.c return SCM_CHAR_VALUE(x) == SCM_CHAR_VALUE(y)? 0 :
x 55 src/compare.c SCM_CHAR_VALUE(x) < SCM_CHAR_VALUE(y)? -1 : 1;
x 57 src/compare.c cx = Scm_ClassOf(x);
x 60 src/compare.c if (cy->compare) return cy->compare(x, y, FALSE);
x 62 src/compare.c if (cx->compare) return cx->compare(x, y, FALSE);
x 64 src/compare.c Scm_Error("can't compare %S and %S", x, y);
x 165 src/compare.c static int cmp_scm(ScmObj x, ScmObj y, ScmObj fn)
x 167 src/compare.c ScmObj r = Scm_Apply(fn, SCM_LIST2(x, y));
x 174 src/compare.c static int cmp_int(ScmObj x, ScmObj y, ScmObj dummy)
x 176 src/compare.c return Scm_Compare(x, y);
x 269 src/core.c struct cleanup_handler_rec *x = NULL, *y = cleanup.handlers;
x 272 src/core.c if (x == NULL) {
x 275 src/core.c x->next = y->next;
x 70 src/extlib.c ScmObj x;
x 75 src/extlib.c x = (x_scm);
x 81 src/extlib.c SCM_RESULT = Scm_Compare(x, y);
x 117 src/extlib.c ScmObj x;
x 120 src/extlib.c x = (x_scm);
x 124 src/extlib.c SCM_RESULT = Scm_LogNot(x);
x 136 src/extlib.c ScmObj x;
x 144 src/extlib.c x = (x_scm);
x 150 src/extlib.c ScmObj cp, r = Scm_LogAnd(x, y);
x 164 src/extlib.c ScmObj x;
x 172 src/extlib.c x = (x_scm);
x 178 src/extlib.c ScmObj cp, r = Scm_LogIor(x, y);
x 192 src/extlib.c ScmObj x;
x 200 src/extlib.c x = (x_scm);
x 206 src/extlib.c ScmObj cp, r = Scm_LogXor(x, y);
x 220 src/extlib.c ScmObj x;
x 223 src/extlib.c x = (x_scm);
x 227 src/extlib.c SCM_RESULT = SCM_INTP(x);
x 239 src/extlib.c ScmObj x;
x 242 src/extlib.c x = (x_scm);
x 246 src/extlib.c SCM_RESULT = SCM_BIGNUMP(x);
x 258 src/extlib.c ScmObj x;
x 261 src/extlib.c x = (x_scm);
x 265 src/extlib.c SCM_RESULT = SCM_FLONUMP(x);
x 277 src/extlib.c ScmObj x;
x 287 src/extlib.c x = (x_scm);
x 301 src/extlib.c ScmObj r = x; int maybe_exact = FALSE;
x 302 src/extlib.c if (SCM_EXACTP(x)) maybe_exact = TRUE;
x 303 src/extlib.c else if (!SCM_FLONUMP(x)) {
x 304 src/extlib.c Scm_Error("real number required for x, but got %S", x);
x 307 src/extlib.c if (Scm_NumCmp(x, min) < 0) r = min;
x 310 src/extlib.c if (Scm_NumCmp(x, min) < 0) r = min;
x 315 src/extlib.c if (Scm_NumCmp(x, max) > 0) r = max;
x 318 src/extlib.c if (Scm_NumCmp(x, max) > 0) r = max;
x 1316 src/extlib.c ScmCharSet* x;
x 1322 src/extlib.c x = SCM_CHARSET(x_scm);
x 1329 src/extlib.c SCM_RESULT = Scm_CharSetEq(x, y);
x 1341 src/extlib.c ScmCharSet* x;
x 1347 src/extlib.c x = SCM_CHARSET(x_scm);
x 1354 src/extlib.c SCM_RESULT = Scm_CharSetLE(x, y);
x 218 src/gauche.h #define SCM_EQ(x, y) ((x) == (y))
x 220 src/gauche.h SCM_EXTERN int Scm_EqP(ScmObj x, ScmObj y);
x 221 src/gauche.h SCM_EXTERN int Scm_EqvP(ScmObj x, ScmObj y);
x 222 src/gauche.h SCM_EXTERN int Scm_EqualP(ScmObj x, ScmObj y);
x 231 src/gauche.h SCM_EXTERN int Scm_EqualM(ScmObj x, ScmObj y, int mode);
x 447 src/gauche.h typedef int (*ScmClassCompareProc)(ScmObj x, ScmObj y, int equalp);
x 902 src/gauche.h SCM_EXTERN int Scm_CharSetEq(ScmCharSet *x, ScmCharSet *y);
x 903 src/gauche.h SCM_EXTERN int Scm_CharSetLE(ScmCharSet *x, ScmCharSet *y);
x 1071 src/gauche.h SCM_EXTERN int Scm_StringEqual(ScmString *x, ScmString *y);
x 1072 src/gauche.h SCM_EXTERN int Scm_StringCmp(ScmString *x, ScmString *y);
x 1073 src/gauche.h SCM_EXTERN int Scm_StringCiCmp(ScmString *x, ScmString *y);
x 1083 src/gauche.h SCM_EXTERN ScmObj Scm_Substring(ScmString *x, int start, int end);
x 1084 src/gauche.h SCM_EXTERN ScmObj Scm_MaybeSubstring(ScmString *x, ScmObj start, ScmObj end);
x 1085 src/gauche.h SCM_EXTERN ScmObj Scm_StringTake(ScmString *x, int nchars, int takefirst,
x 1088 src/gauche.h SCM_EXTERN ScmObj Scm_StringAppend2(ScmString *x, ScmString *y);
x 1089 src/gauche.h SCM_EXTERN ScmObj Scm_StringAppendC(ScmString *x, const char *s, int size,
x 2112 src/gauche.h #define Scm_GetInteger(x) Scm_GetIntegerClamp(x, SCM_CLAMP_BOTH, NULL)
x 2113 src/gauche.h #define Scm_GetIntegerU(x) Scm_GetIntegerUClamp(x, SCM_CLAMP_BOTH, NULL)
x 2130 src/gauche.h #define Scm_GetInteger64(x) Scm_GetInteger64Clamp(x, SCM_CLAMP_BOTH, NULL)
x 2131 src/gauche.h #define Scm_GetIntegerU64(x) Scm_GetIntegerU64Clamp(x, SCM_CLAMP_BOTH, NULL)
x 2172 src/gauche.h SCM_EXTERN ScmObj Scm_Expt(ScmObj x, ScmObj y);
x 2174 src/gauche.h SCM_EXTERN int Scm_NumEq(ScmObj x, ScmObj y);
x 2175 src/gauche.h SCM_EXTERN int Scm_NumCmp(ScmObj x, ScmObj y);
x 2178 src/gauche.h SCM_EXTERN ScmObj Scm_LogAnd(ScmObj x, ScmObj y);
x 2179 src/gauche.h SCM_EXTERN ScmObj Scm_LogIor(ScmObj x, ScmObj y);
x 2180 src/gauche.h SCM_EXTERN ScmObj Scm_LogXor(ScmObj x, ScmObj y);
x 2181 src/gauche.h SCM_EXTERN ScmObj Scm_LogNot(ScmObj x);
x 2182 src/gauche.h SCM_EXTERN int Scm_LogTest(ScmObj x, ScmObj y);
x 2183 src/gauche.h SCM_EXTERN int Scm_LogBit(ScmObj x, int bit);
x 2184 src/gauche.h SCM_EXTERN ScmObj Scm_Ash(ScmObj x, int cnt);
x 2861 src/gauche.h SCM_EXTERN int Scm_Compare(ScmObj x, ScmObj y);
x 80 src/gauche/arith.h #define UADD(r, c, x, y) \
x 82 src/gauche/arith.h (r) = (x) + (y) + (c); \
x 83 src/gauche/arith.h (c) = ((r)<(x) || ((r)==(x) && ((y)>0||(c)>0)))? 1 : 0; \
x 96 src/gauche/arith.h #define UADDOV(r, v, x, y) \
x 98 src/gauche/arith.h (r) = (x) + (y); \
x 99 src/gauche/arith.h (v) = ((r) < (x))? 1 : 0; \
x 112 src/gauche/arith.h #define SADDOV(r, v, x, y) \
x 114 src/gauche/arith.h (r) = (x) + (y); \
x 115 src/gauche/arith.h if ((x) >= 0) { \
x 134 src/gauche/arith.h #define USUB(r, c, x, y) \
x 136 src/gauche/arith.h (r) = (x) - (y) - (c); \
x 137 src/gauche/arith.h (c) = ((r)>(x) || ((r)==(x) && ((y)>0||(c)>0)))? 1 : 0; \
x 150 src/gauche/arith.h #define USUBOV(r, v, x, y) \
x 152 src/gauche/arith.h (r) = (x) - (y); \
x 153 src/gauche/arith.h (v) = ((r) > (x))? 1 : 0; \
x 166 src/gauche/arith.h #define SSUBOV(r, v, x, y) \
x 168 src/gauche/arith.h (r) = (x) - (y); \
x 169 src/gauche/arith.h if ((x) >= 0) { \
x 187 src/gauche/arith.h #define UMUL(hi, lo, x, y) \
x 189 src/gauche/arith.h u_long xl_ = LO(x), xh_ = HI(x), yl_ = LO(y), yh_ = HI(y); \
x 213 src/gauche/arith.h #define UMULOV(r, v, x, y) \
x 215 src/gauche/arith.h if ((x)==0 || (y)==0) { (v) = (r) = 0; } \
x 218 src/gauche/arith.h UMUL(t5_, r, x, y); \
x 233 src/gauche/arith.h #define SMULOV(r, v, x, y) \
x 236 src/gauche/arith.h if ((x) >= 0) { \
x 238 src/gauche/arith.h UMULOV(t6_, v, x, y); \
x 242 src/gauche/arith.h UMULOV(t6_, v, x, -y); \
x 248 src/gauche/arith.h UMULOV(t6_, v, -x, y); \
x 252 src/gauche/arith.h UMULOV(t6_, v, -x, -y); \
x 50 src/gauche/arith_i386.h #define UADD(r, c, x, y) \
x 60 src/gauche/arith_i386.h : "1" (c), "g"(x), "g"(y) \
x 70 src/gauche/arith_i386.h #define UADDOV(r, v, x, y) \
x 76 src/gauche/arith_i386.h : "g" (x), "g" (y))
x 85 src/gauche/arith_i386.h #define SADDOV(r, v, x, y) \
x 95 src/gauche/arith_i386.h : "g" (x), "g" (y))
x 104 src/gauche/arith_i386.h #define USUB(r, c, x, y) \
x 111 src/gauche/arith_i386.h : "1" (c), "g" (x), "g" (y))
x 120 src/gauche/arith_i386.h #define USUBOV(r, v, x, y) \
x 126 src/gauche/arith_i386.h : "g" (x), "g" (y))
x 135 src/gauche/arith_i386.h #define SSUBOV(r, v, x, y) \
x 145 src/gauche/arith_i386.h : "g" (x), "g" (y))
x 153 src/gauche/arith_i386.h #define UMUL(hi, lo, x, y) \
x 159 src/gauche/arith_i386.h : "g" (x), "r" (y) \
x 173 src/gauche/arith_i386.h #define UMULOV(r, v, x, y) \
x 177 src/gauche/arith_i386.h : "r" (y), "0" (x), "1" (0) \
x 188 src/gauche/arith_i386.h #define SMULOV(r, v, x, y) \
x 197 src/gauche/arith_i386.h : "r" (y), "0" (x), "1" (0) \
x 1603 src/intlib.c ScmObj x;
x 1608 src/intlib.c x = (x_scm);
x 1612 src/intlib.c if (SCM_WORD(x) > SCM_WORD(y)) SCM_RETURN(x);
x 50 src/number.c #define SCM_IS_NAN(x) isnan(x)
x 52 src/number.c #define SCM_IS_NAN(x) FALSE /* we don't have a clue */
x 56 src/number.c #define SCM_IS_INF(x) isinf(x)
x 58 src/number.c #define SCM_IS_INF(x) ((x) != 0 && (x) == (x)/2.0)
x 1314 src/number.c ScmObj Scm_Quotient(ScmObj x, ScmObj y, ScmObj *rem)
x 1317 src/number.c if (SCM_INTP(x)) {
x 1321 src/number.c q = SCM_INT_VALUE(x)/SCM_INT_VALUE(y);
x 1323 src/number.c r = SCM_INT_VALUE(x)%SCM_INT_VALUE(y);
x 1329 src/number.c if (rem) *rem = x;
x 1333 src/number.c rx = (double)SCM_INT_VALUE(x);
x 1339 src/number.c } else if (SCM_BIGNUMP(x)) {
x 1342 src/number.c ScmObj q = Scm_BignumDivSI(SCM_BIGNUM(x), SCM_INT_VALUE(y), &r);
x 1346 src/number.c ScmObj qr = Scm_BignumDivRem(SCM_BIGNUM(x), SCM_BIGNUM(y));
x 1350 src/number.c rx = Scm_BignumToDouble(SCM_BIGNUM(x));
x 1356 src/number.c } else if (SCM_FLONUMP(x)) {
x 1357 src/number.c rx = SCM_FLONUM_VALUE(x);
x 1386 src/number.c x = y;
x 1388 src/number.c Scm_Error("integer required, but got %S", x);
x 1395 src/number.c ScmObj Scm_Modulo(ScmObj x, ScmObj y, int remp)
x 1398 src/number.c if (SCM_INTP(x)) {
x 1402 src/number.c r = SCM_INT_VALUE(x)%SCM_INT_VALUE(y);
x 1404 src/number.c if ((SCM_INT_VALUE(x) > 0 && SCM_INT_VALUE(y) < 0)
x 1405 src/number.c || (SCM_INT_VALUE(x) < 0 && SCM_INT_VALUE(y) > 0)) {
x 1413 src/number.c return x;
x 1415 src/number.c if ((SCM_INT_VALUE(x) < 0 && SCM_BIGNUM_SIGN(y) > 0)
x 1416 src/number.c || (SCM_INT_VALUE(x) > 0 && SCM_BIGNUM_SIGN(y) < 0)) {
x 1417 src/number.c return Scm_BignumAddSI(SCM_BIGNUM(y), SCM_INT_VALUE(x));
x 1419 src/number.c return x;
x 1423 src/number.c rx = (double)SCM_INT_VALUE(x);
x 1430 src/number.c } else if (SCM_BIGNUMP(x)) {
x 1434 src/number.c Scm_BignumDivSI(SCM_BIGNUM(x), iy, &rem);
x 1437 src/number.c && ((SCM_BIGNUM_SIGN(x) < 0 && iy > 0)
x 1438 src/number.c || (SCM_BIGNUM_SIGN(x) > 0 && iy < 0))) {
x 1444 src/number.c ScmObj rem = SCM_CDR(Scm_BignumDivRem(SCM_BIGNUM(x), SCM_BIGNUM(y)));
x 1447 src/number.c && (SCM_BIGNUM_SIGN(x) * SCM_BIGNUM_SIGN(y) < 0)) {
x 1456 src/number.c rx = Scm_BignumToDouble(SCM_BIGNUM(x));
x 1463 src/number.c } else if (SCM_FLONUMP(x)) {
x 1465 src/number.c rx = SCM_FLONUM_VALUE(x);
x 1492 src/number.c x = y;
x 1494 src/number.c Scm_Error("integer required, but got %S", x);
x 1530 src/number.c static ScmObj exact_expt(ScmObj x, ScmObj y)
x 1537 src/number.c if (x == SCM_MAKE_INT(1)) return r;
x 1538 src/number.c if (x == SCM_MAKE_INT(-1)) return Scm_OddP(y)? SCM_MAKE_INT(-1) : r;
x 1546 src/number.c if (x == SCM_MAKE_INT(10) && iy > 0 && iy < IEXPT10_TABLESIZ) {
x 1549 src/number.c } else if (x == SCM_MAKE_INT(2) && iy > 0) {
x 1555 src/number.c if (iy == 1) { r = Scm_Multiply2(r, x); break; }
x 1556 src/number.c if (iy & 0x01) r = Scm_Multiply2(r, x);
x 1557 src/number.c x = Scm_Multiply2(x, x);
x 1564 src/number.c ScmObj Scm_Expt(ScmObj x, ScmObj y)
x 1567 src/number.c if (SCM_EXACTP(x) && SCM_EXACTP(y)) return exact_expt(x, y);
x 1568 src/number.c if (!SCM_REALP(x)) Scm_Error("real number required, but got %S", x);
x 1570 src/number.c dx = Scm_GetDouble(x);
x 1754 src/number.c ScmObj Scm_Ash(ScmObj x, int cnt)
x 1756 src/number.c if (SCM_INTP(x)) {
x 1757 src/number.c long ix = SCM_INT_VALUE(x);
x 1786 src/number.c } else if (SCM_BIGNUMP(x)) {
x 1787 src/number.c return Scm_BignumAsh(SCM_BIGNUM(x), cnt);
x 1789 src/number.c Scm_Error("exact integer required, but got %S", x);
x 1793 src/number.c ScmObj Scm_LogNot(ScmObj x)
x 1795 src/number.c if (!SCM_EXACTP(x)) Scm_Error("exact integer required, but got %S", x);
x 1796 src/number.c if (SCM_INTP(x)) {
x 1798 src/number.c return SCM_MAKE_INT(~SCM_INT_VALUE(x));
x 1800 src/number.c return Scm_Negate(Scm_BignumAddSI(SCM_BIGNUM(x), 1));
x 1804 src/number.c ScmObj Scm_LogAnd(ScmObj x, ScmObj y)
x 1806 src/number.c if (!SCM_EXACTP(x)) Scm_Error("exact integer required, but got %S", x);
x 1808 src/number.c if (SCM_INTP(x)) {
x 1810 src/number.c return SCM_MAKE_INT(SCM_INT_VALUE(x) & SCM_INT_VALUE(y));
x 1811 src/number.c } else if (SCM_INT_VALUE(x) >= 0 && SCM_BIGNUM_SIGN(y) >= 0) {
x 1812 src/number.c return Scm_MakeInteger(SCM_INT_VALUE(x)&SCM_BIGNUM(y)->values[0]);
x 1814 src/number.c x = Scm_MakeBignumFromSI(SCM_INT_VALUE(x));
x 1816 src/number.c if (SCM_INT_VALUE(y) >= 0 && SCM_BIGNUM_SIGN(x) >= 0) {
x 1817 src/number.c return Scm_MakeInteger(SCM_INT_VALUE(y)&SCM_BIGNUM(x)->values[0]);
x 1821 src/number.c return Scm_BignumLogAnd(SCM_BIGNUM(x), SCM_BIGNUM(y));
x 1824 src/number.c ScmObj Scm_LogIor(ScmObj x, ScmObj y)
x 1826 src/number.c if (!SCM_EXACTP(x)) Scm_Error("exact integer required, but got %S", x);
x 1828 src/number.c if (SCM_INTP(x)) {
x 1830 src/number.c return SCM_MAKE_INT(SCM_INT_VALUE(x) | SCM_INT_VALUE(y));
x 1832 src/number.c x = Scm_MakeBignumFromSI(SCM_INT_VALUE(x));
x 1836 src/number.c return Scm_BignumLogIor(SCM_BIGNUM(x), SCM_BIGNUM(y));
x 1840 src/number.c ScmObj Scm_LogXor(ScmObj x, ScmObj y)
x 1842 src/number.c if (!SCM_EXACTP(x)) Scm_Error("exact integer required, but got %S", x);
x 1844 src/number.c if (SCM_INTP(x)) {
x 1846 src/number.c return SCM_MAKE_INT(SCM_INT_VALUE(x) ^ SCM_INT_VALUE(y));
x 1848 src/number.c x = Scm_MakeBignumFromSI(SCM_INT_VALUE(x));
x 1852 src/number.c return Scm_BignumLogXor(SCM_BIGNUM(x), SCM_BIGNUM(y));
x 1888 src/number.c static double raise_pow10(double x, int n)
x 1897 src/number.c x *= 1.0e24;
x 1900 src/number.c return x*dpow10[n];
x 1903 src/number.c x /= 1.0e24;
x 1906 src/number.c return x/dpow10[-n];
x 1919 src/number.c static inline int numcmp3(ScmObj x, ScmObj d, ScmObj y)
x 1921 src/number.c ScmObj bx = SCM_BIGNUMP(x)? x : Scm_MakeBignumFromSI(SCM_INT_VALUE(x));
x 2314 src/number.c ScmObj m, x, y, abs_d, d2;
x 2321 src/number.c x = Scm_Multiply2(f, iexpt10(e));
x 2324 src/number.c x = f;
x 2329 src/number.c x = Scm_Ash(Scm_Multiply2(f, iexpt10(e)), -k);
x 2332 src/number.c x = Scm_Ash(f, -k);
x 2342 src/number.c sign_d = Scm_NumCmp(x, y);
x 2343 src/number.c abs_d = (sign_d > 0)? Scm_Subtract2(x, y) : Scm_Subtract2(y, x);
x 2402 src/number.c if (k != kprev) x = Scm_Ash(Scm_Multiply2(f, iexpt10(e)), -k);
x 2405 src/number.c if (k != kprev) x = Scm_Ash(f, -k);
x 181 src/regexp.c static int regexp_compare(ScmObj x, ScmObj y, int equalp);
x 213 src/regexp.c static int regexp_compare(ScmObj x, ScmObj y, int equalp)
x 216 src/regexp.c Scm_Error("cannot compare regexps: %S and %S", x, y);
x 218 src/regexp.c return !(SCM_REGEXP(x)->pattern
x 220 src/regexp.c && Scm_StringEqual(SCM_STRING(SCM_REGEXP(x)->pattern),
x 222 src/regexp.c && ((SCM_REGEXP(x)->flags&SCM_REGEXP_CASE_FOLD)
x 792 src/regexp.c static int is_distinct(ScmObj x, ScmObj y);
x 865 src/regexp.c static int is_distinct(ScmObj x, ScmObj y)
x 868 src/regexp.c if (SCM_PAIRP(x)) {
x 869 src/regexp.c carx = SCM_CAR(x);
x 871 src/regexp.c SCM_ASSERT(SCM_CHARSETP(SCM_CDR(x)));
x 873 src/regexp.c return !is_distinct(SCM_CDR(x), y);
x 880 src/regexp.c if (SCM_PAIRP(SCM_CDR(x))) {
x 881 src/regexp.c return is_distinct(SCM_CADR(x), y);
x 886 src/regexp.c if (SCM_CHARP(x)) {
x 887 src/regexp.c if (SCM_CHARP(y)) return !SCM_EQ(x, y);
x 888 src/regexp.c return is_distinct(y, x);
x 890 src/regexp.c if (SCM_CHARSETP(x)) {
x 892 src/regexp.c return !Scm_CharSetContains(SCM_CHARSET(x), SCM_CHAR_VALUE(y));
x 897 src/regexp.c return Scm_CharSetLE(SCM_CHARSET(x), SCM_CHARSET(ccs));
x 899 src/regexp.c return is_distinct(y, x);
x 102 src/signal.c #define SIGDEF(x, flag) { #x, x, flag }
x 772 src/stdlib.c double x;
x 776 src/stdlib.c x = Scm_GetDouble(x_scm);
x 780 src/stdlib.c SCM_RESULT = exp(x);
x 792 src/stdlib.c ScmObj x;
x 795 src/stdlib.c x = (x_scm);
x 799 src/stdlib.c if (!SCM_REALP(x)) {
x 800 src/stdlib.c Scm_Error("real number required, but got %S", x);
x 802 src/stdlib.c if (Scm_Sign(x) < 0) {
x 803 src/stdlib.c SCM_RESULT = Scm_MakeComplex(log(-Scm_GetDouble(x)), M_PI);
x 807 src/stdlib.c SCM_RESULT = Scm_MakeFlonum(log(Scm_GetDouble(x)));
x 820 src/stdlib.c double x;
x 824 src/stdlib.c x = Scm_GetDouble(x_scm);
x 828 src/stdlib.c SCM_RESULT = sin(x);
x 840 src/stdlib.c double x;
x 844 src/stdlib.c x = Scm_GetDouble(x_scm);
x 848 src/stdlib.c SCM_RESULT = cos(x);
x 860 src/stdlib.c double x;
x 864 src/stdlib.c x = Scm_GetDouble(x_scm);
x 868 src/stdlib.c SCM_RESULT = tan(x);
x 880 src/stdlib.c double x;
x 884 src/stdlib.c x = Scm_GetDouble(x_scm);
x 888 src/stdlib.c if (x > 1.0) {
x 889 src/stdlib.c SCM_RESULT = Scm_MakeComplex(M_PI/2.0, -log(x + sqrt(x*x-1.0)));
x 890 src/stdlib.c } else if (x < -1.0) {
x 891 src/stdlib.c SCM_RESULT = Scm_MakeComplex(-M_PI/2.0, -log(-x - sqrt(x*x-1.0)));
x 893 src/stdlib.c SCM_RESULT = Scm_MakeFlonum(asin(x));
x 906 src/stdlib.c double x;
x 910 src/stdlib.c x = Scm_GetDouble(x_scm);
x 914 src/stdlib.c if (x > 1.0) {
x 915 src/stdlib.c SCM_RESULT = Scm_MakeComplex(0, log(x + sqrt(x*x-1.0)));
x 916 src/stdlib.c } else if (x < -1.0) {
x 917 src/stdlib.c SCM_RESULT = Scm_MakeComplex(M_PI, log(-x - sqrt(x*x-1.0)));
x 919 src/stdlib.c SCM_RESULT = Scm_MakeFlonum(acos(x));
x 934 src/stdlib.c ScmObj x;
x 947 src/stdlib.c x = (x_scm);
x 951 src/stdlib.c if (x == SCM_UNBOUND) {
x 954 src/stdlib.c if (!SCM_REALP(x)) Scm_Error("real number required for x, but got %S", x);
x 955 src/stdlib.c SCM_RESULT = Scm_MakeFlonum(atan2(z, Scm_GetDouble(x)));
x 968 src/stdlib.c double x;
x 972 src/stdlib.c x = Scm_GetDouble(x_scm);
x 976 src/stdlib.c SCM_RESULT = sinh(x);
x 988 src/stdlib.c double x;
x 992 src/stdlib.c x = Scm_GetDouble(x_scm);
x 996 src/stdlib.c SCM_RESULT = cosh(x);
x 1008 src/stdlib.c double x;
x 1012 src/stdlib.c x = Scm_GetDouble(x_scm);
x 1016 src/stdlib.c SCM_RESULT = tanh(x);
x 1028 src/stdlib.c double x;
x 1032 src/stdlib.c x = Scm_GetDouble(x_scm);
x 1034 src/stdlib.c if (x < 0) SCM_RETURN(Scm_MakeComplex(0.0, sqrt(-x)));
x 1035 src/stdlib.c else SCM_RETURN(Scm_MakeFlonum(sqrt(x)));
x 1045 src/stdlib.c ScmObj x;
x 1050 src/stdlib.c x = (x_scm);
x 1056 src/stdlib.c SCM_RESULT = Scm_Expt(x, y);
x 294 src/string.c ScmObj Scm_CopyStringWithFlags(ScmString *x, int flags, int mask)
x 296 src/string.c const ScmStringBody *b = SCM_STRING_BODY(x);
x 306 src/string.c ScmObj Scm_StringCompleteToIncompleteX(ScmString *x)
x 309 src/string.c CHECK_MUTABLE(x);
x 310 src/string.c b = SCM_STRING_BODY(x);
x 311 src/string.c x->body = make_str_body(SCM_STRING_BODY_SIZE(b),
x 315 src/string.c return SCM_OBJ(x);
x 318 src/string.c ScmObj Scm_StringCompleteToIncomplete(ScmString *x)
x 320 src/string.c return Scm_CopyStringWithFlags(x, SCM_STRING_INCOMPLETE,
x 325 src/string.c ScmObj Scm_StringIncompleteToCompleteX(ScmString *x)
x 328 src/string.c CHECK_MUTABLE(x);
x 329 src/string.c b = (ScmStringBody*)SCM_STRING_BODY(x);
x 337 src/string.c return SCM_OBJ(x);
x 340 src/string.c ScmObj Scm_StringIncompleteToComplete(ScmString *x)
x 342 src/string.c return Scm_StringIncompleteToCompleteX(SCM_STRING(Scm_CopyString(x)));
x 350 src/string.c int Scm_StringEqual(ScmString *x, ScmString *y)
x 352 src/string.c const ScmStringBody *xb = SCM_STRING_BODY(x);
x 365 src/string.c int Scm_StringCmp(ScmString *x, ScmString *y)
x 368 src/string.c const ScmStringBody *xb = SCM_STRING_BODY(x);
x 372 src/string.c SCM_OBJ(x), SCM_OBJ(y));
x 417 src/string.c int Scm_StringCiCmp(ScmString *x, ScmString *y)
x 421 src/string.c const ScmStringBody *xb = SCM_STRING_BODY(x);
x 426 src/string.c SCM_OBJ(x), SCM_OBJ(y));
x 531 src/string.c ScmObj Scm_StringAppend2(ScmString *x, ScmString *y)
x 533 src/string.c const ScmStringBody *xb = SCM_STRING_BODY(x);
x 550 src/string.c ScmObj Scm_StringAppendC(ScmString *x, const char *str, int sizey, int leny)
x 552 src/string.c const ScmStringBody *xb = SCM_STRING_BODY(x);
x 701 src/string.c static ScmObj string_substitute(ScmString *x,
x 744 src/string.c x->body = make_str_body(newlen, /* len */
x 748 src/string.c return SCM_OBJ(x);
x 751 src/string.c ScmObj Scm_StringSubstitute(ScmString *x, int start, ScmString *y)
x 754 src/string.c CHECK_MUTABLE(x);
x 755 src/string.c return string_substitute(x, SCM_STRING_BODY(x),
x 763 src/string.c ScmObj Scm_StringSet(ScmString *x, int k, ScmChar ch)
x 765 src/string.c const ScmStringBody *xb = SCM_STRING_BODY(x);
x 766 src/string.c CHECK_MUTABLE(x);
x 769 src/string.c return string_substitute(x, xb, k, &byte, 1, 1, TRUE);
x 774 src/string.c return string_substitute(x, xb, k, buf, size, 1, FALSE);
x 778 src/string.c ScmObj Scm_StringByteSet(ScmString *x, int k, ScmByte b)
x 780 src/string.c const ScmStringBody *xb = SCM_STRING_BODY(x);
x 784 src/string.c CHECK_MUTABLE(x);
x 792 src/string.c x->body = make_str_body(size, size, p, SCM_STRING_INCOMPLETE);
x 793 src/string.c return SCM_OBJ(x);
x 822 src/string.c ScmObj Scm_Substring(ScmString *x, int start, int end)
x 824 src/string.c return substring(SCM_STRING_BODY(x), start, end);
x 830 src/string.c ScmObj Scm_MaybeSubstring(ScmString *x, ScmObj start, ScmObj end)
x 833 src/string.c const ScmStringBody *xb = SCM_STRING_BODY(x);
x 843 src/string.c if (istart == 0) return SCM_OBJ(x);
x 715 src/system.c static int time_compare(ScmObj x, ScmObj y, int equalp)
x 717 src/system.c ScmTime *tx = SCM_TIME(x);
x 730 src/system.c Scm_Error("cannot compare different types of time objects: %S vs %S", x, y);
x 41 src/test-arith.c x = x_; \
x 43 src/test-arith.c op(r, c, x, y); \
x 55 src/test-arith.c x = x_; \
x 63 src/test-arith.c op(r, c, x, y); \
x 88 src/test-arith.c u_long r, c, x, y;
x 125 src/test-arith.c u_long r, c, x, y;
x 154 src/test-arith.c long r, c, x, y;
x 201 src/test-arith.c u_long r, c, x, y;
x 238 src/test-arith.c u_long r, c, x, y;
x 265 src/test-arith.c long r, c, x, y;
x 313 src/test-arith.c x = x_; \
x 315 src/test-arith.c UMUL(hi, lo, x, y); \
x 326 src/test-arith.c u_long hi, lo, x, y;
x 347 src/test-arith.c u_long r, c, x, y;
x 382 src/test-arith.c long r, c, x, y;
x 27 src/test-vmstack.c ScmObj x = Scm_ReadFromCString(sexp);
x 30 src/test-vmstack.c Scm_Eval(x, SCM_UNBOUND);
x 1452 src/vm.c ScmObj x, y = VAL0;
x 1453 src/vm.c POP_ARG(x);
x 1455 src/vm.c if (!Scm_NumEq(x, y)) {