y 81 ext/auxsys/auxsyslib.c double y;
y 88 ext/auxsys/auxsyslib.c y = Scm_GetDouble(y_scm);
y 92 ext/auxsys/auxsyslib.c SCM_RESULT = fmod(x, y);
y 148 ext/digest/md5c.c #define F1(x, y, z) (z ^ (x & (y ^ z)))
y 149 ext/digest/md5c.c #define F2(x, y, z) F1(z, x, y)
y 150 ext/digest/md5c.c #define F3(x, y, z) (x ^ y ^ z)
y 151 ext/digest/md5c.c #define F4(x, y, z) (y ^ (x | ~z))
y 154 ext/digest/md5c.c #define MD5STEP(f, w, x, y, z, data, s) \
y 155 ext/digest/md5c.c ( w += f(x, y, z) + data, w = w<<s | w>>(32-s), w += x )
y 82 ext/digest/sha.c #define f1(x,y,z) ( z ^ (x & (y ^ z) ) ) /* Rounds 0-19 */
y 83 ext/digest/sha.c #define f2(x,y,z) ( x ^ y ^ z ) /* Rounds 20-39 */
y 84 ext/digest/sha.c #define f3(x,y,z) ( (x & y) + (z & (x ^ y) ) ) /* Rounds 40-59 */
y 85 ext/digest/sha.c #define f4(x,y,z) ( x ^ y ^ z ) /* Rounds 60-79 */
y 120 ext/mt-random/mt-random.c unsigned long y;
y 132 ext/mt-random/mt-random.c y = (mt->mt[kk]&UPPER_MASK)|(mt->mt[kk+1]&LOWER_MASK);
y 133 ext/mt-random/mt-random.c mt->mt[kk] = mt->mt[kk+M] ^ (y >> 1) ^ mag01[y & 0x1UL];
y 136 ext/mt-random/mt-random.c y = (mt->mt[kk]&UPPER_MASK)|(mt->mt[kk+1]&LOWER_MASK);
y 137 ext/mt-random/mt-random.c mt->mt[kk] = mt->mt[kk+(M-N)] ^ (y >> 1) ^ mag01[y & 0x1UL];
y 139 ext/mt-random/mt-random.c y = (mt->mt[N-1]&UPPER_MASK)|(mt->mt[0]&LOWER_MASK);
y 140 ext/mt-random/mt-random.c mt->mt[N-1] = mt->mt[M-1] ^ (y >> 1) ^ mag01[y & 0x1UL];
y 145 ext/mt-random/mt-random.c y = mt->mt[mti++];
y 148 ext/mt-random/mt-random.c y ^= (y >> 11);
y 149 ext/mt-random/mt-random.c y ^= (y << 7) & 0x9d2c5680UL;
y 150 ext/mt-random/mt-random.c y ^= (y << 15) & 0xefc60000UL;
y 151 ext/mt-random/mt-random.c y ^= (y >> 18);
y 154 ext/mt-random/mt-random.c return y;
y 140 ext/uvector/uvector.c static void size_mismatch(const char *name, ScmObj x, ScmObj y)
y 142 ext/uvector/uvector.c Scm_Error("%s: argument object sizes do not match: %S vs %S", name, x, y);
y 155 ext/uvector/uvector.c static ArgType arg2_check(const char *name, ScmObj x, ScmObj y, int const_ok)
y 158 ext/uvector/uvector.c if (SCM_UVECTORP(y)) {
y 159 ext/uvector/uvector.c if (SCM_UVECTOR_SIZE(y) != size) size_mismatch(name, SCM_OBJ(x), y);
y 161 ext/uvector/uvector.c } else if (SCM_VECTORP(y)) {
y 162 ext/uvector/uvector.c if (SCM_VECTOR_SIZE(y) != size) size_mismatch(name, SCM_OBJ(x), y);
y 164 ext/uvector/uvector.c } else if (SCM_LISTP(y)) {
y 165 ext/uvector/uvector.c if (Scm_Length(y) != size) size_mismatch(name, SCM_OBJ(x), y);
y 168 ext/uvector/uvector.c Scm_Error("%s: second operand must be either a matching uvector, a vector, or a list, but got %S", y);
y 169 ext/uvector/uvector.c } else if (!SCM_REALP(y)) {
y 170 ext/uvector/uvector.c Scm_Error("%s: second operand must be either a matching uvector, a vector, a list or a number, but got %S", y);
y 178 ext/uvector/uvector.c static inline int int64eqv(ScmInt64 x, ScmInt64 y)
y 181 ext/uvector/uvector.c return (x.hi == y.hi && x.lo == y.lo);
y 183 ext/uvector/uvector.c return x == y;
y 187 ext/uvector/uvector.c static inline int uint64eqv(ScmUInt64 x, ScmUInt64 y)
y 190 ext/uvector/uvector.c return (x.hi == y.hi && x.lo == y.lo);
y 192 ext/uvector/uvector.c return x == y;
y 223 ext/uvector/uvector.c #define s8s8_add(x, y, clamp) clamp_s8(x+y, clamp)
y 224 ext/uvector/uvector.c #define s8s8_sub(x, y, clamp) clamp_s8(x-y, clamp)
y 225 ext/uvector/uvector.c #define s8s8_mul(x, y, clamp) clamp_s8(x*y, clamp)
y 227 ext/uvector/uvector.c static inline long s8g_add(long x, long y, int clamp)
y 229 ext/uvector/uvector.c if (y > 255) return range_s8hi(0, clamp);
y 230 ext/uvector/uvector.c if (y < -256) return range_s8lo(0, clamp);
y 231 ext/uvector/uvector.c return clamp_s8(x+y, clamp);
y 234 ext/uvector/uvector.c static inline long s8g_sub(long x, long y, int clamp)
y 236 ext/uvector/uvector.c if (y < -255) return range_s8hi(0, clamp);
y 237 ext/uvector/uvector.c if (y > 256) return range_s8lo(0, clamp);
y 238 ext/uvector/uvector.c return clamp_s8(x-y, clamp);
y 241 ext/uvector/uvector.c static inline long s8g_mul(long x, long y, int clamp)
y 244 ext/uvector/uvector.c if (y > 128) return (x>0)?range_s8hi(0, clamp):range_s8lo(0, clamp);
y 245 ext/uvector/uvector.c return clamp_s8(x*y, clamp);
y 248 ext/uvector/uvector.c #define u8u8_add(x, y, clamp) clamp_u8(x+y, clamp)
y 249 ext/uvector/uvector.c #define u8u8_sub(x, y, clamp) clamp_u8((long)(x-y), clamp)
y 250 ext/uvector/uvector.c #define u8u8_mul(x, y, clamp) clamp_u8(x*y, clamp)
y 252 ext/uvector/uvector.c static inline u_long u8g_add(u_long x, u_long y, int clamp)
y 254 ext/uvector/uvector.c if (y > 255) return range_u8hi(0, clamp);
y 255 ext/uvector/uvector.c return clamp_u8(x+y, clamp);
y 258 ext/uvector/uvector.c static inline u_long u8g_sub(u_long x, u_long y, int clamp)
y 260 ext/uvector/uvector.c if (y > x) return range_u8lo(0, clamp);
y 261 ext/uvector/uvector.c return x-y; /* never overflows */
y 264 ext/uvector/uvector.c static inline u_long u8g_mul(u_long x, u_long y, int clamp)
y 267 ext/uvector/uvector.c if (y > 255) return range_u8hi(0, clamp);
y 268 ext/uvector/uvector.c return clamp_u8(x*y, clamp);
y 271 ext/uvector/uvector.c #define s16s16_add(x, y, clamp) clamp_s16(x+y, clamp)
y 272 ext/uvector/uvector.c #define s16s16_sub(x, y, clamp) clamp_s16(x-y, clamp)
y 273 ext/uvector/uvector.c #define s16s16_mul(x, y, clamp) clamp_s16(x*y, clamp)
y 275 ext/uvector/uvector.c static inline long s16g_add(long x, long y, int clamp)
y 277 ext/uvector/uvector.c if (y > 65535) return range_s16hi(0, clamp);
y 278 ext/uvector/uvector.c if (y < -65536) return range_s16lo(0, clamp);
y 279 ext/uvector/uvector.c return clamp_s16(x+y, clamp);
y 282 ext/uvector/uvector.c static inline long s16g_sub(long x, long y, int clamp)
y 284 ext/uvector/uvector.c if (y < -65535) return range_s16hi(0, clamp);
y 285 ext/uvector/uvector.c if (y > 65536) return range_s16lo(0, clamp);
y 286 ext/uvector/uvector.c return clamp_s16(x-y, clamp);
y 289 ext/uvector/uvector.c static inline long s16g_mul(long x, long y, int clamp)
y 292 ext/uvector/uvector.c if (y > 32767) return (x>0)?range_s16hi(0, clamp):range_s16lo(0, clamp);
y 293 ext/uvector/uvector.c return clamp_s16(x*y, clamp);
y 296 ext/uvector/uvector.c #define u16u16_add(x, y, clamp) clamp_u16(x+y, clamp)
y 297 ext/uvector/uvector.c #define u16u16_sub(x, y, clamp) clamp_u16((long)(x-y), clamp)
y 298 ext/uvector/uvector.c #define u16u16_mul(x, y, clamp) clamp_u16(x*y, clamp)
y 300 ext/uvector/uvector.c static inline u_long u16g_add(u_long x, u_long y, int clamp)
y 302 ext/uvector/uvector.c if (y > 65535) return range_u16hi(0, clamp);
y 303 ext/uvector/uvector.c return clamp_u16(x+y, clamp);
y 306 ext/uvector/uvector.c static inline u_long u16g_sub(u_long x, u_long y, int clamp)
y 308 ext/uvector/uvector.c if (y > x) return range_u16lo(0, clamp);
y 309 ext/uvector/uvector.c return x-y; /* never overflows */
y 312 ext/uvector/uvector.c static inline u_long u16g_mul(u_long x, u_long y, int clamp)
y 315 ext/uvector/uvector.c if (y > 65535) return range_u16hi(0, clamp);
y 316 ext/uvector/uvector.c return clamp_u16(x*y, clamp);
y 320 ext/uvector/uvector.c #define s32s32_add(x, y, clamp) s32_add_safe(x, y, clamp)
y 321 ext/uvector/uvector.c #define s32s32_sub(x, y, clamp) s32_sub_safe(x, y, clamp)
y 322 ext/uvector/uvector.c #define s32s32_mul(x, y, clamp) s32_mul_safe(x, y, clamp)
y 323 ext/uvector/uvector.c #define s32g_add(x, y, clamp) s32_add_safe(x, y, clamp)
y 324 ext/uvector/uvector.c #define s32g_sub(x, y, clamp) s32_sub_safe(x, y, clamp)
y 325 ext/uvector/uvector.c #define s32g_mul(x, y, clamp) s32_mul_safe(x, y, clamp)
y 327 ext/uvector/uvector.c #define s32s32_add(x, y, clamp) clamp_s32(x+y, clamp)
y 328 ext/uvector/uvector.c #define s32s32_sub(x, y, clamp) clamp_s32(x-y, clamp)
y 329 ext/uvector/uvector.c #define s32s32_mul(x, y, clamp) clamp_s32(x*y, clamp)
y 330 ext/uvector/uvector.c #define s32g_add(x, y, clamp) s32_add_safe(x, y, clamp)
y 331 ext/uvector/uvector.c #define s32g_sub(x, y, clamp) s32_sub_safe(x, y, clamp)
y 332 ext/uvector/uvector.c #define s32g_mul(x, y, clamp) s32_mul_safe(x, y, clamp)
y 335 ext/uvector/uvector.c static inline long s32_add_safe(long x, long y, int clamp)
y 338 ext/uvector/uvector.c SADDOV(r, v, x, y);
y 345 ext/uvector/uvector.c static inline long s32_sub_safe(long x, long y, int clamp)
y 348 ext/uvector/uvector.c SSUBOV(r, v, x, y);
y 354 ext/uvector/uvector.c static inline long s32_mul_safe(long x, long y, int clamp)
y 357 ext/uvector/uvector.c SMULOV(r, v, x, y);
y 364 ext/uvector/uvector.c #define u32u32_add(x, y, clamp) u32_add_safe(x, y, clamp)
y 365 ext/uvector/uvector.c #define u32u32_sub(x, y, clamp) u32_sub_safe(x, y, clamp)
y 366 ext/uvector/uvector.c #define u32u32_mul(x, y, clamp) u32_mul_safe(x, y, clamp)
y 367 ext/uvector/uvector.c #define u32g_add(x, y, clamp) u32_add_safe(x, y, clamp)
y 368 ext/uvector/uvector.c #define u32g_sub(x, y, clamp) u32_sub_safe(x, y, clamp)
y 369 ext/uvector/uvector.c #define u32g_mul(x, y, clamp) u32_mul_safe(x, y, clamp)
y 371 ext/uvector/uvector.c #define u32u32_add(x, y, clamp) clamp_u32(x+y, clamp)
y 372 ext/uvector/uvector.c #define u32u32_sub(x, y, clamp) u32_sub_safe(x, y, clamp)
y 373 ext/uvector/uvector.c #define u32u32_mul(x, y, clamp) clamp_u32(x*y, clamp)
y 374 ext/uvector/uvector.c #define u32g_add(x, y, clamp) u32_add_safe(x, y, clamp)
y 375 ext/uvector/uvector.c #define u32g_sub(x, y, clamp) u32_sub_safe(x, y, clamp)
y 376 ext/uvector/uvector.c #define u32g_mul(x, y, clamp) u32_mul_safe(x, y, clamp)
y 379 ext/uvector/uvector.c static inline u_long u32_add_safe(u_long x, u_long y, int clamp)
y 382 ext/uvector/uvector.c UADDOV(r, v, x, y);
y 387 ext/uvector/uvector.c static inline u_long u32_sub_safe(u_long x, u_long y, int clamp)
y 390 ext/uvector/uvector.c USUBOV(r, v, x, y);
y 395 ext/uvector/uvector.c static inline u_long u32_mul_safe(u_long x, u_long y, int clamp)
y 398 ext/uvector/uvector.c UMULOV(r, v, x, y);
y 403 ext/uvector/uvector.c #define s64s64_add(x, y, clamp) s64g_add(x, y, clamp)
y 404 ext/uvector/uvector.c #define s64s64_sub(x, y, clamp) s64g_sub(x, y, clamp)
y 405 ext/uvector/uvector.c #define s64s64_mul(x, y, clamp) s64g_mul(x, y, clamp)
y 407 ext/uvector/uvector.c static inline ScmInt64 s64g_add(ScmInt64 x, ScmInt64 y, int clamp)
y 411 ext/uvector/uvector.c ScmObj yy = Scm_MakeInteger64(y);
y 416 ext/uvector/uvector.c SADDOV(r, v, x, y);
y 423 ext/uvector/uvector.c static inline ScmInt64 s64g_sub(ScmInt64 x, ScmInt64 y, int clamp)
y 427 ext/uvector/uvector.c ScmObj yy = Scm_MakeInteger64(y);
y 432 ext/uvector/uvector.c SSUBOV(r, v, x, y);
y 439 ext/uvector/uvector.c static inline ScmInt64 s64g_mul(ScmInt64 x, ScmInt64 y, int clamp)
y 443 ext/uvector/uvector.c ScmObj yy = Scm_MakeInteger64(y);
y 448 ext/uvector/uvector.c SMULOV(r, v, x, y);
y 455 ext/uvector/uvector.c #define u64u64_add(x, y, clamp) u64g_add(x, y, clamp)
y 456 ext/uvector/uvector.c #define u64u64_sub(x, y, clamp) u64g_sub(x, y, clamp)
y 457 ext/uvector/uvector.c #define u64u64_mul(x, y, clamp) u64g_mul(x, y, clamp)
y 459 ext/uvector/uvector.c static inline ScmUInt64 u64g_add(ScmUInt64 x, ScmUInt64 y, int clamp)
y 463 ext/uvector/uvector.c ScmObj yy = Scm_MakeIntegerU64(y);
y 468 ext/uvector/uvector.c UADDOV(r, v, x, y);
y 474 ext/uvector/uvector.c static inline ScmUInt64 u64g_sub(ScmUInt64 x, ScmUInt64 y, int clamp)
y 478 ext/uvector/uvector.c ScmObj yy = Scm_MakeIntegerU64(y);
y 483 ext/uvector/uvector.c USUBOV(r, v, x, y);
y 489 ext/uvector/uvector.c static inline ScmUInt64 u64g_mul(ScmUInt64 x, ScmUInt64 y, int clamp)
y 493 ext/uvector/uvector.c ScmObj yy = Scm_MakeIntegerU64(y);
y 498 ext/uvector/uvector.c UMULOV(r, v, x, y);
y 504 ext/uvector/uvector.c #define f32f32_add(x, y, clamp) (x+y)
y 505 ext/uvector/uvector.c #define f32f32_sub(x, y, clamp) (x-y)
y 506 ext/uvector/uvector.c #define f32f32_mul(x, y, clamp) (x*y)
y 507 ext/uvector/uvector.c #define f32f32_div(x, y, clamp) (x/y)
y 509 ext/uvector/uvector.c #define f32g_add(x, y, clamp) (x+y)
y 510 ext/uvector/uvector.c #define f32g_sub(x, y, clamp) (x-y)
y 511 ext/uvector/uvector.c #define f32g_mul(x, y, clamp) (x*y)
y 512 ext/uvector/uvector.c #define f32g_div(x, y, clamp) (x/y)
y 514 ext/uvector/uvector.c #define f64f64_add(x, y, clamp) (x+y)
y 515 ext/uvector/uvector.c #define f64f64_sub(x, y, clamp) (x-y)
y 516 ext/uvector/uvector.c #define f64f64_mul(x, y, clamp) (x*y)
y 517 ext/uvector/uvector.c #define f64f64_div(x, y, clamp) (x/y)
y 519 ext/uvector/uvector.c #define f64g_add(x, y, clamp) (x+y)
y 520 ext/uvector/uvector.c #define f64g_sub(x, y, clamp) (x-y)
y 521 ext/uvector/uvector.c #define f64g_mul(x, y, clamp) (x*y)
y 522 ext/uvector/uvector.c #define f64g_div(x, y, clamp) (x/y)
y 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))
y 601 ext/uvector/uvector.c #define INT64BITOP(r, x, op, y) (r = x op y)
y 605 ext/uvector/uvector.c static inline long s8muladd(long x, long y, long acc, ScmObj *sacc)
y 608 ext/uvector/uvector.c m = x * y;
y 618 ext/uvector/uvector.c #define s16muladd(x, y, acc, sacc) s8muladd(x, y, acc, sacc)
y 620 ext/uvector/uvector.c static inline long s32muladd(long x, long y, long acc, ScmObj *sacc)
y 623 ext/uvector/uvector.c SMULOV(m, v, x, y);
y 626 ext/uvector/uvector.c Scm_MakeInteger(y)));
y 640 ext/uvector/uvector.c static inline ScmInt64 s64muladd(ScmInt64 x, ScmInt64 y, ScmInt64 acc, ScmObj *sacc)
y 644 ext/uvector/uvector.c Scm_MakeInteger64(y)));
y 648 ext/uvector/uvector.c #define s64muladd(x, y, acc, sacc) s32muladd(x, y, acc, sacc)
y 651 ext/uvector/uvector.c static inline u_long u8muladd(u_long x, u_long y, u_long acc, ScmObj *sacc)
y 654 ext/uvector/uvector.c m = x * y;
y 664 ext/uvector/uvector.c #define u16muladd(x, y, acc, sacc) u8muladd(x, y, acc, sacc)
y 666 ext/uvector/uvector.c static inline u_long u32muladd(u_long x, u_long y, u_long acc, ScmObj *sacc)
y 669 ext/uvector/uvector.c UMULOV(m, v, x, y);
y 672 ext/uvector/uvector.c Scm_MakeIntegerU(y)));
y 686 ext/uvector/uvector.c static inline ScmUInt64 u64muladd(ScmUInt64 x, ScmUInt64 y, ScmUInt64 acc, ScmObj *sacc)
y 690 ext/uvector/uvector.c Scm_MakeIntegerU64(y)));
y 694 ext/uvector/uvector.c #define u64muladd(x, y, acc, sacc) u32muladd(x, y, acc, sacc)
y 697 ext/uvector/uvector.c #define f32muladd(x, y, acc, sacc) (acc + x*y)
y 698 ext/uvector/uvector.c #define f64muladd(x, y, acc, sacc) (acc + x*y)
y 707 ext/uvector/uvector.c #define SWAP(x, y) (t = dd.c[x], dd.c[x] = dd.c[y], dd.c[y] = t)
y 770 ext/uvector/uvector.c static int compare_s8vector(ScmObj x, ScmObj y, int equalp)
y 774 ext/uvector/uvector.c if (SCM_S8VECTOR_SIZE(y) != len) return -1;
y 777 ext/uvector/uvector.c yy = SCM_S8VECTOR_ELEMENTS(y)[i];
y 974 ext/uvector/uvector.c static int compare_u8vector(ScmObj x, ScmObj y, int equalp)
y 978 ext/uvector/uvector.c if (SCM_U8VECTOR_SIZE(y) != len) return -1;
y 981 ext/uvector/uvector.c yy = SCM_U8VECTOR_ELEMENTS(y)[i];
y 1178 ext/uvector/uvector.c static int compare_s16vector(ScmObj x, ScmObj y, int equalp)
y 1182 ext/uvector/uvector.c if (SCM_S16VECTOR_SIZE(y) != len) return -1;
y 1185 ext/uvector/uvector.c yy = SCM_S16VECTOR_ELEMENTS(y)[i];
y 1382 ext/uvector/uvector.c static int compare_u16vector(ScmObj x, ScmObj y, int equalp)
y 1386 ext/uvector/uvector.c if (SCM_U16VECTOR_SIZE(y) != len) return -1;
y 1389 ext/uvector/uvector.c yy = SCM_U16VECTOR_ELEMENTS(y)[i];
y 1586 ext/uvector/uvector.c static int compare_s32vector(ScmObj x, ScmObj y, int equalp)
y 1590 ext/uvector/uvector.c if (SCM_S32VECTOR_SIZE(y) != len) return -1;
y 1593 ext/uvector/uvector.c yy = SCM_S32VECTOR_ELEMENTS(y)[i];
y 1790 ext/uvector/uvector.c static int compare_u32vector(ScmObj x, ScmObj y, int equalp)
y 1794 ext/uvector/uvector.c if (SCM_U32VECTOR_SIZE(y) != len) return -1;
y 1797 ext/uvector/uvector.c yy = SCM_U32VECTOR_ELEMENTS(y)[i];
y 1994 ext/uvector/uvector.c static int compare_s64vector(ScmObj x, ScmObj y, int equalp)
y 1998 ext/uvector/uvector.c if (SCM_S64VECTOR_SIZE(y) != len) return -1;
y 2001 ext/uvector/uvector.c yy = SCM_S64VECTOR_ELEMENTS(y)[i];
y 2198 ext/uvector/uvector.c static int compare_u64vector(ScmObj x, ScmObj y, int equalp)
y 2202 ext/uvector/uvector.c if (SCM_U64VECTOR_SIZE(y) != len) return -1;
y 2205 ext/uvector/uvector.c yy = SCM_U64VECTOR_ELEMENTS(y)[i];
y 2402 ext/uvector/uvector.c static int compare_f32vector(ScmObj x, ScmObj y, int equalp)
y 2406 ext/uvector/uvector.c if (SCM_F32VECTOR_SIZE(y) != len) return -1;
y 2409 ext/uvector/uvector.c yy = SCM_F32VECTOR_ELEMENTS(y)[i];
y 2606 ext/uvector/uvector.c static int compare_f64vector(ScmObj x, ScmObj y, int equalp)
y 2610 ext/uvector/uvector.c if (SCM_F64VECTOR_SIZE(y) != len) return -1;
y 2613 ext/uvector/uvector.c yy = SCM_F64VECTOR_ELEMENTS(y)[i];
y 6645 ext/uvector/uvector.c ScmObj Scm_S8VectorDotProd(ScmS8Vector *x, ScmObj y)
y 6652 ext/uvector/uvector.c switch (arg2_check("s8vector-dot", SCM_OBJ(x), y, FALSE)) {
y 6656 ext/uvector/uvector.c vy = SCM_S8VECTOR_ELEMENTS(y)[i];
y 6663 ext/uvector/uvector.c vvy = SCM_VECTOR_ELEMENTS(y)[i];
y 6676 ext/uvector/uvector.c vvy = SCM_CAR(y); y = SCM_CDR(y);
y 6698 ext/uvector/uvector.c ScmObj Scm_U8VectorDotProd(ScmU8Vector *x, ScmObj y)
y 6705 ext/uvector/uvector.c switch (arg2_check("u8vector-dot", SCM_OBJ(x), y, FALSE)) {
y 6709 ext/uvector/uvector.c vy = SCM_U8VECTOR_ELEMENTS(y)[i];
y 6716 ext/uvector/uvector.c vvy = SCM_VECTOR_ELEMENTS(y)[i];
y 6729 ext/uvector/uvector.c vvy = SCM_CAR(y); y = SCM_CDR(y);
y 6751 ext/uvector/uvector.c ScmObj Scm_S16VectorDotProd(ScmS16Vector *x, ScmObj y)
y 6758 ext/uvector/uvector.c switch (arg2_check("s16vector-dot", SCM_OBJ(x), y, FALSE)) {
y 6762 ext/uvector/uvector.c vy = SCM_S16VECTOR_ELEMENTS(y)[i];
y 6769 ext/uvector/uvector.c vvy = SCM_VECTOR_ELEMENTS(y)[i];
y 6782 ext/uvector/uvector.c vvy = SCM_CAR(y); y = SCM_CDR(y);
y 6804 ext/uvector/uvector.c ScmObj Scm_U16VectorDotProd(ScmU16Vector *x, ScmObj y)
y 6811 ext/uvector/uvector.c switch (arg2_check("u16vector-dot", SCM_OBJ(x), y, FALSE)) {
y 6815 ext/uvector/uvector.c vy = SCM_U16VECTOR_ELEMENTS(y)[i];
y 6822 ext/uvector/uvector.c vvy = SCM_VECTOR_ELEMENTS(y)[i];
y 6835 ext/uvector/uvector.c vvy = SCM_CAR(y); y = SCM_CDR(y);
y 6857 ext/uvector/uvector.c ScmObj Scm_S32VectorDotProd(ScmS32Vector *x, ScmObj y)
y 6864 ext/uvector/uvector.c switch (arg2_check("s32vector-dot", SCM_OBJ(x), y, FALSE)) {
y 6868 ext/uvector/uvector.c vy = SCM_S32VECTOR_ELEMENTS(y)[i];
y 6875 ext/uvector/uvector.c vvy = SCM_VECTOR_ELEMENTS(y)[i];
y 6888 ext/uvector/uvector.c vvy = SCM_CAR(y); y = SCM_CDR(y);
y 6910 ext/uvector/uvector.c ScmObj Scm_U32VectorDotProd(ScmU32Vector *x, ScmObj y)
y 6917 ext/uvector/uvector.c switch (arg2_check("u32vector-dot", SCM_OBJ(x), y, FALSE)) {
y 6921 ext/uvector/uvector.c vy = SCM_U32VECTOR_ELEMENTS(y)[i];
y 6928 ext/uvector/uvector.c vvy = SCM_VECTOR_ELEMENTS(y)[i];
y 6941 ext/uvector/uvector.c vvy = SCM_CAR(y); y = SCM_CDR(y);
y 6963 ext/uvector/uvector.c ScmObj Scm_S64VectorDotProd(ScmS64Vector *x, ScmObj y)
y 6970 ext/uvector/uvector.c switch (arg2_check("s64vector-dot", SCM_OBJ(x), y, FALSE)) {
y 6974 ext/uvector/uvector.c vy = SCM_S64VECTOR_ELEMENTS(y)[i];
y 6981 ext/uvector/uvector.c vvy = SCM_VECTOR_ELEMENTS(y)[i];
y 6994 ext/uvector/uvector.c vvy = SCM_CAR(y); y = SCM_CDR(y);
y 7016 ext/uvector/uvector.c ScmObj Scm_U64VectorDotProd(ScmU64Vector *x, ScmObj y)
y 7023 ext/uvector/uvector.c switch (arg2_check("u64vector-dot", SCM_OBJ(x), y, FALSE)) {
y 7027 ext/uvector/uvector.c vy = SCM_U64VECTOR_ELEMENTS(y)[i];
y 7034 ext/uvector/uvector.c vvy = SCM_VECTOR_ELEMENTS(y)[i];
y 7047 ext/uvector/uvector.c vvy = SCM_CAR(y); y = SCM_CDR(y);
y 7069 ext/uvector/uvector.c ScmObj Scm_F32VectorDotProd(ScmF32Vector *x, ScmObj y)
y 7076 ext/uvector/uvector.c switch (arg2_check("f32vector-dot", SCM_OBJ(x), y, FALSE)) {
y 7080 ext/uvector/uvector.c vy = SCM_F32VECTOR_ELEMENTS(y)[i];
y 7087 ext/uvector/uvector.c vvy = SCM_VECTOR_ELEMENTS(y)[i];
y 7100 ext/uvector/uvector.c vvy = SCM_CAR(y); y = SCM_CDR(y);
y 7122 ext/uvector/uvector.c ScmObj Scm_F64VectorDotProd(ScmF64Vector *x, ScmObj y)
y 7129 ext/uvector/uvector.c switch (arg2_check("f64vector-dot", SCM_OBJ(x), y, FALSE)) {
y 7133 ext/uvector/uvector.c vy = SCM_F64VECTOR_ELEMENTS(y)[i];
y 7140 ext/uvector/uvector.c vvy = SCM_VECTOR_ELEMENTS(y)[i];
y 7153 ext/uvector/uvector.c vvy = SCM_CAR(y); y = SCM_CDR(y);
y 869 gc/alloc.c ptr_t GC_max(x,y)
y 870 gc/alloc.c ptr_t x, y;
y 872 gc/alloc.c return(x > y? x : y);
y 875 gc/alloc.c ptr_t GC_min(x,y)
y 876 gc/alloc.c ptr_t x, y;
y 878 gc/alloc.c return(x < y? x : y);
y 147 gc/cord/cordbscs.c CORD CORD_cat_char_star(CORD x, const char * y, size_t leny)
y 153 gc/cord/cordbscs.c if (x == CORD_EMPTY) return(y);
y 163 gc/cord/cordbscs.c memcpy(result + lenx, y, leny);
y 192 gc/cord/cordbscs.c memcpy(new_right + right_len, y, leny);
y 194 gc/cord/cordbscs.c y = new_right;
y 221 gc/cord/cordbscs.c result->right = y;
y 231 gc/cord/cordbscs.c CORD CORD_cat(CORD x, CORD y)
y 237 gc/cord/cordbscs.c if (x == CORD_EMPTY) return(y);
y 238 gc/cord/cordbscs.c if (y == CORD_EMPTY) return(x);
y 239 gc/cord/cordbscs.c if (CORD_IS_STRING(y)) {
y 240 gc/cord/cordbscs.c return(CORD_cat_char_star(x, y, strlen(y)));
y 243 gc/cord/cordbscs.c depth = DEPTH(y) + 1;
y 245 gc/cord/cordbscs.c register int depthy = DEPTH(y);
y 251 gc/cord/cordbscs.c result_len = lenx + LEN(y);
y 262 gc/cord/cordbscs.c result->right = y;
y 56 gc/cord/cordtest.c CORD y;
y 83 gc/cord/cordtest.c y = CORD_substr(x, 1023, 5);
y 84 gc/cord/cordtest.c if (!CORD_IS_STRING(y)) ABORT("short cord should usually be a string");
y 85 gc/cord/cordtest.c if (strcmp(y, "babab") != 0) ABORT("bad CORD_substr result");
y 87 gc/cord/cordtest.c y = CORD_substr(x, 1024, 8);
y 88 gc/cord/cordtest.c if (!CORD_IS_STRING(y)) ABORT("short cord should usually be a string");
y 89 gc/cord/cordtest.c if (strcmp(y, "abababab") != 0) ABORT("bad CORD_substr result");
y 91 gc/cord/cordtest.c y = CORD_substr(x, 128*1024-1, 8);
y 92 gc/cord/cordtest.c if (!CORD_IS_STRING(y)) ABORT("short cord should usually be a string");
y 93 gc/cord/cordtest.c if (strcmp(y, "bc") != 0) ABORT("bad CORD_substr result");
y 104 gc/cord/cordtest.c y = CORD_substr(x, 1023, 5);
y 105 gc/cord/cordtest.c if (!CORD_IS_STRING(y)) ABORT("short cord should usually be a string");
y 106 gc/cord/cordtest.c if (strcmp(y, "babab") != 0) ABORT("bad CORD_substr result");
y 107 gc/cord/cordtest.c y = CORD_from_fn(id_cord_fn, 0, 13);
y 109 gc/cord/cordtest.c CORD_set_pos(p, y, i);
y 131 gc/cord/cordtest.c CORD y = "abcdefghijklmnopqrstuvwxyz0123456789";
y 137 gc/cord/cordtest.c w = CORD_cat(CORD_cat(y,y),y);
y 138 gc/cord/cordtest.c z = CORD_catn(3,y,y,y);
y 141 gc/cord/cordtest.c x = CORD_cat(x, y);
y 154 gc/cord/cordtest.c if (CORD_cmp(CORD_substr(w, 50*36+2, 36), y) != 0)
y 161 gc/cord/cordtest.c x = y;
y 175 gc/cord/cordtest.c if (CORD_cmp(CORD_substr(w, 1000*36, 36), y) != 0)
y 177 gc/cord/cordtest.c if (strcmp(CORD_to_char_star(CORD_substr(w, 1000*36, 36)), y) != 0)
y 38 gc/cord/cordxtra.c # define ATOMIC_WRITE(x,y) (x) = (y)
y 136 gc/cord/cordxtra.c int CORD_cmp(CORD x, CORD y)
y 142 gc/cord/cordxtra.c if (y == CORD_EMPTY) return(x != CORD_EMPTY);
y 144 gc/cord/cordxtra.c if (CORD_IS_STRING(y) && CORD_IS_STRING(x)) return(strcmp(x,y));
y 146 gc/cord/cordxtra.c CORD_set_pos(ypos, y, 0);
y 179 gc/cord/cordxtra.c int CORD_ncmp(CORD x, size_t x_start, CORD y, size_t y_start, size_t len)
y 187 gc/cord/cordxtra.c CORD_set_pos(ypos, y, y_start);
y 314 gc/cord/de.c # define move_cursor(x,y) cgotoxy(x + 1, y + 1, stdout)
y 316 gc/cord/de.c # define move_cursor(x,y) move(y,x)
y 78 gc/cord/de_win.h void set_position(int x, int y);
y 54 gc/finalize.c # define dl_set_next(x,y) (x) -> prolog.next = (struct hash_chain_entry *)(y)
y 74 gc/finalize.c # define fo_set_next(x,y) (x) -> prolog.next = (struct hash_chain_entry *)(y)
y 79 gc/include/cord.h CORD CORD_cat(CORD x, CORD y);
y 86 gc/include/cord.h CORD CORD_cat_char_star(CORD x, const char * y, size_t leny);
y 215 gc/include/cord.h int CORD_cmp(CORD x, CORD y);
y 219 gc/include/cord.h int CORD_ncmp(CORD x, size_t x_start, CORD y, size_t y_start, size_t len);
y 956 gc/include/gc.h # define GC_MAX(x,y) ((x) > (y) ? (x) : (y))
y 957 gc/include/gc.h # define GC_MIN(x,y) ((x) < (y) ? (x) : (y))
y 100 gc/include/private/gc_priv.h # define MAKE_COOLER(x,y) if ((word)(x)+(y) > (word)(x)) {(x) += (y);} \
y 102 gc/include/private/gc_priv.h # define MAKE_HOTTER(x,y) (x) -= (y)
y 106 gc/include/private/gc_priv.h # define MAKE_COOLER(x,y) if ((word)(x)-(y) < (word)(x)) {(x) -= (y);} else {(x) = 0;}
y 107 gc/include/private/gc_priv.h # define MAKE_HOTTER(x,y) (x) += (y)
y 362 gc/include/private/gc_priv.h # define BCOPY(x,y,n) memcpy(y, x, (size_t)(n))
y 365 gc/include/private/gc_priv.h # define BCOPY(x,y,n) bcopy((char *)(x),(char *)(y),(int)(n))
y 66 gc/setjmp_t.c static int y = 0;
y 90 gc/setjmp_t.c if (y == 1) {
y 104 gc/setjmp_t.c y++;
y 106 gc/setjmp_t.c if (y == 1) longjmp(b,1);
y 169 gc/tests/test.c sexpr cons (x, y)
y 171 gc/tests/test.c sexpr y;
y 196 gc/tests/test.c r -> sexpr_cdr = y;
y 254 gc/tests/test.c sexpr local_cons (x, y)
y 256 gc/tests/test.c sexpr y;
y 286 gc/tests/test.c r -> sexpr_cdr = y;
y 297 gc/tests/test.c sexpr small_cons (x, y)
y 299 gc/tests/test.c sexpr y;
y 310 gc/tests/test.c r -> sexpr_cdr = y;
y 314 gc/tests/test.c sexpr small_cons_uncollectable (x, y)
y 316 gc/tests/test.c sexpr y;
y 327 gc/tests/test.c r -> sexpr_cdr = (sexpr)(~(unsigned long)y);
y 334 gc/tests/test.c sexpr gcj_cons(x, y)
y 336 gc/tests/test.c sexpr y;
y 359 gc/tests/test.c result -> sexpr_cdr = y;
y 365 gc/tests/test.c sexpr reverse1(x, y)
y 366 gc/tests/test.c sexpr x, y;
y 369 gc/tests/test.c return(y);
y 371 gc/tests/test.c return( reverse1(cdr(x), cons(car(x), y)) );
y 396 gc/tests/test.c sexpr gcj_reverse1(x, y)
y 397 gc/tests/test.c sexpr x, y;
y 400 gc/tests/test.c return(y);
y 402 gc/tests/test.c return( gcj_reverse1(cdr(x), gcj_cons(car(x), y)) );
y 425 gc/tests/test.c sexpr local_reverse1(x, y)
y 426 gc/tests/test.c sexpr x, y;
y 429 gc/tests/test.c return(y);
y 431 gc/tests/test.c return( local_reverse1(cdr(x), local_cons(car(x), y)) );
y 1204 gc/tests/test.c char *y = 0;
y 1206 gc/tests/test.c char *y = (char *)(size_t)fail_proc1;
y 1244 gc/tests/test.c if (GC_base(y) != 0) {
y 1253 gc/tests/test.c if (GC_is_visible(y) != y || GC_is_visible(x) != x) {
y 1267 gc/tests/test.c if (GC_is_valid_displacement(y) != y
y 7 gc/tests/trace_test.c struct treenode *y;
y 15 gc/tests/trace_test.c r -> y = mktree(i-1);
y 84 src/bignum.c #define min(x, y) (((x) < (y))? (x) : (y))
y 86 src/bignum.c #define max(x, y) (((x) > (y))? (x) : (y))
y 90 src/bignum.c static int bignum_safe_size_for_add(ScmBignum *x, ScmBignum *y);
y 525 src/bignum.c static int bignum_safe_size_for_add(ScmBignum *x, ScmBignum *y)
y 528 src/bignum.c int ysize = SCM_BIGNUM_SIZE(y);
y 533 src/bignum.c if (y->values[ysize-1] == SCM_ULONG_MAX) return ysize+1;
y 566 src/bignum.c u_long x, y;
y 574 src/bignum.c y = by->values[i];
y 575 src/bignum.c UADD(br->values[i], c, 0, y);
y 584 src/bignum.c y = by->values[i];
y 585 src/bignum.c UADD(br->values[i], c, x, y);
y 598 src/bignum.c u_long x, y;
y 606 src/bignum.c y = by->values[i];
y 607 src/bignum.c USUB(br->values[i], c, 0, y);
y 616 src/bignum.c y = by->values[i];
y 617 src/bignum.c USUB(br->values[i], c, x, y);
y 655 src/bignum.c static ScmBignum *bignum_add_si(ScmBignum *bx, long y)
y 659 src/bignum.c u_long yabs = ((y < 0)? -y : y);
y 660 src/bignum.c int ysign = ((y < 0)? -1 : 1);
y 663 src/bignum.c if (y == 0) return bx;
y 692 src/bignum.c ScmObj Scm_BignumAddSI(ScmBignum *bx, long y)
y 694 src/bignum.c return Scm_NormalizeBignum(bignum_add_si(bx, y));
y 697 src/bignum.c ScmObj Scm_BignumSubSI(ScmBignum *bx, long y)
y 699 src/bignum.c return Scm_NormalizeBignum(bignum_add_si(bx, -y));
y 819 src/bignum.c u_long y, int off)
y 826 src/bignum.c UMUL(hi, lo, x, y);
y 858 src/bignum.c static ScmBignum *bignum_mul_si(ScmBignum *bx, long y)
y 863 src/bignum.c if (y == 1) return bx;
y 864 src/bignum.c if (y == 0) {
y 870 src/bignum.c if (y == -1) {
y 877 src/bignum.c yabs = (y<0)? -y:y;
y 880 src/bignum.c if (y<0) br->sign = -br->sign;
y 890 src/bignum.c ScmObj Scm_BignumMulSI(ScmBignum *bx, long y)
y 892 src/bignum.c ScmBignum *br = bignum_mul_si(bx, y);
y 1138 src/bignum.c static ScmBignum *bignum_and(ScmBignum *z, ScmBignum *x, ScmBignum *y,
y 1143 src/bignum.c z->values[i] = x->values[i] & y->values[i];
y 1148 src/bignum.c for (; i < ysize; i++) z->values[i] = y->values[i];
y 1153 src/bignum.c ScmObj Scm_BignumLogAnd(ScmBignum *x, ScmBignum *y)
y 1156 src/bignum.c int ysize = SCM_BIGNUM_SIZE(y), ysign = SCM_BIGNUM_SIGN(y);
y 1162 src/bignum.c z = bignum_and(make_bignum(minsize), x, y, minsize, 0, 0);
y 1165 src/bignum.c yy = SCM_BIGNUM(Scm_BignumComplement(y));
y 1172 src/bignum.c z = bignum_and(make_bignum(ysize), xx, y, minsize, 0, ysize);
y 1176 src/bignum.c yy = SCM_BIGNUM(Scm_BignumComplement(y));
y 1189 src/bignum.c static ScmBignum *bignum_ior(ScmBignum *z, ScmBignum *x, ScmBignum *y,
y 1194 src/bignum.c z->values[i] = x->values[i] | y->values[i];
y 1199 src/bignum.c for (; i < ysize; i++) z->values[i] = y->values[i];
y 1204 src/bignum.c ScmObj Scm_BignumLogIor(ScmBignum *x, ScmBignum *y)
y 1207 src/bignum.c int ysize = SCM_BIGNUM_SIZE(y), ysign = SCM_BIGNUM_SIGN(y);
y 1214 src/bignum.c z = bignum_ior(make_bignum(zsize), x, y, minsize, xsize, ysize);
y 1217 src/bignum.c yy = SCM_BIGNUM(Scm_BignumComplement(y));
y 1226 src/bignum.c z = bignum_ior(make_bignum(xsize), xx, y, minsize, xsize, 0);
y 1232 src/bignum.c yy = SCM_BIGNUM(Scm_BignumComplement(y));
y 1241 src/bignum.c ScmObj Scm_BignumLogXor(ScmBignum *x, ScmBignum *y)
y 1244 src/bignum.c ScmObj xandy = Scm_BignumLogAnd(x, y);
y 1245 src/bignum.c ScmObj xory = Scm_BignumLogIor(x, y);
y 39 src/boolean.c int Scm_EqP(ScmObj x, ScmObj y)
y 41 src/boolean.c return SCM_EQ(x, y);
y 44 src/boolean.c int Scm_EqvP(ScmObj x, ScmObj y)
y 48 src/boolean.c if (SCM_NUMBERP(y)) {
y 49 src/boolean.c if ((SCM_EXACTP(x) && SCM_EXACTP(y))
y 50 src/boolean.c || (SCM_INEXACTP(x) && SCM_INEXACTP(y))) {
y 51 src/boolean.c return Scm_NumEq(x, y);
y 56 src/boolean.c return SCM_EQ(x, y);
y 59 src/boolean.c int Scm_EqualP(ScmObj x, ScmObj y)
y 63 src/boolean.c if (SCM_EQ(x, y)) return TRUE;
y 65 src/boolean.c if (!SCM_PAIRP(y)) return FALSE;
y 67 src/boolean.c if (!Scm_EqualP(SCM_CAR(x), SCM_CAR(y))) return FALSE;
y 69 src/boolean.c y = SCM_CDR(y);
y 70 src/boolean.c } while (SCM_PAIRP(x)&&SCM_PAIRP(y));
y 71 src/boolean.c return Scm_EqualP(x, y);
y 74 src/boolean.c if (SCM_STRINGP(y)) {
y 75 src/boolean.c return Scm_StringEqual(SCM_STRING(x), SCM_STRING(y));
y 80 src/boolean.c if (SCM_NUMBERP(y)) {
y 81 src/boolean.c if ((SCM_EXACTP(x) && SCM_EXACTP(y))
y 82 src/boolean.c || (SCM_INEXACTP(x) && SCM_INEXACTP(y))) {
y 83 src/boolean.c return Scm_NumEq(x, y);
y 89 src/boolean.c if (SCM_VECTORP(y)) {
y 91 src/boolean.c int sizy = SCM_VECTOR_SIZE(y);
y 95 src/boolean.c SCM_VECTOR_ELEMENT(y, sizx)))
y 115 src/boolean.c if (SCM_IDENTIFIERP(x) || SCM_IDENTIFIERP(y)) {
y 117 src/boolean.c if (SCM_IDENTIFIERP(y)) y = SCM_OBJ(SCM_IDENTIFIER(y)->name);
y 118 src/boolean.c return SCM_EQ(x, y);
y 122 src/boolean.c if (!SCM_PTRP(x)) return (x == y);
y 124 src/boolean.c cy = Scm_ClassOf(y);
y 126 src/boolean.c return (cx->compare(x, y, TRUE) == 0);
y 131 src/boolean.c int Scm_EqualM(ScmObj x, ScmObj y, int mode)
y 135 src/boolean.c return SCM_EQ(x, y);
y 137 src/boolean.c return Scm_EqvP(x, y);
y 139 src/boolean.c return Scm_EqualP(x, y);
y 168 src/char.c static int charset_compare(ScmObj x, ScmObj y, int equalp);
y 343 src/char.c static int charset_compare(ScmObj x, ScmObj y, int equalp)
y 346 src/char.c ScmCharSet *yy = SCM_CHARSET(y);
y 354 src/char.c Scm_Error("cannot compare char-sets: %S vs %S", x, y);
y 359 src/char.c int Scm_CharSetEq(ScmCharSet *x, ScmCharSet *y)
y 364 src/char.c if (x->mask[i] != y->mask[i]) return FALSE;
y 365 src/char.c for (rx=x->ranges, ry=y->ranges; rx && ry; rx=rx->next, ry=ry->next) {
y 373 src/char.c int Scm_CharSetLE(ScmCharSet *x, ScmCharSet *y)
y 378 src/char.c if ((x->mask[i] | y->mask[i]) != y->mask[i]) return FALSE;
y 380 src/char.c ry = y->ranges;
y 64 src/class.c static int object_compare(ScmObj x, ScmObj y, int equalp);
y 1864 src/class.c static int object_compare(ScmObj x, ScmObj y, int equalp)
y 1868 src/class.c r = Scm_Apply(SCM_OBJ(&Scm_GenericObjectEqualP), SCM_LIST2(x, y));
y 1871 src/class.c r = Scm_Apply(SCM_OBJ(&Scm_GenericObjectCompare), SCM_LIST2(x, y));
y 1878 src/class.c Scm_Error("object %S and %S can't be ordered", x, y);
y 2036 src/class.c static inline int method_more_specific(ScmMethod *x, ScmMethod *y,
y 2040 src/class.c ScmClass **ys = y->specializers;
y 2043 src/class.c for (i=0; i<SCM_PROCEDURE_REQUIRED(x) && i<SCM_PROCEDURE_REQUIRED(y); i++) {
y 2056 src/class.c if (SCM_PROCEDURE_OPTIONAL(y)) return TRUE;
y 2064 src/class.c ScmMethod *y = SCM_METHOD(args[1]);
y 2076 src/class.c return SCM_MAKE_BOOL(method_more_specific(x, y, targs, ntargs));
y 44 src/compare.c int Scm_Compare(ScmObj x, ScmObj y)
y 49 src/compare.c if (SCM_NUMBERP(x) && SCM_NUMBERP(y))
y 50 src/compare.c return Scm_NumCmp(x, y);
y 51 src/compare.c if (SCM_STRINGP(x) && SCM_STRINGP(y))
y 52 src/compare.c return Scm_StringCmp(SCM_STRING(x), SCM_STRING(y));
y 53 src/compare.c if (SCM_CHARP(x) && SCM_CHARP(y))
y 54 src/compare.c return SCM_CHAR_VALUE(x) == SCM_CHAR_VALUE(y)? 0 :
y 55 src/compare.c SCM_CHAR_VALUE(x) < SCM_CHAR_VALUE(y)? -1 : 1;
y 58 src/compare.c cy = Scm_ClassOf(y);
y 60 src/compare.c if (cy->compare) return cy->compare(x, y, FALSE);
y 62 src/compare.c if (cx->compare) return cx->compare(x, y, FALSE);
y 64 src/compare.c Scm_Error("can't compare %S and %S", x, y);
y 165 src/compare.c static int cmp_scm(ScmObj x, ScmObj y, ScmObj fn)
y 167 src/compare.c ScmObj r = Scm_Apply(fn, SCM_LIST2(x, y));
y 174 src/compare.c static int cmp_int(ScmObj x, ScmObj y, ScmObj dummy)
y 176 src/compare.c return Scm_Compare(x, y);
y 269 src/core.c struct cleanup_handler_rec *x = NULL, *y = cleanup.handlers;
y 270 src/core.c while (y) {
y 271 src/core.c if (y == handle) {
y 273 src/core.c cleanup.handlers = y->next;
y 275 src/core.c x->next = y->next;
y 72 src/extlib.c ScmObj y;
y 77 src/extlib.c y = (y_scm);
y 81 src/extlib.c SCM_RESULT = Scm_Compare(x, y);
y 138 src/extlib.c ScmObj y;
y 146 src/extlib.c y = (y_scm);
y 150 src/extlib.c ScmObj cp, r = Scm_LogAnd(x, y);
y 166 src/extlib.c ScmObj y;
y 174 src/extlib.c y = (y_scm);
y 178 src/extlib.c ScmObj cp, r = Scm_LogIor(x, y);
y 194 src/extlib.c ScmObj y;
y 202 src/extlib.c y = (y_scm);
y 206 src/extlib.c ScmObj cp, r = Scm_LogXor(x, y);
y 1318 src/extlib.c ScmCharSet* y;
y 1325 src/extlib.c y = SCM_CHARSET(y_scm);
y 1329 src/extlib.c SCM_RESULT = Scm_CharSetEq(x, y);
y 1343 src/extlib.c ScmCharSet* y;
y 1350 src/extlib.c y = SCM_CHARSET(y_scm);
y 1354 src/extlib.c SCM_RESULT = Scm_CharSetLE(x, y);
y 218 src/gauche.h #define SCM_EQ(x, y) ((x) == (y))
y 220 src/gauche.h SCM_EXTERN int Scm_EqP(ScmObj x, ScmObj y);
y 221 src/gauche.h SCM_EXTERN int Scm_EqvP(ScmObj x, ScmObj y);
y 222 src/gauche.h SCM_EXTERN int Scm_EqualP(ScmObj x, ScmObj y);
y 231 src/gauche.h SCM_EXTERN int Scm_EqualM(ScmObj x, ScmObj y, int mode);
y 447 src/gauche.h typedef int (*ScmClassCompareProc)(ScmObj x, ScmObj y, int equalp);
y 902 src/gauche.h SCM_EXTERN int Scm_CharSetEq(ScmCharSet *x, ScmCharSet *y);
y 903 src/gauche.h SCM_EXTERN int Scm_CharSetLE(ScmCharSet *x, ScmCharSet *y);
y 1071 src/gauche.h SCM_EXTERN int Scm_StringEqual(ScmString *x, ScmString *y);
y 1072 src/gauche.h SCM_EXTERN int Scm_StringCmp(ScmString *x, ScmString *y);
y 1073 src/gauche.h SCM_EXTERN int Scm_StringCiCmp(ScmString *x, ScmString *y);
y 1088 src/gauche.h SCM_EXTERN ScmObj Scm_StringAppend2(ScmString *x, ScmString *y);
y 2064 src/gauche.h SCM_EXTERN ScmObj Scm_BignumAddSI(ScmBignum *bx, long y);
y 2067 src/gauche.h SCM_EXTERN ScmObj Scm_BignumSubSI(ScmBignum *bx, long y);
y 2070 src/gauche.h SCM_EXTERN ScmObj Scm_BignumMulSI(ScmBignum *bx, long y);
y 2072 src/gauche.h SCM_EXTERN ScmObj Scm_BignumDivSI(ScmBignum *bx, long y, long *r);
y 2075 src/gauche.h SCM_EXTERN ScmObj Scm_BignumLogAndSI(ScmBignum *bx, long y);
y 2172 src/gauche.h SCM_EXTERN ScmObj Scm_Expt(ScmObj x, ScmObj y);
y 2174 src/gauche.h SCM_EXTERN int Scm_NumEq(ScmObj x, ScmObj y);
y 2175 src/gauche.h SCM_EXTERN int Scm_NumCmp(ScmObj x, ScmObj y);
y 2178 src/gauche.h SCM_EXTERN ScmObj Scm_LogAnd(ScmObj x, ScmObj y);
y 2179 src/gauche.h SCM_EXTERN ScmObj Scm_LogIor(ScmObj x, ScmObj y);
y 2180 src/gauche.h SCM_EXTERN ScmObj Scm_LogXor(ScmObj x, ScmObj y);
y 2182 src/gauche.h SCM_EXTERN int Scm_LogTest(ScmObj x, ScmObj y);
y 2861 src/gauche.h SCM_EXTERN int Scm_Compare(ScmObj x, ScmObj y);
y 80 src/gauche/arith.h #define UADD(r, c, x, y) \
y 82 src/gauche/arith.h (r) = (x) + (y) + (c); \
y 83 src/gauche/arith.h (c) = ((r)<(x) || ((r)==(x) && ((y)>0||(c)>0)))? 1 : 0; \
y 96 src/gauche/arith.h #define UADDOV(r, v, x, y) \
y 98 src/gauche/arith.h (r) = (x) + (y); \
y 112 src/gauche/arith.h #define SADDOV(r, v, x, y) \
y 114 src/gauche/arith.h (r) = (x) + (y); \
y 116 src/gauche/arith.h if ((y) >= 0 && (r) < 0) (v) = 1; \
y 119 src/gauche/arith.h if ((y) < 0 && (r) >= 0) (v) = -1; \
y 134 src/gauche/arith.h #define USUB(r, c, x, y) \
y 136 src/gauche/arith.h (r) = (x) - (y) - (c); \
y 137 src/gauche/arith.h (c) = ((r)>(x) || ((r)==(x) && ((y)>0||(c)>0)))? 1 : 0; \
y 150 src/gauche/arith.h #define USUBOV(r, v, x, y) \
y 152 src/gauche/arith.h (r) = (x) - (y); \
y 166 src/gauche/arith.h #define SSUBOV(r, v, x, y) \
y 168 src/gauche/arith.h (r) = (x) - (y); \
y 170 src/gauche/arith.h if ((y) < 0 && (r) <= 0) (v) = 1; \
y 173 src/gauche/arith.h if ((y) >= 0 && (r) > 0) (v) = -1; \
y 187 src/gauche/arith.h #define UMUL(hi, lo, x, y) \
y 189 src/gauche/arith.h u_long xl_ = LO(x), xh_ = HI(x), yl_ = LO(y), yh_ = HI(y); \
y 213 src/gauche/arith.h #define UMULOV(r, v, x, y) \
y 215 src/gauche/arith.h if ((x)==0 || (y)==0) { (v) = (r) = 0; } \
y 218 src/gauche/arith.h UMUL(t5_, r, x, y); \
y 233 src/gauche/arith.h #define SMULOV(r, v, x, y) \
y 237 src/gauche/arith.h if ((y) >= 0) { \
y 238 src/gauche/arith.h UMULOV(t6_, v, x, y); \
y 242 src/gauche/arith.h UMULOV(t6_, v, x, -y); \
y 247 src/gauche/arith.h if ((y) >= 0) { \
y 248 src/gauche/arith.h UMULOV(t6_, v, -x, y); \
y 252 src/gauche/arith.h UMULOV(t6_, v, -x, -y); \
y 50 src/gauche/arith_i386.h #define UADD(r, c, x, y) \
y 60 src/gauche/arith_i386.h : "1" (c), "g"(x), "g"(y) \
y 70 src/gauche/arith_i386.h #define UADDOV(r, v, x, y) \
y 76 src/gauche/arith_i386.h : "g" (x), "g" (y))
y 85 src/gauche/arith_i386.h #define SADDOV(r, v, x, y) \
y 95 src/gauche/arith_i386.h : "g" (x), "g" (y))
y 104 src/gauche/arith_i386.h #define USUB(r, c, x, y) \
y 111 src/gauche/arith_i386.h : "1" (c), "g" (x), "g" (y))
y 120 src/gauche/arith_i386.h #define USUBOV(r, v, x, y) \
y 126 src/gauche/arith_i386.h : "g" (x), "g" (y))
y 135 src/gauche/arith_i386.h #define SSUBOV(r, v, x, y) \
y 145 src/gauche/arith_i386.h : "g" (x), "g" (y))
y 153 src/gauche/arith_i386.h #define UMUL(hi, lo, x, y) \
y 159 src/gauche/arith_i386.h : "g" (x), "r" (y) \
y 173 src/gauche/arith_i386.h #define UMULOV(r, v, x, y) \
y 177 src/gauche/arith_i386.h : "r" (y), "0" (x), "1" (0) \
y 188 src/gauche/arith_i386.h #define SMULOV(r, v, x, y) \
y 197 src/gauche/arith_i386.h : "r" (y), "0" (x), "1" (0) \
y 1605 src/intlib.c ScmObj y;
y 1610 src/intlib.c y = (y_scm);
y 1612 src/intlib.c if (SCM_WORD(x) > SCM_WORD(y)) SCM_RETURN(x);
y 1613 src/intlib.c else SCM_RETURN(y);
y 71 src/list.c ScmPair *y, *z;
y 72 src/list.c SCM_MALLOC_WORDS(y, sizeof(ScmPair)/sizeof(GC_word), ScmPair*);
y 74 src/list.c SCM_SET_CAR(y, caar);
y 75 src/list.c SCM_SET_CDR(y, cdar);
y 76 src/list.c SCM_SET_CAR(z, SCM_OBJ(y));
y 1314 src/number.c ScmObj Scm_Quotient(ScmObj x, ScmObj y, ScmObj *rem)
y 1318 src/number.c if (SCM_INTP(y)) {
y 1320 src/number.c if (SCM_INT_VALUE(y) == 0) goto DIVBYZERO;
y 1321 src/number.c q = SCM_INT_VALUE(x)/SCM_INT_VALUE(y);
y 1323 src/number.c r = SCM_INT_VALUE(x)%SCM_INT_VALUE(y);
y 1328 src/number.c if (SCM_BIGNUMP(y)) {
y 1332 src/number.c if (SCM_FLONUMP(y)) {
y 1334 src/number.c ry = SCM_FLONUM_VALUE(y);
y 1340 src/number.c if (SCM_INTP(y)) {
y 1342 src/number.c ScmObj q = Scm_BignumDivSI(SCM_BIGNUM(x), SCM_INT_VALUE(y), &r);
y 1345 src/number.c } else if (SCM_BIGNUMP(y)) {
y 1346 src/number.c ScmObj qr = Scm_BignumDivRem(SCM_BIGNUM(x), SCM_BIGNUM(y));
y 1349 src/number.c } else if (SCM_FLONUMP(y)) {
y 1351 src/number.c ry = SCM_FLONUM_VALUE(y);
y 1359 src/number.c if (SCM_INTP(y)) {
y 1360 src/number.c ry = (double)SCM_INT_VALUE(y);
y 1361 src/number.c } else if (SCM_BIGNUMP(y)) {
y 1362 src/number.c ry = Scm_BignumToDouble(SCM_BIGNUM(y));
y 1363 src/number.c } else if (SCM_FLONUMP(y)) {
y 1364 src/number.c ry = SCM_FLONUM_VALUE(y);
y 1386 src/number.c x = y;
y 1395 src/number.c ScmObj Scm_Modulo(ScmObj x, ScmObj y, int remp)
y 1399 src/number.c if (SCM_INTP(y)) {
y 1401 src/number.c if (SCM_INT_VALUE(y) == 0) goto DIVBYZERO;
y 1402 src/number.c r = SCM_INT_VALUE(x)%SCM_INT_VALUE(y);
y 1404 src/number.c if ((SCM_INT_VALUE(x) > 0 && SCM_INT_VALUE(y) < 0)
y 1405 src/number.c || (SCM_INT_VALUE(x) < 0 && SCM_INT_VALUE(y) > 0)) {
y 1406 src/number.c r += SCM_INT_VALUE(y);
y 1411 src/number.c if (SCM_BIGNUMP(y)) {
y 1415 src/number.c if ((SCM_INT_VALUE(x) < 0 && SCM_BIGNUM_SIGN(y) > 0)
y 1416 src/number.c || (SCM_INT_VALUE(x) > 0 && SCM_BIGNUM_SIGN(y) < 0)) {
y 1417 src/number.c return Scm_BignumAddSI(SCM_BIGNUM(y), SCM_INT_VALUE(x));
y 1424 src/number.c if (SCM_FLONUMP(y)) {
y 1425 src/number.c ry = SCM_FLONUM_VALUE(y);
y 1431 src/number.c if (SCM_INTP(y)) {
y 1432 src/number.c long iy = SCM_INT_VALUE(y);
y 1443 src/number.c if (SCM_BIGNUMP(y)) {
y 1444 src/number.c ScmObj rem = SCM_CDR(Scm_BignumDivRem(SCM_BIGNUM(x), SCM_BIGNUM(y)));
y 1447 src/number.c && (SCM_BIGNUM_SIGN(x) * SCM_BIGNUM_SIGN(y) < 0)) {
y 1449 src/number.c return Scm_BignumAdd(SCM_BIGNUM(y), SCM_BIGNUM(rem));
y 1451 src/number.c return Scm_BignumAddSI(SCM_BIGNUM(y), SCM_INT_VALUE(rem));
y 1457 src/number.c if (SCM_FLONUMP(y)) {
y 1458 src/number.c ry = SCM_FLONUM_VALUE(y);
y 1467 src/number.c if (SCM_INTP(y)) {
y 1468 src/number.c ry = (double)SCM_INT_VALUE(y);
y 1469 src/number.c } else if (SCM_BIGNUMP(y)) {
y 1470 src/number.c ry = Scm_BignumToDouble(SCM_BIGNUM(y));
y 1471 src/number.c } else if (SCM_FLONUMP(y)) {
y 1472 src/number.c ry = SCM_FLONUM_VALUE(y);
y 1492 src/number.c x = y;
y 1530 src/number.c static ScmObj exact_expt(ScmObj x, ScmObj y)
y 1532 src/number.c int sign = Scm_Sign(y);
y 1538 src/number.c if (x == SCM_MAKE_INT(-1)) return Scm_OddP(y)? SCM_MAKE_INT(-1) : r;
y 1540 src/number.c if (!SCM_INTP(y)) {
y 1542 src/number.c Scm_Error("exponent too big: %S", y);
y 1544 src/number.c iy = SCM_INT_VALUE(y);
y 1564 src/number.c ScmObj Scm_Expt(ScmObj x, ScmObj y)
y 1567 src/number.c if (SCM_EXACTP(x) && SCM_EXACTP(y)) return exact_expt(x, y);
y 1569 src/number.c if (!SCM_REALP(y)) Scm_Error("real number required, but got %S", y);
y 1571 src/number.c dy = Scm_GetDouble(y);
y 1574 src/number.c } else if (dx < 0 && !Scm_IntegerP(y)) {
y 1804 src/number.c ScmObj Scm_LogAnd(ScmObj x, ScmObj y)
y 1807 src/number.c if (!SCM_EXACTP(y)) Scm_Error("exact integer required, but got %S", y);
y 1809 src/number.c if (SCM_INTP(y)) {
y 1810 src/number.c return SCM_MAKE_INT(SCM_INT_VALUE(x) & SCM_INT_VALUE(y));
y 1811 src/number.c } else if (SCM_INT_VALUE(x) >= 0 && SCM_BIGNUM_SIGN(y) >= 0) {
y 1812 src/number.c return Scm_MakeInteger(SCM_INT_VALUE(x)&SCM_BIGNUM(y)->values[0]);
y 1815 src/number.c } else if (SCM_INTP(y)) {
y 1816 src/number.c if (SCM_INT_VALUE(y) >= 0 && SCM_BIGNUM_SIGN(x) >= 0) {
y 1817 src/number.c return Scm_MakeInteger(SCM_INT_VALUE(y)&SCM_BIGNUM(x)->values[0]);
y 1819 src/number.c y = Scm_MakeBignumFromSI(SCM_INT_VALUE(y));
y 1821 src/number.c return Scm_BignumLogAnd(SCM_BIGNUM(x), SCM_BIGNUM(y));
y 1824 src/number.c ScmObj Scm_LogIor(ScmObj x, ScmObj y)
y 1827 src/number.c if (!SCM_EXACTP(y)) Scm_Error("exact integer required, but got %S", y);
y 1829 src/number.c if (SCM_INTP(y))
y 1830 src/number.c return SCM_MAKE_INT(SCM_INT_VALUE(x) | SCM_INT_VALUE(y));
y 1834 src/number.c if (SCM_INTP(y)) y = Scm_MakeBignumFromSI(SCM_INT_VALUE(y));
y 1836 src/number.c return Scm_BignumLogIor(SCM_BIGNUM(x), SCM_BIGNUM(y));
y 1840 src/number.c ScmObj Scm_LogXor(ScmObj x, ScmObj y)
y 1843 src/number.c if (!SCM_EXACTP(y)) Scm_Error("exact integer required, but got %S", y);
y 1845 src/number.c if (SCM_INTP(y))
y 1846 src/number.c return SCM_MAKE_INT(SCM_INT_VALUE(x) ^ SCM_INT_VALUE(y));
y 1850 src/number.c if (SCM_INTP(y)) y = Scm_MakeBignumFromSI(SCM_INT_VALUE(y));
y 1852 src/number.c return Scm_BignumLogXor(SCM_BIGNUM(x), SCM_BIGNUM(y));
y 1919 src/number.c static inline int numcmp3(ScmObj x, ScmObj d, ScmObj y)
y 1923 src/number.c ScmObj by = SCM_BIGNUMP(y)? y : Scm_MakeBignumFromSI(SCM_INT_VALUE(y));
y 2314 src/number.c ScmObj m, x, y, abs_d, d2;
y 2322 src/number.c y = Scm_Ash(m, k);
y 2325 src/number.c y = Scm_Ash(Scm_Multiply2(m, iexpt10(-e)), k);
y 2330 src/number.c y = m;
y 2333 src/number.c y = Scm_Multiply2(m, iexpt10(-e));
y 2342 src/number.c sign_d = Scm_NumCmp(x, y);
y 2343 src/number.c abs_d = (sign_d > 0)? Scm_Subtract2(x, y) : Scm_Subtract2(y, x);
y 2345 src/number.c switch (Scm_NumCmp(d2, y)) {
y 2349 src/number.c && Scm_NumCmp(Scm_Ash(d2, 1), y) > 0) {
y 2390 src/number.c y = Scm_Ash(m, k);
y 2392 src/number.c y = Scm_Ash(Scm_Multiply2(m, iexpt10(-e)), k);
y 2403 src/number.c y = m;
y 2406 src/number.c y = Scm_Multiply2(m, iexpt10(-e));
y 181 src/regexp.c static int regexp_compare(ScmObj x, ScmObj y, int equalp);
y 213 src/regexp.c static int regexp_compare(ScmObj x, ScmObj y, int equalp)
y 216 src/regexp.c Scm_Error("cannot compare regexps: %S and %S", x, y);
y 219 src/regexp.c && SCM_REGEXP(y)->pattern
y 221 src/regexp.c SCM_STRING(SCM_REGEXP(y)->pattern))
y 223 src/regexp.c == (SCM_REGEXP(y)->flags&SCM_REGEXP_CASE_FOLD)));
y 792 src/regexp.c static int is_distinct(ScmObj x, ScmObj y);
y 865 src/regexp.c static int is_distinct(ScmObj x, ScmObj y)
y 872 src/regexp.c if (SCM_CHARP(y) || SCM_CHARSETP(y)) {
y 873 src/regexp.c return !is_distinct(SCM_CDR(x), y);
y 881 src/regexp.c return is_distinct(SCM_CADR(x), y);
y 887 src/regexp.c if (SCM_CHARP(y)) return !SCM_EQ(x, y);
y 888 src/regexp.c return is_distinct(y, x);
y 891 src/regexp.c if (SCM_CHARP(y)) {
y 892 src/regexp.c return !Scm_CharSetContains(SCM_CHARSET(x), SCM_CHAR_VALUE(y));
y 894 src/regexp.c if (SCM_CHARSETP(y)) {
y 895 src/regexp.c ScmObj ccs = Scm_CopyCharSet(SCM_CHARSET(y));
y 899 src/regexp.c return is_distinct(y, x);
y 1047 src/stdlib.c ScmObj y;
y 1052 src/stdlib.c y = (y_scm);
y 1056 src/stdlib.c SCM_RESULT = Scm_Expt(x, y);
y 350 src/string.c int Scm_StringEqual(ScmString *x, ScmString *y)
y 353 src/string.c const ScmStringBody *yb = SCM_STRING_BODY(y);
y 365 src/string.c int Scm_StringCmp(ScmString *x, ScmString *y)
y 369 src/string.c const ScmStringBody *yb = SCM_STRING_BODY(y);
y 372 src/string.c SCM_OBJ(x), SCM_OBJ(y));
y 417 src/string.c int Scm_StringCiCmp(ScmString *x, ScmString *y)
y 422 src/string.c const ScmStringBody *yb = SCM_STRING_BODY(y);
y 426 src/string.c SCM_OBJ(x), SCM_OBJ(y));
y 531 src/string.c ScmObj Scm_StringAppend2(ScmString *x, ScmString *y)
y 534 src/string.c const ScmStringBody *yb = SCM_STRING_BODY(y);
y 751 src/string.c ScmObj Scm_StringSubstitute(ScmString *x, int start, ScmString *y)
y 753 src/string.c const ScmStringBody *yb = SCM_STRING_BODY(y);
y 715 src/system.c static int time_compare(ScmObj x, ScmObj y, int equalp)
y 718 src/system.c ScmTime *ty = SCM_TIME(y);
y 730 src/system.c Scm_Error("cannot compare different types of time objects: %S vs %S", x, y);
y 42 src/test-arith.c y = y_; \
y 43 src/test-arith.c op(r, c, x, y); \
y 56 src/test-arith.c y = y_; \
y 63 src/test-arith.c op(r, c, x, y); \
y 88 src/test-arith.c u_long r, c, x, y;
y 125 src/test-arith.c u_long r, c, x, y;
y 154 src/test-arith.c long r, c, x, y;
y 201 src/test-arith.c u_long r, c, x, y;
y 238 src/test-arith.c u_long r, c, x, y;
y 265 src/test-arith.c long r, c, x, y;
y 314 src/test-arith.c y = y_; \
y 315 src/test-arith.c UMUL(hi, lo, x, y); \
y 326 src/test-arith.c u_long hi, lo, x, y;
y 347 src/test-arith.c u_long r, c, x, y;
y 382 src/test-arith.c long r, c, x, y;
y 1452 src/vm.c ScmObj x, y = VAL0;
y 1455 src/vm.c if (!Scm_NumEq(x, y)) {