gforth/engine/ecvt.c - diff

Return to ecvt.c CVS log

Up to [gforth] / gforth / engine

version 1.6, 2000/09/23 15:06:07	version 1.9, 2007/12/31 17:34:59
Line 1	Line 1
/* cheap ecvt replacement	/* cheap ecvt replacement

Copyright (C) 1998,2000 Free Software Foundation, Inc.	Copyright (C) 1998,2000,2007 Free Software Foundation, Inc.

This file is part of Gforth.	This file is part of Gforth.

Line 16	Line 16

You should have received a copy of the GNU General Public License	You should have received a copy of the GNU General Public License
along with this program; if not, write to the Free Software	along with this program; if not, write to the Free Software
Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.	Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111, USA.
*/	*/

#include <stdio.h>	#include <stdio.h>
Line 33 char* ecvt(double x, int len, int* exp,	Line 33 char* ecvt(double x, int len, int* exp,
int i, j;	int i, j;
double z;	double z;

	if (isnan(x)) {
	*sign=0;
	*exp=0;
	return "nan";
	}
	if (isinf(x)) {
	sign=0; / this mimics the glibc ecvt */
	*exp=0;
	if (x<0)
	return "-inf";
	else
	return "inf";
	}

if(len > (MAXCONV-1)) len = MAXCONV-1;	if(len > (MAXCONV-1)) len = MAXCONV-1;

if(x<0)	if(x<0)