val 89 ext/binary/binary.c int val; val 92 ext/binary/binary.c || ((val = SCM_INT_VALUE(sval)) < 0) val 93 ext/binary/binary.c || (val >= 256)) { val 96 ext/binary/binary.c Scm_Putb(val, oport); val 102 ext/binary/binary.c int val; val 105 ext/binary/binary.c || ((val = SCM_INT_VALUE(sval)) < -128) val 106 ext/binary/binary.c || (val >= 128)) { val 109 ext/binary/binary.c Scm_Putb(val, oport); val 188 ext/binary/binary.c union { char buf[2]; unsigned short val; } v; val 191 ext/binary/binary.c return SCM_MAKE_INT(v.val); val 196 ext/binary/binary.c union { char buf[2]; short val; } v; val 199 ext/binary/binary.c return SCM_MAKE_INT(v.val); val 204 ext/binary/binary.c union { char buf[4]; ScmUInt32 val; } v; val 207 ext/binary/binary.c return Scm_MakeIntegerFromUI(v.val); val 212 ext/binary/binary.c union { char buf[4]; ScmInt32 val; } v; val 215 ext/binary/binary.c return Scm_MakeInteger(v.val); val 220 ext/binary/binary.c union { char buf[8]; ScmUInt64 val; } v; val 223 ext/binary/binary.c return Scm_MakeIntegerU64(v.val); val 228 ext/binary/binary.c union { char buf[8]; ScmInt64 val; } v; val 231 ext/binary/binary.c return Scm_MakeInteger64(v.val); val 236 ext/binary/binary.c union { char buf[4]; float val; } v; val 239 ext/binary/binary.c return Scm_MakeFlonum((double)v.val); val 244 ext/binary/binary.c union { char buf[8]; double val;} v; val 247 ext/binary/binary.c return Scm_MakeFlonum(v.val); val 256 ext/binary/binary.c union { char buf[2]; u_short val; } v; val 265 ext/binary/binary.c v.val = vv; val 272 ext/binary/binary.c union { char buf[2]; short val; } v; val 281 ext/binary/binary.c v.val = vv; val 288 ext/binary/binary.c union { char buf[4]; ScmUInt32 val; } v; val 291 ext/binary/binary.c v.val = Scm_GetIntegerU32Clamp(sval, FALSE, FALSE); val 298 ext/binary/binary.c union { char buf[4]; ScmInt32 val; } v; val 301 ext/binary/binary.c v.val = Scm_GetInteger32Clamp(sval, FALSE, FALSE); val 308 ext/binary/binary.c union { char buf[8]; ScmUInt64 val; } v; val 311 ext/binary/binary.c v.val = Scm_GetIntegerU64Clamp(sval, FALSE, FALSE); val 318 ext/binary/binary.c union { char buf[8]; ScmInt64 val; } v; val 321 ext/binary/binary.c v.val = Scm_GetInteger64Clamp(sval, FALSE, FALSE); val 328 ext/binary/binary.c union { char buf[4]; float val; } v; val 331 ext/binary/binary.c v.val = (float)Scm_GetDouble(sval); val 338 ext/binary/binary.c union { char buf[8]; double val; } v; val 341 ext/binary/binary.c v.val = Scm_GetDouble(sval); val 63 ext/binary/binary.h extern void Scm_WriteBinaryUint8(ScmObj val, ScmObj port, Endian endian); val 64 ext/binary/binary.h extern void Scm_WriteBinaryUint16(ScmObj val, ScmObj port, Endian endian); val 65 ext/binary/binary.h extern void Scm_WriteBinaryUint32(ScmObj val, ScmObj port, Endian endian); val 66 ext/binary/binary.h extern void Scm_WriteBinaryUint64(ScmObj val, ScmObj port, Endian endian); val 67 ext/binary/binary.h extern void Scm_WriteBinarySint8(ScmObj val, ScmObj port, Endian endian); val 68 ext/binary/binary.h extern void Scm_WriteBinarySint16(ScmObj val, ScmObj port, Endian endian); val 69 ext/binary/binary.h extern void Scm_WriteBinarySint32(ScmObj val, ScmObj port, Endian endian); val 70 ext/binary/binary.h extern void Scm_WriteBinarySint64(ScmObj val, ScmObj port, Endian endian); val 72 ext/binary/binary.h extern void Scm_WriteBinaryFloat(ScmObj val, ScmObj port, Endian endian); val 73 ext/binary/binary.h extern void Scm_WriteBinaryDouble(ScmObj val, ScmObj port, Endian endian); val 670 ext/binary/binarylib.c ScmObj val; val 681 ext/binary/binarylib.c val = (val_scm); val 695 ext/binary/binarylib.c Scm_WriteBinaryFloat(val, port, endian); val 706 ext/binary/binarylib.c ScmObj val; val 717 ext/binary/binarylib.c val = (val_scm); val 731 ext/binary/binarylib.c Scm_WriteBinaryDouble(val, port, endian); val 185 ext/dbm/gdbm.c ScmString* val; val 200 ext/dbm/gdbm.c val = SCM_STRING(val_scm); val 214 ext/dbm/gdbm.c TO_DATUM(dval, val); val 425 ext/dbm/gdbm.c ScmObj val; val 434 ext/dbm/gdbm.c val = (val_scm); val 440 ext/dbm/gdbm.c if (SCM_EXACTP(val)) ival = Scm_GetUInteger(val); val 441 ext/dbm/gdbm.c else ival = !SCM_FALSEP(val); val 152 ext/dbm/ndbm.c ScmString* val; val 167 ext/dbm/ndbm.c val = SCM_STRING(val_scm); val 181 ext/dbm/ndbm.c TO_DATUM(dval, val); val 105 ext/dbm/odbm.c ScmString* val; val 112 ext/dbm/odbm.c val = SCM_STRING(val_scm); val 119 ext/dbm/odbm.c TO_DATUM(dval, val); val 417 ext/net/net.c int val; val 419 ext/net/net.c SCM_SYSCALL(r, getsockopt(s->fd, level, option, &val, &rrsize)); val 421 ext/net/net.c return Scm_MakeInteger(val); val 81 ext/termios/termios.c static void termios_c_cc_set(ScmSysTermios* t, ScmObj val) val 83 ext/termios/termios.c if (!SCM_U8VECTORP(val)) { val 84 ext/termios/termios.c Scm_Error("cc type must be a u8vector, but got %S", val); val 86 ext/termios/termios.c if (SCM_U8VECTOR_SIZE(val) != NCCS) { val 88 ext/termios/termios.c NCCS, SCM_U8VECTOR_SIZE(val)); val 90 ext/termios/termios.c memcpy(t->term.c_cc, SCM_U8VECTOR_ELEMENTS(val), NCCS); val 323 ext/threads/mutex.c static void cv_specific_set(ScmConditionVariable *cv, ScmObj val) val 325 ext/threads/mutex.c cv->specific = val; val 112 ext/uvector/gauche/uvector.h extern ScmObj Scm_S8VectorSet(ScmS8Vector *vec, int index, ScmObj val, int clamp); val 169 ext/uvector/gauche/uvector.h extern ScmObj Scm_U8VectorSet(ScmU8Vector *vec, int index, ScmObj val, int clamp); val 226 ext/uvector/gauche/uvector.h extern ScmObj Scm_S16VectorSet(ScmS16Vector *vec, int index, ScmObj val, int clamp); val 283 ext/uvector/gauche/uvector.h extern ScmObj Scm_U16VectorSet(ScmU16Vector *vec, int index, ScmObj val, int clamp); val 340 ext/uvector/gauche/uvector.h extern ScmObj Scm_S32VectorSet(ScmS32Vector *vec, int index, ScmObj val, int clamp); val 397 ext/uvector/gauche/uvector.h extern ScmObj Scm_U32VectorSet(ScmU32Vector *vec, int index, ScmObj val, int clamp); val 454 ext/uvector/gauche/uvector.h extern ScmObj Scm_S64VectorSet(ScmS64Vector *vec, int index, ScmObj val, int clamp); val 511 ext/uvector/gauche/uvector.h extern ScmObj Scm_U64VectorSet(ScmU64Vector *vec, int index, ScmObj val, int clamp); val 568 ext/uvector/gauche/uvector.h extern ScmObj Scm_F32VectorSet(ScmF32Vector *vec, int index, ScmObj val, int clamp); val 625 ext/uvector/gauche/uvector.h extern ScmObj Scm_F64VectorSet(ScmF64Vector *vec, int index, ScmObj val, int clamp); val 882 ext/uvector/uvector.c ScmObj Scm_S8VectorSet(ScmS8Vector *vec, int index, ScmObj val, int clamp) val 888 ext/uvector/uvector.c elt = s8unbox(val, clamp); val 1086 ext/uvector/uvector.c ScmObj Scm_U8VectorSet(ScmU8Vector *vec, int index, ScmObj val, int clamp) val 1092 ext/uvector/uvector.c elt = u8unbox(val, clamp); val 1290 ext/uvector/uvector.c ScmObj Scm_S16VectorSet(ScmS16Vector *vec, int index, ScmObj val, int clamp) val 1296 ext/uvector/uvector.c elt = s16unbox(val, clamp); val 1494 ext/uvector/uvector.c ScmObj Scm_U16VectorSet(ScmU16Vector *vec, int index, ScmObj val, int clamp) val 1500 ext/uvector/uvector.c elt = u16unbox(val, clamp); val 1698 ext/uvector/uvector.c ScmObj Scm_S32VectorSet(ScmS32Vector *vec, int index, ScmObj val, int clamp) val 1704 ext/uvector/uvector.c elt = Scm_GetInteger32Clamp(val, clamp, NULL); val 1902 ext/uvector/uvector.c ScmObj Scm_U32VectorSet(ScmU32Vector *vec, int index, ScmObj val, int clamp) val 1908 ext/uvector/uvector.c elt = Scm_GetIntegerU32Clamp(val, clamp, NULL); val 2106 ext/uvector/uvector.c ScmObj Scm_S64VectorSet(ScmS64Vector *vec, int index, ScmObj val, int clamp) val 2112 ext/uvector/uvector.c elt = Scm_GetInteger64Clamp(val, clamp, NULL); val 2310 ext/uvector/uvector.c ScmObj Scm_U64VectorSet(ScmU64Vector *vec, int index, ScmObj val, int clamp) val 2316 ext/uvector/uvector.c elt = Scm_GetIntegerU64Clamp(val, clamp, NULL); val 2514 ext/uvector/uvector.c ScmObj Scm_F32VectorSet(ScmF32Vector *vec, int index, ScmObj val, int clamp) val 2520 ext/uvector/uvector.c elt = (float)Scm_GetDouble(val); val 2718 ext/uvector/uvector.c ScmObj Scm_F64VectorSet(ScmF64Vector *vec, int index, ScmObj val, int clamp) val 2724 ext/uvector/uvector.c elt = Scm_GetDouble(val); val 7180 ext/uvector/uvector.c long val, minval, maxval; val 7204 ext/uvector/uvector.c val = SCM_S8VECTOR_ELEMENTS(x)[i]; val 7238 ext/uvector/uvector.c if (!mindc && (val < minval)) { val 7239 ext/uvector/uvector.c val = minval; val 7242 ext/uvector/uvector.c if (!maxdc && (maxval < val)) { val 7243 ext/uvector/uvector.c val = maxval; val 7254 ext/uvector/uvector.c long val, minval, maxval; val 7278 ext/uvector/uvector.c val = SCM_S8VECTOR_ELEMENTS(x)[i]; val 7312 ext/uvector/uvector.c if (!mindc && (val < minval)) { val 7313 ext/uvector/uvector.c val = minval; val 7314 ext/uvector/uvector.c SCM_S8VECTOR_ELEMENTS(d)[i] = val; val 7316 ext/uvector/uvector.c if (!maxdc && (maxval < val)) { val 7317 ext/uvector/uvector.c val = maxval; val 7318 ext/uvector/uvector.c SCM_S8VECTOR_ELEMENTS(d)[i] = val; val 7328 ext/uvector/uvector.c long val, minval, maxval; val 7352 ext/uvector/uvector.c val = SCM_S8VECTOR_ELEMENTS(x)[i]; val 7386 ext/uvector/uvector.c if (!mindc && (val < minval)) { val 7387 ext/uvector/uvector.c val = minval; val 7388 ext/uvector/uvector.c SCM_S8VECTOR_ELEMENTS(x)[i] = val; val 7390 ext/uvector/uvector.c if (!maxdc && (maxval < val)) { val 7391 ext/uvector/uvector.c val = maxval; val 7392 ext/uvector/uvector.c SCM_S8VECTOR_ELEMENTS(x)[i] = val; val 7402 ext/uvector/uvector.c long val, minval, maxval; val 7426 ext/uvector/uvector.c val = SCM_U8VECTOR_ELEMENTS(x)[i]; val 7460 ext/uvector/uvector.c if (!mindc && (val < minval)) { val 7461 ext/uvector/uvector.c val = minval; val 7464 ext/uvector/uvector.c if (!maxdc && (maxval < val)) { val 7465 ext/uvector/uvector.c val = maxval; val 7476 ext/uvector/uvector.c long val, minval, maxval; val 7500 ext/uvector/uvector.c val = SCM_U8VECTOR_ELEMENTS(x)[i]; val 7534 ext/uvector/uvector.c if (!mindc && (val < minval)) { val 7535 ext/uvector/uvector.c val = minval; val 7536 ext/uvector/uvector.c SCM_U8VECTOR_ELEMENTS(d)[i] = val; val 7538 ext/uvector/uvector.c if (!maxdc && (maxval < val)) { val 7539 ext/uvector/uvector.c val = maxval; val 7540 ext/uvector/uvector.c SCM_U8VECTOR_ELEMENTS(d)[i] = val; val 7550 ext/uvector/uvector.c long val, minval, maxval; val 7574 ext/uvector/uvector.c val = SCM_U8VECTOR_ELEMENTS(x)[i]; val 7608 ext/uvector/uvector.c if (!mindc && (val < minval)) { val 7609 ext/uvector/uvector.c val = minval; val 7610 ext/uvector/uvector.c SCM_U8VECTOR_ELEMENTS(x)[i] = val; val 7612 ext/uvector/uvector.c if (!maxdc && (maxval < val)) { val 7613 ext/uvector/uvector.c val = maxval; val 7614 ext/uvector/uvector.c SCM_U8VECTOR_ELEMENTS(x)[i] = val; val 7624 ext/uvector/uvector.c long val, minval, maxval; val 7648 ext/uvector/uvector.c val = SCM_S16VECTOR_ELEMENTS(x)[i]; val 7682 ext/uvector/uvector.c if (!mindc && (val < minval)) { val 7683 ext/uvector/uvector.c val = minval; val 7686 ext/uvector/uvector.c if (!maxdc && (maxval < val)) { val 7687 ext/uvector/uvector.c val = maxval; val 7698 ext/uvector/uvector.c long val, minval, maxval; val 7722 ext/uvector/uvector.c val = SCM_S16VECTOR_ELEMENTS(x)[i]; val 7756 ext/uvector/uvector.c if (!mindc && (val < minval)) { val 7757 ext/uvector/uvector.c val = minval; val 7758 ext/uvector/uvector.c SCM_S16VECTOR_ELEMENTS(d)[i] = val; val 7760 ext/uvector/uvector.c if (!maxdc && (maxval < val)) { val 7761 ext/uvector/uvector.c val = maxval; val 7762 ext/uvector/uvector.c SCM_S16VECTOR_ELEMENTS(d)[i] = val; val 7772 ext/uvector/uvector.c long val, minval, maxval; val 7796 ext/uvector/uvector.c val = SCM_S16VECTOR_ELEMENTS(x)[i]; val 7830 ext/uvector/uvector.c if (!mindc && (val < minval)) { val 7831 ext/uvector/uvector.c val = minval; val 7832 ext/uvector/uvector.c SCM_S16VECTOR_ELEMENTS(x)[i] = val; val 7834 ext/uvector/uvector.c if (!maxdc && (maxval < val)) { val 7835 ext/uvector/uvector.c val = maxval; val 7836 ext/uvector/uvector.c SCM_S16VECTOR_ELEMENTS(x)[i] = val; val 7846 ext/uvector/uvector.c long val, minval, maxval; val 7870 ext/uvector/uvector.c val = SCM_U16VECTOR_ELEMENTS(x)[i]; val 7904 ext/uvector/uvector.c if (!mindc && (val < minval)) { val 7905 ext/uvector/uvector.c val = minval; val 7908 ext/uvector/uvector.c if (!maxdc && (maxval < val)) { val 7909 ext/uvector/uvector.c val = maxval; val 7920 ext/uvector/uvector.c long val, minval, maxval; val 7944 ext/uvector/uvector.c val = SCM_U16VECTOR_ELEMENTS(x)[i]; val 7978 ext/uvector/uvector.c if (!mindc && (val < minval)) { val 7979 ext/uvector/uvector.c val = minval; val 7980 ext/uvector/uvector.c SCM_U16VECTOR_ELEMENTS(d)[i] = val; val 7982 ext/uvector/uvector.c if (!maxdc && (maxval < val)) { val 7983 ext/uvector/uvector.c val = maxval; val 7984 ext/uvector/uvector.c SCM_U16VECTOR_ELEMENTS(d)[i] = val; val 7994 ext/uvector/uvector.c long val, minval, maxval; val 8018 ext/uvector/uvector.c val = SCM_U16VECTOR_ELEMENTS(x)[i]; val 8052 ext/uvector/uvector.c if (!mindc && (val < minval)) { val 8053 ext/uvector/uvector.c val = minval; val 8054 ext/uvector/uvector.c SCM_U16VECTOR_ELEMENTS(x)[i] = val; val 8056 ext/uvector/uvector.c if (!maxdc && (maxval < val)) { val 8057 ext/uvector/uvector.c val = maxval; val 8058 ext/uvector/uvector.c SCM_U16VECTOR_ELEMENTS(x)[i] = val; val 8068 ext/uvector/uvector.c long val, minval, maxval; val 8092 ext/uvector/uvector.c val = SCM_S32VECTOR_ELEMENTS(x)[i]; val 8126 ext/uvector/uvector.c if (!mindc && (val < minval)) { val 8127 ext/uvector/uvector.c val = minval; val 8130 ext/uvector/uvector.c if (!maxdc && (maxval < val)) { val 8131 ext/uvector/uvector.c val = maxval; val 8142 ext/uvector/uvector.c long val, minval, maxval; val 8166 ext/uvector/uvector.c val = SCM_S32VECTOR_ELEMENTS(x)[i]; val 8200 ext/uvector/uvector.c if (!mindc && (val < minval)) { val 8201 ext/uvector/uvector.c val = minval; val 8202 ext/uvector/uvector.c SCM_S32VECTOR_ELEMENTS(d)[i] = val; val 8204 ext/uvector/uvector.c if (!maxdc && (maxval < val)) { val 8205 ext/uvector/uvector.c val = maxval; val 8206 ext/uvector/uvector.c SCM_S32VECTOR_ELEMENTS(d)[i] = val; val 8216 ext/uvector/uvector.c long val, minval, maxval; val 8240 ext/uvector/uvector.c val = SCM_S32VECTOR_ELEMENTS(x)[i]; val 8274 ext/uvector/uvector.c if (!mindc && (val < minval)) { val 8275 ext/uvector/uvector.c val = minval; val 8276 ext/uvector/uvector.c SCM_S32VECTOR_ELEMENTS(x)[i] = val; val 8278 ext/uvector/uvector.c if (!maxdc && (maxval < val)) { val 8279 ext/uvector/uvector.c val = maxval; val 8280 ext/uvector/uvector.c SCM_S32VECTOR_ELEMENTS(x)[i] = val; val 8290 ext/uvector/uvector.c u_long val, minval, maxval; val 8314 ext/uvector/uvector.c val = SCM_U32VECTOR_ELEMENTS(x)[i]; val 8348 ext/uvector/uvector.c if (!mindc && (val < minval)) { val 8349 ext/uvector/uvector.c val = minval; val 8352 ext/uvector/uvector.c if (!maxdc && (maxval < val)) { val 8353 ext/uvector/uvector.c val = maxval; val 8364 ext/uvector/uvector.c u_long val, minval, maxval; val 8388 ext/uvector/uvector.c val = SCM_U32VECTOR_ELEMENTS(x)[i]; val 8422 ext/uvector/uvector.c if (!mindc && (val < minval)) { val 8423 ext/uvector/uvector.c val = minval; val 8424 ext/uvector/uvector.c SCM_U32VECTOR_ELEMENTS(d)[i] = val; val 8426 ext/uvector/uvector.c if (!maxdc && (maxval < val)) { val 8427 ext/uvector/uvector.c val = maxval; val 8428 ext/uvector/uvector.c SCM_U32VECTOR_ELEMENTS(d)[i] = val; val 8438 ext/uvector/uvector.c u_long val, minval, maxval; val 8462 ext/uvector/uvector.c val = SCM_U32VECTOR_ELEMENTS(x)[i]; val 8496 ext/uvector/uvector.c if (!mindc && (val < minval)) { val 8497 ext/uvector/uvector.c val = minval; val 8498 ext/uvector/uvector.c SCM_U32VECTOR_ELEMENTS(x)[i] = val; val 8500 ext/uvector/uvector.c if (!maxdc && (maxval < val)) { val 8501 ext/uvector/uvector.c val = maxval; val 8502 ext/uvector/uvector.c SCM_U32VECTOR_ELEMENTS(x)[i] = val; val 8512 ext/uvector/uvector.c ScmInt64 val, minval, maxval; val 8536 ext/uvector/uvector.c val = SCM_S64VECTOR_ELEMENTS(x)[i]; val 8570 ext/uvector/uvector.c if (!mindc && INT64LT(val, minval)) { val 8571 ext/uvector/uvector.c val = minval; val 8574 ext/uvector/uvector.c if (!maxdc && INT64LT(maxval, val)) { val 8575 ext/uvector/uvector.c val = maxval; val 8586 ext/uvector/uvector.c ScmInt64 val, minval, maxval; val 8610 ext/uvector/uvector.c val = SCM_S64VECTOR_ELEMENTS(x)[i]; val 8644 ext/uvector/uvector.c if (!mindc && INT64LT(val, minval)) { val 8645 ext/uvector/uvector.c val = minval; val 8646 ext/uvector/uvector.c SCM_S64VECTOR_ELEMENTS(d)[i] = val; val 8648 ext/uvector/uvector.c if (!maxdc && INT64LT(maxval, val)) { val 8649 ext/uvector/uvector.c val = maxval; val 8650 ext/uvector/uvector.c SCM_S64VECTOR_ELEMENTS(d)[i] = val; val 8660 ext/uvector/uvector.c ScmInt64 val, minval, maxval; val 8684 ext/uvector/uvector.c val = SCM_S64VECTOR_ELEMENTS(x)[i]; val 8718 ext/uvector/uvector.c if (!mindc && INT64LT(val, minval)) { val 8719 ext/uvector/uvector.c val = minval; val 8720 ext/uvector/uvector.c SCM_S64VECTOR_ELEMENTS(x)[i] = val; val 8722 ext/uvector/uvector.c if (!maxdc && INT64LT(maxval, val)) { val 8723 ext/uvector/uvector.c val = maxval; val 8724 ext/uvector/uvector.c SCM_S64VECTOR_ELEMENTS(x)[i] = val; val 8734 ext/uvector/uvector.c ScmUInt64 val, minval, maxval; val 8758 ext/uvector/uvector.c val = SCM_U64VECTOR_ELEMENTS(x)[i]; val 8792 ext/uvector/uvector.c if (!mindc && INT64LT(val, minval)) { val 8793 ext/uvector/uvector.c val = minval; val 8796 ext/uvector/uvector.c if (!maxdc && INT64LT(maxval, val)) { val 8797 ext/uvector/uvector.c val = maxval; val 8808 ext/uvector/uvector.c ScmUInt64 val, minval, maxval; val 8832 ext/uvector/uvector.c val = SCM_U64VECTOR_ELEMENTS(x)[i]; val 8866 ext/uvector/uvector.c if (!mindc && INT64LT(val, minval)) { val 8867 ext/uvector/uvector.c val = minval; val 8868 ext/uvector/uvector.c SCM_U64VECTOR_ELEMENTS(d)[i] = val; val 8870 ext/uvector/uvector.c if (!maxdc && INT64LT(maxval, val)) { val 8871 ext/uvector/uvector.c val = maxval; val 8872 ext/uvector/uvector.c SCM_U64VECTOR_ELEMENTS(d)[i] = val; val 8882 ext/uvector/uvector.c ScmUInt64 val, minval, maxval; val 8906 ext/uvector/uvector.c val = SCM_U64VECTOR_ELEMENTS(x)[i]; val 8940 ext/uvector/uvector.c if (!mindc && INT64LT(val, minval)) { val 8941 ext/uvector/uvector.c val = minval; val 8942 ext/uvector/uvector.c SCM_U64VECTOR_ELEMENTS(x)[i] = val; val 8944 ext/uvector/uvector.c if (!maxdc && INT64LT(maxval, val)) { val 8945 ext/uvector/uvector.c val = maxval; val 8946 ext/uvector/uvector.c SCM_U64VECTOR_ELEMENTS(x)[i] = val; val 8956 ext/uvector/uvector.c double val, minval, maxval; val 8980 ext/uvector/uvector.c val = SCM_F32VECTOR_ELEMENTS(x)[i]; val 9014 ext/uvector/uvector.c if (!mindc && (val < minval)) { val 9015 ext/uvector/uvector.c val = minval; val 9018 ext/uvector/uvector.c if (!maxdc && (maxval < val)) { val 9019 ext/uvector/uvector.c val = maxval; val 9030 ext/uvector/uvector.c double val, minval, maxval; val 9054 ext/uvector/uvector.c val = SCM_F32VECTOR_ELEMENTS(x)[i]; val 9088 ext/uvector/uvector.c if (!mindc && (val < minval)) { val 9089 ext/uvector/uvector.c val = minval; val 9090 ext/uvector/uvector.c SCM_F32VECTOR_ELEMENTS(d)[i] = val; val 9092 ext/uvector/uvector.c if (!maxdc && (maxval < val)) { val 9093 ext/uvector/uvector.c val = maxval; val 9094 ext/uvector/uvector.c SCM_F32VECTOR_ELEMENTS(d)[i] = val; val 9104 ext/uvector/uvector.c double val, minval, maxval; val 9128 ext/uvector/uvector.c val = SCM_F32VECTOR_ELEMENTS(x)[i]; val 9162 ext/uvector/uvector.c if (!mindc && (val < minval)) { val 9163 ext/uvector/uvector.c val = minval; val 9164 ext/uvector/uvector.c SCM_F32VECTOR_ELEMENTS(x)[i] = val; val 9166 ext/uvector/uvector.c if (!maxdc && (maxval < val)) { val 9167 ext/uvector/uvector.c val = maxval; val 9168 ext/uvector/uvector.c SCM_F32VECTOR_ELEMENTS(x)[i] = val; val 9178 ext/uvector/uvector.c double val, minval, maxval; val 9202 ext/uvector/uvector.c val = SCM_F64VECTOR_ELEMENTS(x)[i]; val 9236 ext/uvector/uvector.c if (!mindc && (val < minval)) { val 9237 ext/uvector/uvector.c val = minval; val 9240 ext/uvector/uvector.c if (!maxdc && (maxval < val)) { val 9241 ext/uvector/uvector.c val = maxval; val 9252 ext/uvector/uvector.c double val, minval, maxval; val 9276 ext/uvector/uvector.c val = SCM_F64VECTOR_ELEMENTS(x)[i]; val 9310 ext/uvector/uvector.c if (!mindc && (val < minval)) { val 9311 ext/uvector/uvector.c val = minval; val 9312 ext/uvector/uvector.c SCM_F64VECTOR_ELEMENTS(d)[i] = val; val 9314 ext/uvector/uvector.c if (!maxdc && (maxval < val)) { val 9315 ext/uvector/uvector.c val = maxval; val 9316 ext/uvector/uvector.c SCM_F64VECTOR_ELEMENTS(d)[i] = val; val 9326 ext/uvector/uvector.c double val, minval, maxval; val 9350 ext/uvector/uvector.c val = SCM_F64VECTOR_ELEMENTS(x)[i]; val 9384 ext/uvector/uvector.c if (!mindc && (val < minval)) { val 9385 ext/uvector/uvector.c val = minval; val 9386 ext/uvector/uvector.c SCM_F64VECTOR_ELEMENTS(x)[i] = val; val 9388 ext/uvector/uvector.c if (!maxdc && (maxval < val)) { val 9389 ext/uvector/uvector.c val = maxval; val 9390 ext/uvector/uvector.c SCM_F64VECTOR_ELEMENTS(x)[i] = val; val 55 ext/uvector/uvectorP.h static inline long range_s8hi(long val, int clamp) val 58 ext/uvector/uvectorP.h else range_error("s8", Scm_MakeInteger(val)); val 61 ext/uvector/uvectorP.h static inline long range_s8lo(long val, int clamp) val 64 ext/uvector/uvectorP.h else range_error("s8", Scm_MakeInteger(val)); val 67 ext/uvector/uvectorP.h static inline long clamp_s8(long val, int clamp) val 69 ext/uvector/uvectorP.h if (val > 127) return range_s8hi(val, clamp); val 70 ext/uvector/uvectorP.h if (val < -128) return range_s8lo(val, clamp); val 71 ext/uvector/uvectorP.h return val; val 74 ext/uvector/uvectorP.h static inline long range_u8hi(long val, int clamp) val 77 ext/uvector/uvectorP.h else range_error("u8", Scm_MakeInteger(val)); val 80 ext/uvector/uvectorP.h static inline long range_u8lo(long val, int clamp) val 83 ext/uvector/uvectorP.h else range_error("u8", Scm_MakeInteger(val)); val 86 ext/uvector/uvectorP.h static inline long clamp_u8(long val, int clamp) val 88 ext/uvector/uvectorP.h if (val > 255) return range_u8hi(val, clamp); val 89 ext/uvector/uvectorP.h if (val < 0) return range_u8lo(val, clamp); val 90 ext/uvector/uvectorP.h return val; val 93 ext/uvector/uvectorP.h static inline long range_s16hi(long val, int clamp) val 96 ext/uvector/uvectorP.h else range_error("s16", Scm_MakeInteger(val)); val 99 ext/uvector/uvectorP.h static inline long range_s16lo(long val, int clamp) val 102 ext/uvector/uvectorP.h else range_error("s16", Scm_MakeInteger(val)); val 105 ext/uvector/uvectorP.h static inline long clamp_s16(long val, int clamp) val 107 ext/uvector/uvectorP.h if (val > 32767) return range_s16hi(val, clamp); val 108 ext/uvector/uvectorP.h if (val < -32768) return range_s16lo(val, clamp); val 109 ext/uvector/uvectorP.h return val; val 112 ext/uvector/uvectorP.h static inline long range_u16hi(long val, int clamp) val 115 ext/uvector/uvectorP.h else range_error("u16", Scm_MakeInteger(val)); val 118 ext/uvector/uvectorP.h static inline long range_u16lo(long val, int clamp) val 121 ext/uvector/uvectorP.h else range_error("u16", Scm_MakeInteger(val)); val 124 ext/uvector/uvectorP.h static inline long clamp_u16(long val, int clamp) val 126 ext/uvector/uvectorP.h if (val > 65535) return range_u16hi(val, clamp); val 127 ext/uvector/uvectorP.h if (val < 0) return range_u16lo(val, clamp); val 128 ext/uvector/uvectorP.h return val; val 131 ext/uvector/uvectorP.h static inline long range_s32hi(long val, int clamp) val 134 ext/uvector/uvectorP.h else range_error("s32", Scm_MakeInteger(val)); val 137 ext/uvector/uvectorP.h static inline long range_s32lo(long val, int clamp) val 140 ext/uvector/uvectorP.h else range_error("s32", Scm_MakeInteger(val)); val 144 ext/uvector/uvectorP.h #define clamp_s32(val, clamp) (val) val 146 ext/uvector/uvectorP.h static inline long clamp_s32(long val, int clamp) val 148 ext/uvector/uvectorP.h if (val > 2147483647L) return range_s32hi(val, clamp); val 149 ext/uvector/uvectorP.h if (val < -2147483648L) return range_s32lo(val, clamp); val 150 ext/uvector/uvectorP.h return val; val 154 ext/uvector/uvectorP.h static inline long range_u32hi(u_long val, int clamp) val 157 ext/uvector/uvectorP.h else range_error("u32", Scm_MakeIntegerU(val)); val 160 ext/uvector/uvectorP.h static inline long range_u32lo(u_long val, int clamp) val 163 ext/uvector/uvectorP.h else range_error("u32", Scm_MakeIntegerU(val)); val 167 ext/uvector/uvectorP.h #define clamp_u32(val, clamp) (val) val 169 ext/uvector/uvectorP.h static inline long clamp_u32(u_long val, int clamp) val 171 ext/uvector/uvectorP.h if (val > 4294967295UL) return range_u32hi(val, clamp); val 172 ext/uvector/uvectorP.h return val; val 176 ext/uvector/uvectorP.h static inline ScmInt64 range_s64hi(ScmInt64 val, int clamp) val 179 ext/uvector/uvectorP.h SCM_SET_INT64_MAX(val); val 180 ext/uvector/uvectorP.h return val; val 182 ext/uvector/uvectorP.h else range_error("s64", Scm_MakeInteger64(val)); val 185 ext/uvector/uvectorP.h static inline ScmInt64 range_s64lo(ScmInt64 val, int clamp) val 188 ext/uvector/uvectorP.h SCM_SET_INT64_MIN(val); val 189 ext/uvector/uvectorP.h return val; val 191 ext/uvector/uvectorP.h else range_error("s64", Scm_MakeInteger64(val)); val 194 ext/uvector/uvectorP.h static inline ScmUInt64 range_u64hi(ScmUInt64 val, int clamp) val 197 ext/uvector/uvectorP.h SCM_SET_UINT64_MAX(val); val 198 ext/uvector/uvectorP.h return val; val 200 ext/uvector/uvectorP.h else range_error("u64", Scm_MakeIntegerU64(val)); val 203 ext/uvector/uvectorP.h static inline ScmUInt64 range_u64lo(ScmUInt64 val, int clamp) val 206 ext/uvector/uvectorP.h SCM_SET_INT64_ZERO(val); val 207 ext/uvector/uvectorP.h return val; val 209 ext/uvector/uvectorP.h else range_error("u64", Scm_MakeIntegerU64(val)); val 217 ext/uvector/uvectorP.h long val; val 218 ext/uvector/uvectorP.h if (!SCM_INTP(obj)) val = Scm_GetInteger(obj); /* clamped to long */ val 219 ext/uvector/uvectorP.h else val = SCM_INT_VALUE(obj); val 220 ext/uvector/uvectorP.h return clamp_s8(val, clamp); val 225 ext/uvector/uvectorP.h long val; val 226 ext/uvector/uvectorP.h if (!SCM_INTP(obj)) val = Scm_GetInteger(obj); /* clamped to long */ val 227 ext/uvector/uvectorP.h else val = SCM_INT_VALUE(obj); val 228 ext/uvector/uvectorP.h return clamp_u8(val, clamp); val 233 ext/uvector/uvectorP.h long val; val 234 ext/uvector/uvectorP.h if (!SCM_INTP(obj)) val = Scm_GetInteger(obj); /* clamped to long */ val 235 ext/uvector/uvectorP.h else val = SCM_INT_VALUE(obj); val 236 ext/uvector/uvectorP.h return clamp_s16(val, clamp); val 237 ext/uvector/uvectorP.h return val; val 242 ext/uvector/uvectorP.h long val; val 243 ext/uvector/uvectorP.h if (!SCM_INTP(obj)) val = Scm_GetInteger(obj); /* clamped to long */ val 244 ext/uvector/uvectorP.h else val = SCM_INT_VALUE(obj); val 245 ext/uvector/uvectorP.h return clamp_u16(val, clamp); val 148 ext/uvector/uvlib.c ScmObj val; val 162 ext/uvector/uvlib.c val = (val_scm); val 170 ext/uvector/uvlib.c SCM_RETURN(Scm_S8VectorSet(v, i, val, clamp_arg(clamp))); val 354 ext/uvector/uvlib.c ScmObj val; val 367 ext/uvector/uvlib.c val = (val_scm); val 384 ext/uvector/uvlib.c filler = s8unbox(val, SCM_CLAMP_ERROR); val 597 ext/uvector/uvlib.c ScmObj val; val 611 ext/uvector/uvlib.c val = (val_scm); val 619 ext/uvector/uvlib.c SCM_RETURN(Scm_U8VectorSet(v, i, val, clamp_arg(clamp))); val 803 ext/uvector/uvlib.c ScmObj val; val 816 ext/uvector/uvlib.c val = (val_scm); val 833 ext/uvector/uvlib.c filler = u8unbox(val, SCM_CLAMP_ERROR); val 1046 ext/uvector/uvlib.c ScmObj val; val 1060 ext/uvector/uvlib.c val = (val_scm); val 1068 ext/uvector/uvlib.c SCM_RETURN(Scm_S16VectorSet(v, i, val, clamp_arg(clamp))); val 1252 ext/uvector/uvlib.c ScmObj val; val 1265 ext/uvector/uvlib.c val = (val_scm); val 1282 ext/uvector/uvlib.c filler = s16unbox(val, SCM_CLAMP_ERROR); val 1495 ext/uvector/uvlib.c ScmObj val; val 1509 ext/uvector/uvlib.c val = (val_scm); val 1517 ext/uvector/uvlib.c SCM_RETURN(Scm_U16VectorSet(v, i, val, clamp_arg(clamp))); val 1701 ext/uvector/uvlib.c ScmObj val; val 1714 ext/uvector/uvlib.c val = (val_scm); val 1731 ext/uvector/uvlib.c filler = u16unbox(val, SCM_CLAMP_ERROR); val 1944 ext/uvector/uvlib.c ScmObj val; val 1958 ext/uvector/uvlib.c val = (val_scm); val 1966 ext/uvector/uvlib.c SCM_RETURN(Scm_S32VectorSet(v, i, val, clamp_arg(clamp))); val 2150 ext/uvector/uvlib.c ScmObj val; val 2163 ext/uvector/uvlib.c val = (val_scm); val 2180 ext/uvector/uvlib.c filler = Scm_GetInteger32Clamp(val, SCM_CLAMP_ERROR, NULL); val 2393 ext/uvector/uvlib.c ScmObj val; val 2407 ext/uvector/uvlib.c val = (val_scm); val 2415 ext/uvector/uvlib.c SCM_RETURN(Scm_U32VectorSet(v, i, val, clamp_arg(clamp))); val 2599 ext/uvector/uvlib.c ScmObj val; val 2612 ext/uvector/uvlib.c val = (val_scm); val 2629 ext/uvector/uvlib.c filler = Scm_GetIntegerU32Clamp(val, SCM_CLAMP_ERROR, NULL); val 2842 ext/uvector/uvlib.c ScmObj val; val 2856 ext/uvector/uvlib.c val = (val_scm); val 2864 ext/uvector/uvlib.c SCM_RETURN(Scm_S64VectorSet(v, i, val, clamp_arg(clamp))); val 3048 ext/uvector/uvlib.c ScmObj val; val 3061 ext/uvector/uvlib.c val = (val_scm); val 3078 ext/uvector/uvlib.c filler = Scm_GetInteger64Clamp(val, SCM_CLAMP_ERROR, NULL); val 3291 ext/uvector/uvlib.c ScmObj val; val 3305 ext/uvector/uvlib.c val = (val_scm); val 3313 ext/uvector/uvlib.c SCM_RETURN(Scm_U64VectorSet(v, i, val, clamp_arg(clamp))); val 3497 ext/uvector/uvlib.c ScmObj val; val 3510 ext/uvector/uvlib.c val = (val_scm); val 3527 ext/uvector/uvlib.c filler = Scm_GetIntegerU64Clamp(val, SCM_CLAMP_ERROR, NULL); val 3740 ext/uvector/uvlib.c ScmObj val; val 3754 ext/uvector/uvlib.c val = (val_scm); val 3762 ext/uvector/uvlib.c SCM_RETURN(Scm_F32VectorSet(v, i, val, clamp_arg(clamp))); val 3946 ext/uvector/uvlib.c ScmObj val; val 3959 ext/uvector/uvlib.c val = (val_scm); val 3976 ext/uvector/uvlib.c filler = (float)Scm_GetDouble(val); val 4189 ext/uvector/uvlib.c ScmObj val; val 4203 ext/uvector/uvlib.c val = (val_scm); val 4211 ext/uvector/uvlib.c SCM_RETURN(Scm_F64VectorSet(v, i, val, clamp_arg(clamp))); val 4395 ext/uvector/uvlib.c ScmObj val; val 4408 ext/uvector/uvlib.c val = (val_scm); val 4425 ext/uvector/uvlib.c filler = Scm_GetDouble(val); val 383 gc/aix_irix_threads.c int val = sizeof(regbuf); val 385 gc/aix_irix_threads.c sizeof(pinfo), regbuf, &val); val 402 gc/aix_irix_threads.c GC_push_all_eager((ptr_t)regbuf, ((ptr_t)regbuf)+val); val 138 gc/os_dep.c # define LONGJMP(env, val) siglongjmp(env, val) val 142 gc/os_dep.c # define LONGJMP(env, val) longjmp(env, val) val 139 src/bignum.c ScmObj Scm_MakeBignumFromSI(long val) val 142 src/bignum.c if (val == LONG_MIN) { val 146 src/bignum.c } else if (val < 0) { val 149 src/bignum.c b->values[0] = -val; val 153 src/bignum.c b->values[0] = val; val 158 src/bignum.c ScmObj Scm_MakeBignumFromUI(u_long val) val 162 src/bignum.c b->values[0] = val; val 190 src/bignum.c ScmObj Scm_MakeBignumFromDouble(double val) val 195 src/bignum.c if (val >= LONG_MIN && val <= LONG_MAX) { val 196 src/bignum.c return Scm_MakeBignumFromSI((long)val); val 199 src/bignum.c mantissa = Scm_DecodeFlonum(val, &exponent, &sign); val 201 src/bignum.c Scm_Error("can't convert %lf to an integer", val); val 299 src/char.c int i, val = 0; val 305 src/char.c return val; val 308 src/char.c val = val * 16 + Scm_DigitToInt(buf[i], 16); val 310 src/char.c return (ScmChar)val; val 319 src/char.c int i, c, val = 0, dig; val 330 src/char.c val = val * 16 + dig; val 336 src/char.c return (ScmChar)val; val 62 src/class.c ScmObj val); val 528 src/class.c static void class_name_set(ScmClass *klass, ScmObj val) val 530 src/class.c klass->name = val; val 538 src/class.c static void class_cpl_set(ScmClass *klass, ScmObj val) val 545 src/class.c if (!SCM_PAIRP(val)) goto err; val 547 src/class.c if (SCM_CAR(val) != SCM_OBJ(klass)) goto err; val 550 src/class.c cp = SCM_CDR(val); val 554 src/class.c klass->cpl = Scm_CopyList(val); val 561 src/class.c Scm_Error("class precedence list has more than one C-defined base class (except <object>): %S", val); val 574 src/class.c Scm_Error("class precedence list doesn't have a base class: %S", val); val 587 src/class.c "and ending by the class <top>: %S", val); val 595 src/class.c static void class_direct_supers_set(ScmClass *klass, ScmObj val) val 598 src/class.c SCM_FOR_EACH(vp, val) { val 603 src/class.c klass->directSupers = val; val 611 src/class.c static void class_direct_slots_set(ScmClass *klass, ScmObj val) val 614 src/class.c SCM_FOR_EACH(vp, val) { val 619 src/class.c klass->directSlots = val; val 627 src/class.c static void class_slots_set(ScmClass *klass, ScmObj val) val 630 src/class.c SCM_FOR_EACH(vp, val) { val 635 src/class.c klass->slots = val; val 643 src/class.c static void class_accessors_set(ScmClass *klass, ScmObj val) val 646 src/class.c SCM_FOR_EACH(vp, val) { val 652 src/class.c klass->accessors = val; val 685 src/class.c static void class_initargs_set(ScmClass *klass, ScmObj val) val 687 src/class.c int len = Scm_Length(val); val 689 src/class.c Scm_Error("class-initargs must be a list of even number of elements, but got %S", val); val 691 src/class.c klass->initargs = val; val 699 src/class.c static void class_defined_modules_set(ScmClass *klass, ScmObj val) val 702 src/class.c SCM_FOR_EACH(cp, val) { val 706 src/class.c klass->modules = val; val 709 src/class.c Scm_Error("list of modules required, bot got %S", val); val 1157 src/class.c static inline void scheme_slot_set(ScmObj obj, int number, ScmObj val) val 1162 src/class.c SCM_INSTANCE_SLOTS(obj)[number] = val; val 1174 src/class.c void Scm_InstanceSlotSet(ScmObj obj, int number, ScmObj val) val 1176 src/class.c scheme_slot_set(obj, number, val); val 1229 src/class.c #define SLOT_MISSING4(klass, obj, slot, val) \ val 1231 src/class.c SCM_LIST4(SCM_OBJ(klass), obj, slot, val)) val 1282 src/class.c ScmObj val = SCM_UNBOUND; val 1284 src/class.c val = sa->getter(obj); val 1286 src/class.c val = scheme_slot_ref(obj, sa->slotNumber); val 1306 src/class.c return SCM_MAKE_BOOL(!(SCM_UNBOUNDP(val) || SCM_UNDEFINEDP(val))); val 1308 src/class.c if (SCM_UNBOUNDP(val) || SCM_UNDEFINEDP(val)) { val 1311 src/class.c return val; val 1433 src/class.c ScmObj val) val 1436 src/class.c sa->setter(obj, val); val 1438 src/class.c scheme_slot_set(obj, sa->slotNumber, val); val 1440 src/class.c return Scm_VMApply(sa->schemeSetter, SCM_LIST2(obj, val)); val 1462 src/class.c ScmObj Scm_VMSlotSet(ScmObj obj, ScmObj slot, ScmObj val) val 1470 src/class.c data[2] = val; val 1475 src/class.c if (sa == NULL) return SLOT_MISSING4(klass, obj, slot, val); val 1476 src/class.c else return slot_set_using_accessor(obj, sa, val); val 1497 src/class.c ScmObj Scm_VMSlotSetUsingAccessor(ScmObj obj, ScmSlotAccessor *sa, ScmObj val) val 1509 src/class.c data[2] = val; val 1514 src/class.c return slot_set_using_accessor(obj, sa, val); val 1537 src/class.c ScmObj val = args[3]; val 1544 src/class.c if (sa == NULL) return SLOT_MISSING4(klass, obj, slot, val); val 1545 src/class.c else return slot_set_using_accessor(obj, sa, val); val 1647 src/class.c ScmObj val = Scm_GetKeyword(acc->initKeyword, initargs, SCM_UNDEFINED); val 1648 src/class.c if (!SCM_UNDEFINEDP(val)) { val 1649 src/class.c acc->setter(instance, val); val 1755 src/class.c static void slot_accessor_slot_number_set(ScmSlotAccessor *sa, ScmObj val) val 1758 src/class.c if (!SCM_INTP(val) || ((n = SCM_INT_VALUE(val)) < 0)) val 1759 src/class.c Scm_Error("small positive integer required, but got %S", val); val 1935 src/class.c static void generic_name_set(ScmGeneric *gf, ScmObj val) val 1937 src/class.c gf->common.info = val; val 1945 src/class.c static void generic_methods_set(ScmGeneric *gf, ScmObj val) val 1947 src/class.c gf->methods = val; val 2250 src/class.c static void method_generic_set(ScmMethod *m, ScmObj val) val 2252 src/class.c if (SCM_GENERICP(val)) val 2253 src/class.c m->generic = SCM_GENERIC(val); val 2255 src/class.c Scm_Error("generic function required, but got %S", val); val 2267 src/class.c static void method_specializers_set(ScmMethod *m, ScmObj val) val 2269 src/class.c int len = Scm_Length(val); val 2271 src/class.c Scm_Error("specializer list doesn't match body's lambda list:", val); val 2275 src/class.c m->specializers = class_list_to_array(val, len); val 2488 src/class.c ScmObj val = args[1]; val 2492 src/class.c return Scm_VMSlotSet(obj, ca->name, val); val 2494 src/class.c return slot_set_using_accessor(obj, ca, val); val 201 src/compaux.c static void identifier_name_set(ScmObj obj, ScmObj val) val 203 src/compaux.c if (!SCM_SYMBOLP(val)) { val 204 src/compaux.c Scm_Error("symbol required, but got %S", val); val 206 src/compaux.c SCM_IDENTIFIER(obj)->name = SCM_SYMBOL(val); val 214 src/compaux.c static void identifier_module_set(ScmObj obj, ScmObj val) val 216 src/compaux.c if (!SCM_MODULEP(val)) { val 217 src/compaux.c Scm_Error("module required, but got %S", val); val 219 src/compaux.c SCM_IDENTIFIER(obj)->module = SCM_MODULE(val); val 227 src/compaux.c static void identifier_env_set(ScmObj obj, ScmObj val) val 229 src/compaux.c if (!SCM_LISTP(val)) { val 230 src/compaux.c Scm_Error("list required, but got %S", val); val 232 src/compaux.c SCM_IDENTIFIER(obj)->env = val; val 108 src/error.c static void message_set(ScmMessageCondition *obj, ScmObj val) val 110 src/error.c obj->message = val; val 196 src/error.c static void syserror_number_set(ScmSystemError *obj, ScmObj val) val 198 src/error.c if (!SCM_INTP(val)) { val 199 src/error.c Scm_Error("small integer required, but got %S", val); val 201 src/error.c obj->error_number = SCM_INT_VALUE(val); val 210 src/error.c static void readerror_port_set(ScmReadError *obj, ScmObj val) val 212 src/error.c if (SCM_IPORTP(val)) { val 213 src/error.c obj->port = SCM_PORT(val); val 215 src/error.c else if (SCM_FALSEP(val)) { val 219 src/error.c Scm_Error("input port or #f required, but got %S", val); val 228 src/error.c static void readerror_line_set(ScmReadError *obj, ScmObj val) val 230 src/error.c if (!SCM_INTP(val)){ val 231 src/error.c Scm_Error("small integer required, but got %S", val); val 233 src/error.c obj->line = SCM_INT_VALUE(val); val 241 src/error.c static void readerror_dummy_set(ScmReadError *obj, ScmObj val) val 252 src/error.c static void porterror_port_set(ScmPortError *obj, ScmObj val) val 254 src/error.c if (!SCM_PORTP(val) && !SCM_FALSEP(val)) { val 255 src/error.c Scm_Error("port or #f required, but got %S", val); val 257 src/error.c obj->port = SCM_FALSEP(val)? NULL : SCM_PORT(val); val 2844 src/extlib.c ScmObj val; val 2853 src/extlib.c val = (val_scm); val 2857 src/extlib.c SCM_RESULT = Scm_WeakVectorSet(wv, index, val); val 2929 src/extlib.c ScmObj val; val 2932 src/extlib.c val = (val_scm); val 2936 src/extlib.c SCM_RESULT = (val); val 1673 src/gauche.h SCM_EXTERN ScmObj Scm_WeakVectorSet(ScmWeakVector *v, int index, ScmObj val); val 1689 src/gauche.h void *key, int op, void *val); val 1868 src/gauche.h #define SCM_DEFINE(module, cstr, val) \ val 1871 src/gauche.h SCM_OBJ(val)) val 1915 src/gauche.h #define SCM_GLOC_SET(gloc, val) \ val 1916 src/gauche.h ((gloc)->setter? (gloc)->setter((gloc), (val)) : ((gloc)->value = (val))) val 1920 src/gauche.h SCM_EXTERN ScmObj Scm_GlocConstSetter(ScmGloc *g, ScmObj val); val 2039 src/gauche.h SCM_EXTERN ScmObj Scm_MakeBignumFromSI(long val); val 2040 src/gauche.h SCM_EXTERN ScmObj Scm_MakeBignumFromUI(u_long val); val 2042 src/gauche.h SCM_EXTERN ScmObj Scm_MakeBignumFromDouble(double val); val 2645 src/gauche.h SCM_EXTERN time_t Scm_GetSysTime(ScmObj val); val 130 src/gauche/class.h ScmObj val); val 136 src/gauche/class.h SCM_EXTERN void Scm_InstanceSlotSet(ScmObj obj, int number, ScmObj val); val 71 src/gauche/mingw-compat.h #define siglongjmp(jbuf, val) longjmp(jbuf, val) val 64 src/hash.c #define SMALL_INT_HASH(result, val) \ val 65 src/hash.c ((result) = (val)*2654435761UL) val 67 src/hash.c #define ADDRESS_HASH(result, val) \ val 68 src/hash.c ((result) = (SCM_WORD(val) >> 3) * 2654435761UL) val 82 src/hash.c static unsigned int round2up(unsigned int val) val 85 src/hash.c while (n < val) { val 1238 src/intlib.c ScmObj val; val 1248 src/intlib.c val = (val_scm); val 1251 src/intlib.c if (SCM_UNBOUNDP(val)) { val 1254 src/intlib.c if (!SCM_INTP(val)) Scm_Error("integer required, but got %S", val); val 1256 src/intlib.c Scm_VM()->evalSituation = SCM_INT_VALUE(val); val 1130 src/load.c #define DEF(rec, sym, val) \ val 1131 src/load.c rec = SCM_GLOC(Scm_Define(m, SCM_SYMBOL(sym), val)) val 34 src/moplib.c ScmObj val = Scm_SymbolValue(module, name); val 35 src/moplib.c if (!Scm_TypeP(val, SCM_CLASS_GENERIC)) { val 36 src/moplib.c if (SCM_SUBRP(val) || SCM_CLOSUREP(val)) { val 37 src/moplib.c val = Scm_MakeBaseGeneric(SCM_OBJ(name), call_fallback_proc, val); val 39 src/moplib.c val = Scm_MakeBaseGeneric(SCM_OBJ(name), NULL, NULL); val 42 src/moplib.c Scm_Define(module, name, val); val 43 src/moplib.c SCM_RETURN(val); val 478 src/number.c u_long val[2]; val 480 src/number.c val[0] = i.lo; val 481 src/number.c val[1] = i.hi; val 482 src/number.c return Scm_MakeBignumFromUIArray(0, val, 2); /* bignum checks sign */ val 484 src/number.c u_long val[2]; val 485 src/number.c val[0] = (uint64_t)i & ULONG_MAX; val 486 src/number.c val[1] = (uint64_t)i >> 32; val 487 src/number.c if (val[1] == 0 && val[0] <= LONG_MAX) return Scm_MakeInteger(val[0]); val 488 src/number.c return Scm_NormalizeBignum(SCM_BIGNUM(Scm_MakeBignumFromUIArray(0, val, 2))); val 495 src/number.c u_long val[2]; val 497 src/number.c val[0] = i.lo; val 498 src/number.c val[1] = i.hi; val 499 src/number.c return Scm_MakeBignumFromUIArray(1, val, 2); val 501 src/number.c u_long val[2]; val 502 src/number.c val[0] = (uint64_t)i & ULONG_MAX; val 503 src/number.c val[1] = (uint64_t)i >> 32; val 504 src/number.c if (val[1] == 0) return Scm_MakeIntegerU(val[0]); val 505 src/number.c return Scm_MakeBignumFromUIArray(1, val, 2); val 764 src/number.c long val = SCM_INT_VALUE(obj); val 765 src/number.c obj = Scm_MakeFlonum(1.0/(double)val); val 767 src/number.c double val = Scm_BignumToDouble(SCM_BIGNUM(obj)); val 768 src/number.c obj = Scm_MakeFlonum(1.0/val); val 770 src/number.c double val = SCM_FLONUM_VALUE(obj); val 771 src/number.c obj = Scm_MakeFlonum(1.0/val); val 1927 src/number.c static void double_print(char *buf, int buflen, double val, int plus_sign) val 1931 src/number.c if (val == 0.0) { val 1935 src/number.c } else if (SCM_IS_INF(val)) { val 1936 src/number.c if (val < 0.0) strcpy(buf, "#i-1/0"); val 1940 src/number.c } else if (SCM_IS_NAN(val)) { val 1945 src/number.c if (val < 0.0) *buf++ = '-', buflen--; val 1957 src/number.c if (val < 0) val = -val; val 1960 src/number.c f = Scm_DecodeFlonum(val, &exp, &sign); val 1990 src/number.c est = (int)ceil(log10(val) - 0.1); val 1016 src/read.c ScmObj val; val 1027 src/read.c val = read_item(port, ctx); val 1028 src/read.c SCM_READ_REFERENCE(ref)->value = val; val 1029 src/read.c return val; val 214 src/symbol.c ScmObj Scm_GlocConstSetter(ScmGloc *gloc, ScmObj val) val 788 src/system.c static void time_type_set(ScmTime *t, ScmObj val) val 790 src/system.c if (!SCM_SYMBOLP(val)) { val 791 src/system.c Scm_Error("time type must be a symbol, but got %S", val); val 793 src/system.c t->type = val; val 801 src/system.c static void time_sec_set(ScmTime *t, ScmObj val) val 803 src/system.c if (!SCM_REALP(val)) { val 804 src/system.c Scm_Error("real number required, but got %S", val); val 806 src/system.c t->sec = Scm_GetInteger(val); val 814 src/system.c static void time_nsec_set(ScmTime *t, ScmObj val) val 817 src/system.c if (!SCM_REALP(val)) { val 818 src/system.c Scm_Error("real number required, but got %S", val); val 820 src/system.c if ((l = Scm_GetInteger(val)) >= 1000000000) { val 845 src/system.c double val = (double)t; val 846 src/system.c return Scm_MakeFlonum(val); val 850 src/system.c time_t Scm_GetSysTime(ScmObj val) val 852 src/system.c if (SCM_TIMEP(val)) { val 854 src/system.c return (time_t)SCM_TIME(val)->sec; val 856 src/system.c return (time_t)((double)SCM_TIME(val)->sec + val 857 src/system.c (double)SCM_TIME(val)->nsec/1.0e9); val 859 src/system.c } else if (SCM_NUMBERP(val)) { val 861 src/system.c return (time_t)Scm_GetUInteger(val); val 863 src/system.c return (time_t)Scm_GetDouble(val); val 866 src/system.c Scm_Error("bad time value: either a <time> object or a real number is required, but got %S", val); val 947 src/system.c static void SCM_CPP_CAT(name, _set)(ScmSysTm *tm, ScmObj val) { \ val 948 src/system.c if (!SCM_EXACTP(val)) \ val 949 src/system.c Scm_Error("exact integer required, but got %S", val); \ val 950 src/system.c tm->tm.name = Scm_GetInteger(val); \ val 1330 src/system.c int val = SCM_INT_VALUE(timeout); val 1331 src/system.c if (val < 0) goto badtv; val 1332 src/system.c tm->tv_sec = val / 1000000; val 1333 src/system.c tm->tv_usec = val % 1000000; val 1344 src/system.c long val = Scm_GetInteger(timeout); val 1345 src/system.c if (val < 0) goto badtv; val 1346 src/system.c tm->tv_sec = val / 1000000; val 1347 src/system.c tm->tv_usec = val % 1000000; val 463 src/test-arith.c int test_scm_c_scm(const char *msg, ScmObj expect, ScmObj val) val 466 src/test-arith.c if (Scm_EqualP(expect, val)) { val 469 src/test-arith.c Scm_Printf(SCM_CUROUT, "ERROR: got %S\n", val); val 474 src/test-arith.c int test_true(const char *msg, int val) val 477 src/test-arith.c if (val) { val 480 src/test-arith.c Scm_Printf(SCM_CUROUT, "ERROR: got %d\n", val); val 708 src/vm.c #define SWITCH(val) goto *dispatch_table[val]; val 718 src/vm.c #define SWITCH(val) switch (val) val 2235 src/vm.c ScmObj val = ENV_DATA(ENV, 0); val 2236 src/vm.c if (SCM_INTP(val)) { val 2237 src/vm.c imm += SCM_INT_VALUE(val); val 2246 src/vm.c VAL0 = Scm_Add(SCM_MAKE_INT(imm), val, SCM_NIL); val 2253 src/vm.c ScmObj val = ENV_DATA(ENV, 1); val 2254 src/vm.c if (SCM_INTP(val)) { val 2255 src/vm.c imm += SCM_INT_VALUE(val); val 2264 src/vm.c VAL0 = Scm_Add(SCM_MAKE_INT(imm), val, SCM_NIL); val 2271 src/vm.c ScmObj val = ENV_DATA(ENV, 2); val 2272 src/vm.c if (SCM_INTP(val)) { val 2273 src/vm.c imm += SCM_INT_VALUE(val); val 2282 src/vm.c VAL0 = Scm_Add(SCM_MAKE_INT(imm), val, SCM_NIL); val 2289 src/vm.c ScmObj val = ENV_DATA(ENV, 3); val 2290 src/vm.c if (SCM_INTP(val)) { val 2291 src/vm.c imm += SCM_INT_VALUE(val); val 2300 src/vm.c VAL0 = Scm_Add(SCM_MAKE_INT(imm), val, SCM_NIL); val 2307 src/vm.c ScmObj val = ENV_DATA(ENV, 4); val 2308 src/vm.c if (SCM_INTP(val)) { val 2309 src/vm.c imm += SCM_INT_VALUE(val); val 2318 src/vm.c VAL0 = Scm_Add(SCM_MAKE_INT(imm), val, SCM_NIL); val 991 src/write.c ScmObj val; val 1016 src/write.c val = SCM_CAR(args); val 1018 src/write.c SCM_ASSERT(SCM_EXACTP(val)); val 1022 src/write.c Scm_GetInteger(val)); val 1029 src/write.c val = SCM_CAR(args); val 1031 src/write.c SCM_ASSERT(SCM_EXACTP(val)); val 1035 src/write.c Scm_GetUInteger(val)); val 1042 src/write.c val = SCM_CAR(args); val 1044 src/write.c SCM_ASSERT(SCM_FLONUMP(val)); val 1048 src/write.c Scm_GetDouble(val)); val 1055 src/write.c val = SCM_CAR(args); val 1057 src/write.c SCM_ASSERT(SCM_STRINGP(val)); val 1058 src/write.c Scm_PutsUnsafe(SCM_STRING(val), out); val 1063 src/write.c for (len = SCM_STRING_BODY_LENGTH(SCM_STRING_BODY(val)); val 1078 src/write.c val = SCM_CAR(args); val 1080 src/write.c SCM_ASSERT(SCM_EXACTP(val)); val 1084 src/write.c (void*)Scm_GetUInteger(val)); val 1093 src/write.c val = SCM_CAR(args); val 1101 src/write.c int n = Scm_WriteCircular(val, SCM_OBJ(out), mode, width); val 1109 src/write.c format_write(val, out, &wctx, sharedp); val 1111 src/write.c int n = Scm_WriteLimited(val, SCM_OBJ(out), mode, width); val 1119 src/write.c format_write(val, out, &wctx, sharedp); val 1126 src/write.c val = SCM_CAR(args); val 1128 src/write.c SCM_ASSERT(SCM_EXACTP(val)); val 1129 src/write.c Scm_PutcUnsafe(Scm_GetInteger(val), out); val 1178 src/write.c signed int val = va_arg(ap, signed int); val 1179 src/write.c SCM_APPEND1(h, t, Scm_MakeInteger(val)); val 1184 src/write.c unsigned long val = va_arg(ap, unsigned long); val 1185 src/write.c SCM_APPEND1(h, t, Scm_MakeIntegerU(val)); val 1190 src/write.c double val = va_arg(ap, double); val 1191 src/write.c SCM_APPEND1(h, t, Scm_MakeFlonum(val)); val 1196 src/write.c char *val = va_arg(ap, char *); val 1198 src/write.c if (val != NULL) SCM_APPEND1(h, t, SCM_MAKE_STR(val)); val 1208 src/write.c void *val = va_arg(ap, void *); val 1209 src/write.c SCM_APPEND1(h, t, Scm_MakeIntegerU((unsigned long)val));