sfstrtod.c revision da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin/***********************************************************************
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin* This software is part of the ast package *
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin* Copyright (c) 1985-2007 AT&T Knowledge Ventures *
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin* and is licensed under the *
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin* Common Public License, Version 1.0 *
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin* by AT&T Knowledge Ventures *
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin* A copy of the License is available at *
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin* (with md5 checksum 059e8cd6165cb4c31e351f2b69388fd9) *
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin* Information and Software Systems Research *
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin* AT&T Research *
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin* Florham Park NJ *
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin* Glenn Fowler <gsf@research.att.com> *
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin* David Korn <dgk@research.att.com> *
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin* Phong Vo <kpv@research.att.com> *
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin***********************************************************************/
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin/* Convert a Sfdouble_t value represented in an ASCII format into
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin** the internal Sfdouble_t representation.
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin** Written by Kiem-Phong Vo.
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin#define BATCH (2*sizeof(int)) /* accumulate this many digits at a time */
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin case 0: return 1.;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin reg int n, c, m;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin /* skip initial blanks */
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin /* get the sign */
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin { /* accumulate a handful of the digits */
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin for(m = BATCH, n = 0; m > 0; --m, ++s)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin { /* get and process a char */
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else break;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin /* number of digits accumulated */
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin { /* doing the integer part */
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin { /* doing the fractional part */
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else if(n)
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin { /* doing the exponent part */
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin { /* detected a non-digit */
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin { /* start the fractional part or no match */
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin else break;
da2e3ebdc1edfbc5028edf1354e7dd2fa69a7968chin *retp = (char*)s;