Mercurial > hg > octave-lojdl > gnulib-hg
changeset 3687:855a23bea86f
(__xstrtol): If there is no number but there
is a valid suffix, assume 1. "MB" now means decimal, "MiB" binary.
Accept 'K' as well as 'k'.
author | Jim Meyering <jim@meyering.net> |
---|---|
date | Wed, 19 Dec 2001 10:41:27 +0000 |
parents | a6223997a8b3 |
children | 0cd372c853e5 |
files | lib/xstrtol.c |
diffstat | 1 files changed, 26 insertions(+), 12 deletions(-) [+] |
line wrap: on
line diff
--- a/lib/xstrtol.c +++ b/lib/xstrtol.c @@ -141,8 +141,16 @@ tmp = __strtol (s, p, strtol_base); if (errno != 0) return LONGINT_OVERFLOW; + if (*p == s) - return LONGINT_INVALID; + { + /* If there is no number but there is a valid suffix, assume the + number is 1. The string is invalid otherwise. */ + if (valid_suffixes && **p && strchr (valid_suffixes, **p)) + tmp = 1; + else + return LONGINT_INVALID; + } /* Let valid_suffixes == NULL mean `allow any suffix'. */ /* FIXME: update all callers except the ones that allow suffixes @@ -169,15 +177,20 @@ { /* The ``valid suffix'' '0' is a special flag meaning that an optional second suffix is allowed, which can change - the base, e.g. "100MD" for 100 megabytes decimal. */ + the base. A suffix "B" (e.g. "100MB") stands for a power + of 1000, whereas a suffix "iB" (e.g. "100MiB") stands for + a power of 1024. If no suffix (e.g. "100M"), assume + power-of-1024. */ switch (p[0][1]) { - case 'B': - suffixes++; + case 'i': + if (p[0][2] == 'B') + suffixes += 2; break; - case 'D': + case 'B': + case 'D': /* 'D' is obsolescent */ base = 1000; suffixes++; break; @@ -198,29 +211,30 @@ overflow = 0; break; - case 'E': /* Exa */ + case 'E': /* exa or exbi */ overflow = bkm_scale_by_power (&tmp, base, 6); break; - case 'G': /* Giga */ + case 'G': /* giga or gibi */ case 'g': /* 'g' is undocumented; for compatibility only */ overflow = bkm_scale_by_power (&tmp, base, 3); break; case 'k': /* kilo */ + case 'K': /* kibi */ overflow = bkm_scale_by_power (&tmp, base, 1); break; - case 'M': /* Mega */ + case 'M': /* mega or mebi */ case 'm': /* 'm' is undocumented; for compatibility only */ overflow = bkm_scale_by_power (&tmp, base, 2); break; - case 'P': /* Peta */ + case 'P': /* peta or pebi */ overflow = bkm_scale_by_power (&tmp, base, 5); break; - case 'T': /* Tera */ + case 'T': /* tera or tebi */ case 't': /* 't' is undocumented; for compatibility only */ overflow = bkm_scale_by_power (&tmp, base, 4); break; @@ -229,11 +243,11 @@ overflow = bkm_scale (&tmp, 2); break; - case 'Y': /* Yotta */ + case 'Y': /* yotta or 2**80 */ overflow = bkm_scale_by_power (&tmp, base, 8); break; - case 'Z': /* Zetta */ + case 'Z': /* zetta or 2**70 */ overflow = bkm_scale_by_power (&tmp, base, 7); break;