mirror of
https://github.com/autc04/Retro68.git
synced 2024-11-28 05:51:04 +00:00
470 lines
9.1 KiB
C
470 lines
9.1 KiB
C
/*
|
|
FUNCTION
|
|
<<ecvtbuf>>, <<fcvtbuf>>---double or float to string
|
|
|
|
INDEX
|
|
ecvtbuf
|
|
INDEX
|
|
fcvtbuf
|
|
|
|
ANSI_SYNOPSIS
|
|
#include <stdio.h>
|
|
|
|
char *ecvtbuf(double <[val]>, int <[chars]>, int *<[decpt]>,
|
|
int *<[sgn]>, char *<[buf]>);
|
|
|
|
char *fcvtbuf(double <[val]>, int <[decimals]>, int *<[decpt]>,
|
|
int *<[sgn]>, char *<[buf]>);
|
|
|
|
TRAD_SYNOPSIS
|
|
#include <stdio.h>
|
|
|
|
char *ecvtbuf(<[val]>, <[chars]>, <[decpt]>, <[sgn]>, <[buf]>);
|
|
double <[val]>;
|
|
int <[chars]>;
|
|
int *<[decpt]>;
|
|
int *<[sgn]>;
|
|
char *<[buf]>;
|
|
|
|
char *fcvtbuf(<[val]>, <[decimals]>, <[decpt]>, <[sgn]>, <[buf]>);
|
|
double <[val]>;
|
|
int <[decimals]>;
|
|
int *<[decpt]>;
|
|
int *<[sgn]>;
|
|
char *<[buf]>;
|
|
|
|
DESCRIPTION
|
|
<<ecvtbuf>> and <<fcvtbuf>> produce (null-terminated) strings
|
|
of digits representating the <<double>> number <[val]>.
|
|
|
|
The only difference between <<ecvtbuf>> and <<fcvtbuf>> is the
|
|
interpretation of the second argument (<[chars]> or
|
|
<[decimals]>). For <<ecvtbuf>>, the second argument <[chars]>
|
|
specifies the total number of characters to write (which is
|
|
also the number of significant digits in the formatted string,
|
|
since these two functions write only digits). For <<fcvtbuf>>,
|
|
the second argument <[decimals]> specifies the number of
|
|
characters to write after the decimal point; all digits for
|
|
the integer part of <[val]> are always included.
|
|
|
|
Since <<ecvtbuf>> and <<fcvtbuf>> write only digits in the
|
|
output string, they record the location of the decimal point
|
|
in <<*<[decpt]>>>, and the sign of the number in <<*<[sgn]>>>.
|
|
After formatting a number, <<*<[decpt]>>> contains the number
|
|
of digits to the left of the decimal point. <<*<[sgn]>>>
|
|
contains <<0>> if the number is positive, and <<1>> if it is
|
|
negative. For both functions, you supply a pointer <[buf]> to
|
|
an area of memory to hold the converted string.
|
|
|
|
RETURNS
|
|
Both functions return a pointer to <[buf]>, the string
|
|
containing a character representation of <[val]>.
|
|
|
|
PORTABILITY
|
|
Neither function is ANSI C.
|
|
|
|
Supporting OS subroutines required: <<close>>, <<fstat>>, <<isatty>>,
|
|
<<lseek>>, <<read>>, <<sbrk>>, <<write>>.
|
|
*/
|
|
|
|
#include <_ansi.h>
|
|
#include <stdlib.h>
|
|
#include <string.h>
|
|
#include <reent.h>
|
|
#include "mprec.h"
|
|
#include "local.h"
|
|
|
|
static void
|
|
_DEFUN (print_f, (ptr, buf, invalue, ndigit, type, dot, mode),
|
|
struct _reent *ptr _AND
|
|
char *buf _AND
|
|
double invalue _AND
|
|
int ndigit _AND
|
|
char type _AND
|
|
int dot _AND
|
|
int mode)
|
|
{
|
|
int decpt;
|
|
int sign;
|
|
char *p, *start, *end;
|
|
|
|
start = p = _dtoa_r (ptr, invalue, mode, ndigit, &decpt, &sign, &end);
|
|
|
|
if (decpt == 9999)
|
|
{
|
|
strcpy (buf, p);
|
|
return;
|
|
}
|
|
while (*p && decpt > 0)
|
|
{
|
|
*buf++ = *p++;
|
|
decpt--;
|
|
}
|
|
/* Even if not in buffer */
|
|
while (decpt > 0)
|
|
{
|
|
*buf++ = '0';
|
|
decpt--;
|
|
}
|
|
|
|
if (dot || *p)
|
|
{
|
|
if (p == start)
|
|
*buf++ = '0';
|
|
*buf++ = '.';
|
|
while (decpt < 0 && ndigit > 0)
|
|
{
|
|
*buf++ = '0';
|
|
decpt++;
|
|
ndigit--;
|
|
}
|
|
|
|
/* Print rest of stuff */
|
|
while (*p && ndigit > 0)
|
|
{
|
|
*buf++ = *p++;
|
|
ndigit--;
|
|
}
|
|
/* And trailing zeros */
|
|
while (ndigit > 0)
|
|
{
|
|
*buf++ = '0';
|
|
ndigit--;
|
|
}
|
|
}
|
|
*buf++ = 0;
|
|
}
|
|
|
|
/* Print number in e format with width chars after.
|
|
|
|
TYPE is one of 'e' or 'E'. It may also be one of 'g' or 'G' indicating
|
|
that _gcvt is calling us and we should remove trailing zeroes.
|
|
|
|
WIDTH is the number of digits of precision after the decimal point. */
|
|
|
|
static void
|
|
_DEFUN (print_e, (ptr, buf, invalue, width, type, dot),
|
|
struct _reent *ptr _AND
|
|
char *buf _AND
|
|
double invalue _AND
|
|
int width _AND
|
|
char type _AND
|
|
int dot)
|
|
{
|
|
int sign;
|
|
char *end;
|
|
char *p;
|
|
int decpt;
|
|
int top;
|
|
int ndigit = width;
|
|
|
|
p = _dtoa_r (ptr, invalue, 2, width + 1, &decpt, &sign, &end);
|
|
|
|
if (decpt == 9999)
|
|
{
|
|
strcpy (buf, p);
|
|
return;
|
|
}
|
|
|
|
*buf++ = *p++;
|
|
if (dot || ndigit != 0)
|
|
*buf++ = '.';
|
|
|
|
while (*p && ndigit > 0)
|
|
{
|
|
*buf++ = *p++;
|
|
ndigit--;
|
|
}
|
|
|
|
/* Add trailing zeroes to fill out to ndigits unless this is 'g' format.
|
|
Also, convert g/G to e/E. */
|
|
|
|
if (type == 'g')
|
|
type = 'e';
|
|
else if (type == 'G')
|
|
type = 'E';
|
|
else
|
|
{
|
|
while (ndigit > 0)
|
|
{
|
|
*buf++ = '0';
|
|
ndigit--;
|
|
}
|
|
}
|
|
|
|
/* Add the exponent. */
|
|
|
|
*buf++ = type;
|
|
decpt--;
|
|
if (decpt < 0)
|
|
{
|
|
*buf++ = '-';
|
|
decpt = -decpt;
|
|
}
|
|
else
|
|
{
|
|
*buf++ = '+';
|
|
}
|
|
if (decpt > 99)
|
|
{
|
|
int top = decpt / 100;
|
|
*buf++ = top + '0';
|
|
decpt -= top * 100;
|
|
}
|
|
top = decpt / 10;
|
|
*buf++ = top + '0';
|
|
decpt -= top * 10;
|
|
*buf++ = decpt + '0';
|
|
|
|
*buf++ = 0;
|
|
}
|
|
|
|
#ifndef _REENT_ONLY
|
|
|
|
/* Undocumented behaviour: when given NULL as a buffer, return a
|
|
pointer to static space in the rent structure. This is only to
|
|
support ecvt and fcvt, which aren't ANSI anyway. */
|
|
|
|
char *
|
|
_DEFUN (fcvtbuf, (invalue, ndigit, decpt, sign, fcvt_buf),
|
|
double invalue _AND
|
|
int ndigit _AND
|
|
int *decpt _AND
|
|
int *sign _AND
|
|
char *fcvt_buf)
|
|
{
|
|
char *save;
|
|
char *p;
|
|
char *end;
|
|
int done = 0;
|
|
|
|
if (fcvt_buf == NULL)
|
|
{
|
|
if (_REENT->_cvtlen <= ndigit + 35)
|
|
{
|
|
if ((fcvt_buf = (char *) _realloc_r (_REENT, _REENT->_cvtbuf,
|
|
ndigit + 36)) == NULL)
|
|
return NULL;
|
|
_REENT->_cvtlen = ndigit + 36;
|
|
_REENT->_cvtbuf = fcvt_buf;
|
|
}
|
|
|
|
fcvt_buf = _REENT->_cvtbuf ;
|
|
}
|
|
|
|
save = fcvt_buf;
|
|
|
|
if (invalue < 1.0 && invalue > -1.0)
|
|
{
|
|
p = _dtoa_r (_REENT, invalue, 2, ndigit, decpt, sign, &end);
|
|
}
|
|
else
|
|
{
|
|
p = _dtoa_r (_REENT, invalue, 3, ndigit, decpt, sign, &end);
|
|
}
|
|
|
|
/* Now copy */
|
|
|
|
done = -*decpt;
|
|
while (p < end)
|
|
{
|
|
*fcvt_buf++ = *p++;
|
|
done++;
|
|
}
|
|
/* And unsuppress the trailing zeroes */
|
|
while (done < ndigit)
|
|
{
|
|
*fcvt_buf++ = '0';
|
|
done++;
|
|
}
|
|
*fcvt_buf++ = 0;
|
|
return save;
|
|
}
|
|
|
|
char *
|
|
_DEFUN (ecvtbuf, (invalue, ndigit, decpt, sign, fcvt_buf),
|
|
double invalue _AND
|
|
int ndigit _AND
|
|
int *decpt _AND
|
|
int *sign _AND
|
|
char *fcvt_buf)
|
|
{
|
|
char *save;
|
|
char *p;
|
|
char *end;
|
|
int done = 0;
|
|
|
|
if (fcvt_buf == NULL)
|
|
{
|
|
if (_REENT->_cvtlen <= ndigit)
|
|
{
|
|
if ((fcvt_buf = (char *) _realloc_r (_REENT, _REENT->_cvtbuf,
|
|
ndigit + 1)) == NULL)
|
|
return NULL;
|
|
_REENT->_cvtlen = ndigit + 1;
|
|
_REENT->_cvtbuf = fcvt_buf;
|
|
}
|
|
|
|
fcvt_buf = _REENT->_cvtbuf ;
|
|
}
|
|
|
|
save = fcvt_buf;
|
|
|
|
p = _dtoa_r (_REENT, invalue, 2, ndigit, decpt, sign, &end);
|
|
|
|
/* Now copy */
|
|
|
|
while (p < end)
|
|
{
|
|
*fcvt_buf++ = *p++;
|
|
done++;
|
|
}
|
|
/* And unsuppress the trailing zeroes */
|
|
while (done < ndigit)
|
|
{
|
|
*fcvt_buf++ = '0';
|
|
done++;
|
|
}
|
|
*fcvt_buf++ = 0;
|
|
return save;
|
|
}
|
|
|
|
#endif
|
|
|
|
char *
|
|
_DEFUN (_gcvt, (ptr, invalue, ndigit, buf, type, dot),
|
|
struct _reent *ptr _AND
|
|
double invalue _AND
|
|
int ndigit _AND
|
|
char *buf _AND
|
|
char type _AND
|
|
int dot)
|
|
{
|
|
char *save = buf;
|
|
|
|
if (invalue < 0)
|
|
{
|
|
invalue = -invalue;
|
|
}
|
|
|
|
if (invalue == 0)
|
|
{
|
|
*buf++ = '0';
|
|
*buf = '\0';
|
|
}
|
|
else
|
|
/* Which one to print ?
|
|
ANSI says that anything with more that 4 zeros after the . or more
|
|
than precision digits before is printed in e with the qualification
|
|
that trailing zeroes are removed from the fraction portion. */
|
|
|
|
if (0.0001 >= invalue || invalue >= _mprec_log10 (ndigit))
|
|
{
|
|
/* We subtract 1 from ndigit because in the 'e' format the precision is
|
|
the number of digits after the . but in 'g' format it is the number
|
|
of significant digits.
|
|
|
|
We defer changing type to e/E so that print_e() can know it's us
|
|
calling and thus should remove trailing zeroes. */
|
|
|
|
print_e (ptr, buf, invalue, ndigit - 1, type, dot);
|
|
}
|
|
else
|
|
{
|
|
int decpt;
|
|
int sign;
|
|
char *end;
|
|
char *p;
|
|
|
|
if (invalue < 1.0)
|
|
{
|
|
/* what we want is ndigits after the point */
|
|
p = _dtoa_r (ptr, invalue, 3, ndigit, &decpt, &sign, &end);
|
|
}
|
|
else
|
|
{
|
|
p = _dtoa_r (ptr, invalue, 2, ndigit, &decpt, &sign, &end);
|
|
}
|
|
|
|
if (decpt == 9999)
|
|
{
|
|
strcpy (buf, p);
|
|
return save;
|
|
}
|
|
while (*p && decpt > 0)
|
|
{
|
|
*buf++ = *p++;
|
|
decpt--;
|
|
ndigit--;
|
|
}
|
|
/* Even if not in buffer */
|
|
while (decpt > 0 && ndigit > 0)
|
|
{
|
|
*buf++ = '0';
|
|
decpt--;
|
|
ndigit--;
|
|
}
|
|
|
|
if (dot || *p)
|
|
{
|
|
if (buf == save)
|
|
*buf++ = '0';
|
|
*buf++ = '.';
|
|
while (decpt < 0 && ndigit > 0)
|
|
{
|
|
*buf++ = '0';
|
|
decpt++;
|
|
ndigit--;
|
|
}
|
|
|
|
/* Print rest of stuff */
|
|
while (*p && ndigit > 0)
|
|
{
|
|
*buf++ = *p++;
|
|
ndigit--;
|
|
}
|
|
/* And trailing zeros */
|
|
if (dot)
|
|
{
|
|
while (ndigit > 0)
|
|
{
|
|
*buf++ = '0';
|
|
ndigit--;
|
|
}
|
|
}
|
|
}
|
|
*buf++ = 0;
|
|
}
|
|
|
|
return save;
|
|
}
|
|
|
|
char *
|
|
_DEFUN (_dcvt, (ptr, buffer, invalue, precision, width, type, dot),
|
|
struct _reent *ptr _AND
|
|
char *buffer _AND
|
|
double invalue _AND
|
|
int precision _AND
|
|
int width _AND
|
|
char type _AND
|
|
int dot)
|
|
{
|
|
switch (type)
|
|
{
|
|
case 'f':
|
|
case 'F':
|
|
print_f (ptr, buffer, invalue, precision, type, precision == 0 ? dot : 1, 3);
|
|
break;
|
|
case 'g':
|
|
case 'G':
|
|
if (precision == 0)
|
|
precision = 1;
|
|
_gcvt (ptr, invalue, precision, buffer, type, dot);
|
|
break;
|
|
case 'e':
|
|
case 'E':
|
|
print_e (ptr, buffer, invalue, precision, type, dot);
|
|
}
|
|
return buffer;
|
|
}
|