mirror of
https://github.com/reactos/reactos.git
synced 2024-09-20 17:51:53 +00:00
527f2f9057
* Create a branch for some evul shell experiments. svn path=/branches/shell-experiments/; revision=61927
100 lines
2.2 KiB
C
100 lines
2.2 KiB
C
#include <precomp.h>
|
|
|
|
#define I10_OUTPUT_MAX_PREC 21
|
|
/* Internal structure used by $I10_OUTPUT */
|
|
struct _I10_OUTPUT_DATA {
|
|
short pos;
|
|
char sign;
|
|
BYTE len;
|
|
char str[I10_OUTPUT_MAX_PREC+1]; /* add space for '\0' */
|
|
};
|
|
|
|
/*********************************************************************
|
|
* $I10_OUTPUT (MSVCRT.@)
|
|
* ld - long double to be printed to data
|
|
* prec - precision of part, we're interested in
|
|
* flag - 0 for first prec digits, 1 for fractional part
|
|
* data - data to be populated
|
|
*
|
|
* return value
|
|
* 0 if given double is NaN or INF
|
|
* 1 otherwise
|
|
*
|
|
* FIXME
|
|
* Native sets last byte of data->str to '0' or '9', I don't know what
|
|
* it means. Current implementation sets it always to '0'.
|
|
*/
|
|
int CDECL MSVCRT_I10_OUTPUT(long double ld, int prec, int flag, struct _I10_OUTPUT_DATA *data)
|
|
{
|
|
static const char inf_str[] = "1#INF";
|
|
static const char nan_str[] = "1#QNAN";
|
|
|
|
double d = ld;
|
|
char format[8];
|
|
char buf[I10_OUTPUT_MAX_PREC+9]; /* 9 = strlen("0.e+0000") + '\0' */
|
|
char *p;
|
|
|
|
TRACE("(%lf %d %x %p)\n", d, prec, flag, data);
|
|
|
|
if(d<0) {
|
|
data->sign = '-';
|
|
d = -d;
|
|
} else
|
|
data->sign = ' ';
|
|
|
|
if(!_finite(d)) {
|
|
data->pos = 1;
|
|
data->len = 5;
|
|
memcpy(data->str, inf_str, sizeof(inf_str));
|
|
|
|
return 0;
|
|
}
|
|
|
|
if(_isnan(d)) {
|
|
data->pos = 1;
|
|
data->len = 6;
|
|
memcpy(data->str, nan_str, sizeof(nan_str));
|
|
|
|
return 0;
|
|
}
|
|
|
|
if(flag&1) {
|
|
int exp = (int)(1+floor(log10(d)));
|
|
|
|
prec += exp;
|
|
if(exp < 0)
|
|
prec--;
|
|
}
|
|
prec--;
|
|
|
|
if(prec+1 > I10_OUTPUT_MAX_PREC)
|
|
prec = I10_OUTPUT_MAX_PREC-1;
|
|
else if(prec < 0) {
|
|
d = 0.0;
|
|
prec = 0;
|
|
}
|
|
|
|
sprintf(format, "%%.%dle", prec);
|
|
sprintf(buf, format, d);
|
|
|
|
buf[1] = buf[0];
|
|
data->pos = atoi(buf+prec+3);
|
|
if(buf[1] != '0')
|
|
data->pos++;
|
|
|
|
for(p = buf+prec+1; p>buf+1 && *p=='0'; p--);
|
|
data->len = (BYTE)(p - buf);
|
|
|
|
memcpy(data->str, buf+1, data->len);
|
|
data->str[data->len] = '\0';
|
|
|
|
if(buf[1]!='0' && prec-data->len+1>0)
|
|
memcpy(data->str+data->len+1, buf+data->len+1, prec-data->len+1);
|
|
|
|
return 1;
|
|
}
|
|
#undef I10_OUTPUT_MAX_PREC
|
|
|
|
|
|
|