lenp 2226 src/number.c static ScmObj read_uint(const char **strp, int *lenp, lenp 2232 src/number.c int len = *lenp; lenp 2294 src/number.c *lenp = len+1; lenp 2417 src/number.c static ScmObj read_real(const char **strp, int *lenp, lenp 2429 src/number.c (*strp)++; (*lenp)--; lenp 2431 src/number.c if ((*lenp) <= 0) return SCM_FALSE; lenp 2435 src/number.c intpart = read_uint(strp, lenp, ctx, SCM_FALSE); lenp 2436 src/number.c if ((*lenp) <= 0) { lenp 2449 src/number.c if ((*lenp) <= 1) return SCM_FALSE; lenp 2450 src/number.c (*strp)++; (*lenp)--; lenp 2451 src/number.c lensave = *lenp; lenp 2452 src/number.c denom = read_uint(strp, lenp, ctx, SCM_FALSE); lenp 2455 src/number.c if (lensave > *lenp) { lenp 2491 src/number.c (*strp)++; (*lenp)--; lenp 2492 src/number.c lensave = *lenp; lenp 2493 src/number.c fraction = read_uint(strp, lenp, ctx, intpart); lenp 2494 src/number.c fracdigs = lensave - *lenp; lenp 2504 src/number.c if (*lenp > 0 && strchr("eEsSfFdDlL", (int)**strp)) { lenp 2506 src/number.c if (--(*lenp) <= 0) return SCM_FALSE; lenp 2512 src/number.c if (--(*lenp) <= 0) return SCM_FALSE; lenp 2514 src/number.c while (*lenp > 0) { lenp 2517 src/number.c (*strp)++, (*lenp)--;