mirror of
https://github.com/reactos/reactos.git
synced 2024-09-17 08:09:26 +00:00
527f2f9057
* Create a branch for some evul shell experiments. svn path=/branches/shell-experiments/; revision=61927
33 lines
725 B
C
33 lines
725 B
C
/* Copyright (C) 1998 DJ Delorie, see COPYING.DJ for details */
|
|
#include <precomp.h>
|
|
|
|
/*
|
|
* @implemented
|
|
*/
|
|
char *
|
|
_gcvt (double value, int ndigits, char *buf)
|
|
{
|
|
char *p = buf;
|
|
|
|
sprintf (buf, "%-#.*g", ndigits, value);
|
|
|
|
/* It seems they expect us to return .XXXX instead of 0.XXXX */
|
|
if (*p == '-')
|
|
p++;
|
|
if (*p == '0' && p[1] == '.')
|
|
memmove (p, p + 1, strlen (p + 1) + 1);
|
|
|
|
/* They want Xe-YY, not X.e-YY, and XXXX instead of XXXX. */
|
|
p = strchr (buf, 'e');
|
|
if (!p)
|
|
{
|
|
p = buf + strlen (buf);
|
|
/* They don't want trailing zeroes. */
|
|
while (p[-1] == '0' && p > buf + 2)
|
|
*--p = '\0';
|
|
}
|
|
if (p > buf && p[-1] == '.')
|
|
memmove (p - 1, p, strlen (p) + 1);
|
|
return buf;
|
|
}
|