306 |
} \ |
} \ |
307 |
} while (0) |
} while (0) |
308 |
|
|
309 |
/* [low,high) */ |
/* [low, high) */ |
310 |
#define SCM_VALIDATE_INUM_RANGE(pos,k,low,high) \ |
#define SCM_VALIDATE_INUM_RANGE(pos, k, low, high) \ |
311 |
do { SCM_ASSERT(SCM_INUMP(k), k, pos, FUNC_NAME); \ |
do { SCM_ASSERT(SCM_INUMP(k), k, pos, FUNC_NAME); \ |
312 |
SCM_ASSERT_RANGE(pos,k, \ |
SCM_ASSERT_RANGE(pos, k, \ |
313 |
(SCM_INUM (k) >= low && \ |
(SCM_INUM (k) >= low && \ |
314 |
SCM_INUM (k) < high)); \ |
SCM_INUM (k) < high)); \ |
315 |
} while (0) |
} while (0) |
367 |
SCM_ASSERT (scm_valid_oport_value_p (port), port, pos, FUNC_NAME); \ |
SCM_ASSERT (scm_valid_oport_value_p (port), port, pos, FUNC_NAME); \ |
368 |
} while (0) |
} while (0) |
369 |
|
|
370 |
#define SCM_VALIDATE_PRINTSTATE(pos, a) SCM_MAKE_VALIDATE(pos,a,PRINT_STATE_P) |
#define SCM_VALIDATE_PRINTSTATE(pos, a) SCM_MAKE_VALIDATE(pos, a, PRINT_STATE_P) |
371 |
|
|
372 |
#define SCM_VALIDATE_SMOB(pos, obj, type) \ |
#define SCM_VALIDATE_SMOB(pos, obj, type) \ |
373 |
do { \ |
do { \ |
421 |
#define SCM_VALIDATE_OPINPORT(pos, port) \ |
#define SCM_VALIDATE_OPINPORT(pos, port) \ |
422 |
SCM_MAKE_VALIDATE (pos, port, OPINPORTP) |
SCM_MAKE_VALIDATE (pos, port, OPINPORTP) |
423 |
|
|
424 |
#define SCM_VALIDATE_OPENPORT(pos,port) \ |
#define SCM_VALIDATE_OPENPORT(pos, port) \ |
425 |
do { \ |
do { \ |
426 |
SCM_ASSERT (SCM_PORTP (port) && SCM_OPENP (port), \ |
SCM_ASSERT (SCM_PORTP (port) && SCM_OPENP (port), \ |
427 |
port, pos, FUNC_NAME); \ |
port, pos, FUNC_NAME); \ |
445 |
|
|
446 |
#define SCM_VALIDATE_RSTATE(pos, v) SCM_MAKE_VALIDATE (pos, v, RSTATEP) |
#define SCM_VALIDATE_RSTATE(pos, v) SCM_MAKE_VALIDATE (pos, v, RSTATEP) |
447 |
|
|
448 |
#define SCM_VALIDATE_ARRAY(pos,v) \ |
#define SCM_VALIDATE_ARRAY(pos, v) \ |
449 |
do { \ |
do { \ |
450 |
SCM_ASSERT (!SCM_IMP (v) \ |
SCM_ASSERT (!SCM_IMP (v) \ |
451 |
&& !SCM_FALSEP (scm_array_p (v, SCM_UNDEFINED)), \ |
&& !SCM_FALSEP (scm_array_p (v, SCM_UNDEFINED)), \ |