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