strp 2226 src/number.c static ScmObj read_uint(const char **strp, int *lenp, strp 2230 src/number.c const char *str = *strp; strp 2293 src/number.c *strp = str-1; strp 2417 src/number.c static ScmObj read_real(const char **strp, int *lenp, strp 2425 src/number.c switch (**strp) { strp 2429 src/number.c (*strp)++; (*lenp)--; strp 2434 src/number.c if (**strp != '.') { strp 2435 src/number.c intpart = read_uint(strp, lenp, ctx, SCM_FALSE); strp 2444 src/number.c if (**strp == '/') { strp 2450 src/number.c (*strp)++; (*lenp)--; strp 2452 src/number.c denom = read_uint(strp, lenp, ctx, SCM_FALSE); strp 2485 src/number.c if (**strp == '.') { strp 2491 src/number.c (*strp)++; (*lenp)--; strp 2493 src/number.c fraction = read_uint(strp, lenp, ctx, intpart); strp 2504 src/number.c if (*lenp > 0 && strchr("eEsSfFdDlL", (int)**strp)) { strp 2505 src/number.c (*strp)++; strp 2507 src/number.c switch (**strp) { strp 2511 src/number.c (*strp)++; strp 2515 src/number.c int c = **strp; strp 2517 src/number.c (*strp)++, (*lenp)--;