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)--;