mirror of https://github.com/lianthony/NT4.0
You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
252 lines
6.8 KiB
252 lines
6.8 KiB
/***
|
|
*fcvt.c - convert floating point value to string
|
|
*
|
|
* Copyright (c) 1985-1993, Microsoft Corporation. All rights reserved.
|
|
*
|
|
*Purpose:
|
|
* Converts a floating point value to a string.
|
|
*
|
|
*Revision History:
|
|
* 09-09-83 RKW written
|
|
* 09-14-84 DFW fixed problems with buffer overflow and
|
|
* streamlined the code
|
|
* 11-09-87 BCM different interface under ifdef MTHREAD
|
|
* 11-19-87 WAJ fcvt now uses emulator data area for buffer
|
|
* 12-11-87 JCR Added "_LOAD_DS" to declaration
|
|
* 05-24-88 PHG Merged DLL and normal versions
|
|
* 10-04-88 JCR 386: Removed 'far' keyword
|
|
* 10-20-88 JCR Changed 'DOUBLE' to 'double' for 386
|
|
* 03-02-90 GJF Added #include <cruntime.h>. Removed some (now) useless
|
|
* preprocessor directives. Also, fixed copyright.
|
|
* 03-06-90 GJF Fixed calling type, removed some leftover 16-bit
|
|
* support.
|
|
* 03-23-90 GJF Made _fpcvt() _CALLTYPE4 and removed prototype for
|
|
* _fptostr() (now in struct.h).
|
|
* 08-01-90 SBM Renamed <struct.h> to <fltintrn.h>
|
|
* 09-27-90 GJF New-style function declarators.
|
|
* 01-21-91 GJF ANSI naming.
|
|
* 10-03-91 JCR Fixed mthread buffer allocation
|
|
* 02-16-93 GJF Changed for new _getptd().
|
|
*
|
|
*******************************************************************************/
|
|
|
|
#include <cruntime.h>
|
|
#include <fltintrn.h>
|
|
#include <cvt.h>
|
|
#include <os2dll.h>
|
|
#include <stdlib.h>
|
|
|
|
/*
|
|
* The static character array buf[CVTBUFSIZE] is used by the _fpcvt routine
|
|
* (the workhorse for _ecvt and _fcvt) for storage of its output. The routine
|
|
* gcvt expects the user to have set up their own storage. CVTBUFSIZE is set
|
|
* large enough to accomodate the largest double precision number plus 40
|
|
* decimal places (even though you only have 16 digits of accuracy in a
|
|
* double precision IEEE number, the user may ask for more to effect 0
|
|
* padding; but there has to be a limit somewhere).
|
|
*/
|
|
|
|
/*
|
|
* define a maximum size for the conversion buffer. It should be at least
|
|
* as long as the number of digits in the largest double precision value
|
|
* (?.?e308 in IEEE arithmetic). We will use the same size buffer as is
|
|
* used in the printf support routine (_output)
|
|
*/
|
|
|
|
#ifdef MTHREAD
|
|
char * _CRTAPI3 _fpcvt(STRFLT, int, int *, int *);
|
|
#else
|
|
static char * _CRTAPI3 _fpcvt(STRFLT, int, int *, int *);
|
|
static char buf[CVTBUFSIZE];
|
|
#endif
|
|
|
|
/***
|
|
*char *_fcvt(value, ndec, decpr, sign) - convert floating point to char string
|
|
*
|
|
*Purpose:
|
|
* _fcvt like _ecvt converts the value to a null terminated
|
|
* string of ASCII digits, and returns a pointer to the
|
|
* result. The routine prepares data for Fortran F-format
|
|
* output with the number of digits following the decimal
|
|
* point specified by ndec. The position of the decimal
|
|
* point relative to the beginning of the string is returned
|
|
* indirectly through decpt. The correct digit for Fortran
|
|
* F-format is rounded.
|
|
* NOTE - to avoid the possibility of generating floating
|
|
* point instructions in this code we fool the compiler
|
|
* about the type of the 'value' parameter using a struct.
|
|
* This is OK since all we do is pass it off as a
|
|
* parameter.
|
|
*
|
|
*Entry:
|
|
* double value - number to be converted
|
|
* int ndec - number of digits after decimal point
|
|
*
|
|
*Exit:
|
|
* returns pointer to the character string representation of value.
|
|
* also, the output is written into the static char array buf.
|
|
* int *decpt - pointer to int with pos. of dec. point
|
|
* int *sign - pointer to int with sign (0 = pos, non-0 = neg)
|
|
*
|
|
*Exceptions:
|
|
*
|
|
*******************************************************************************/
|
|
|
|
char * _CRTAPI1 _fcvt (
|
|
double value,
|
|
int ndec,
|
|
int *decpt,
|
|
int *sign
|
|
)
|
|
{
|
|
REG1 STRFLT pflt;
|
|
|
|
#ifdef MTHREAD
|
|
struct _strflt strfltstruct;
|
|
char resultstring[21];
|
|
|
|
/* ok to take address of stack struct here; fltout2 knows to use ss */
|
|
pflt = _fltout2( value, &strfltstruct, resultstring );
|
|
|
|
|
|
#else
|
|
pflt = _fltout( value );
|
|
#endif
|
|
|
|
return( _fpcvt( pflt, pflt->decpt + ndec, decpt, sign ) );
|
|
}
|
|
|
|
|
|
/***
|
|
*char *_ecvt( value, ndigit, decpt, sign ) - convert floating point to string
|
|
*
|
|
*Purpose:
|
|
* _ecvt converts value to a null terminated string of
|
|
* ASCII digits, and returns a pointer to the result.
|
|
* The position of the decimal point relative to the
|
|
* begining of the string is stored indirectly through
|
|
* decpt, where negative means to the left of the returned
|
|
* digits. If the sign of the result is negative, the
|
|
* word pointed to by sign is non zero, otherwise it is
|
|
* zero. The low order digit is rounded.
|
|
*
|
|
*Entry:
|
|
* double value - number to be converted
|
|
* int ndigit - number of digits after decimal point
|
|
*
|
|
*Exit:
|
|
* returns pointer to the character representation of value.
|
|
* also the output is written into the statuc char array buf.
|
|
* int *decpt - pointer to int with position of decimal point
|
|
* int *sign - pointer to int with sign in it (0 = pos, non-0 = neg)
|
|
*
|
|
*Exceptions:
|
|
*
|
|
*******************************************************************************/
|
|
|
|
char * _CRTAPI1 _ecvt (
|
|
double value,
|
|
int ndigit,
|
|
int *decpt,
|
|
int *sign
|
|
)
|
|
{
|
|
|
|
#ifdef MTHREAD
|
|
REG1 STRFLT pflt;
|
|
|
|
struct _strflt strfltstruct; /* temporary buffers */
|
|
char resultstring[21];
|
|
|
|
/* ok to take address of stack struct here; fltout2 knows to use ss */
|
|
pflt = _fltout2( value, &strfltstruct, resultstring );
|
|
|
|
return( _fpcvt( pflt, ndigit, decpt, sign ) );
|
|
|
|
#else
|
|
return( _fpcvt( _fltout(value), ndigit, decpt, sign ) );
|
|
#endif
|
|
}
|
|
|
|
|
|
/***
|
|
*char *_fpcvt() - gets final string and sets decpt and sign [STATIC]
|
|
*
|
|
*Purpose:
|
|
* This is a small common routine used by [ef]cvt. It calls fptostr
|
|
* to get the final string and sets the decpt and sign indicators.
|
|
*
|
|
*Entry:
|
|
*
|
|
*Exit:
|
|
*
|
|
*Exceptions:
|
|
*
|
|
*******************************************************************************/
|
|
|
|
#ifdef MTHREAD
|
|
char * _CRTAPI3 _fpcvt (
|
|
#else
|
|
static char * _CRTAPI3 _fpcvt (
|
|
#endif
|
|
REG2 STRFLT pflt,
|
|
REG3 int digits,
|
|
int *decpt,
|
|
int *sign
|
|
)
|
|
{
|
|
|
|
#ifdef MTHREAD
|
|
|
|
/* use a per-thread buffer */
|
|
|
|
char *buf;
|
|
|
|
#ifdef _CRUISER_
|
|
|
|
struct _tiddata * tdata;
|
|
|
|
tdata = _gettidtab(); /* get tid's data address */
|
|
if (tdata->_cvtbuf == NULL)
|
|
if ( (tdata->_cvtbuf = malloc(CVTBUFSIZE)) == NULL)
|
|
return(NULL);
|
|
buf = tdata->_cvtbuf;
|
|
|
|
#else /* ndef _CRUISER_ */
|
|
|
|
#ifdef _WIN32_
|
|
|
|
_ptiddata ptd;
|
|
|
|
ptd = _getptd();
|
|
if ( ptd->_cvtbuf == NULL )
|
|
if ( (ptd->_cvtbuf = malloc(CVTBUFSIZE)) == NULL )
|
|
return(NULL);
|
|
buf = ptd->_cvtbuf;
|
|
|
|
#else /* ndef _WIN32_ */
|
|
|
|
#error ERROR - ONLY CRUISER OR WIN32 TARGET SUPPORTED!
|
|
|
|
#endif /* _WIN32_ */
|
|
|
|
#endif /* _CRUISER_ */
|
|
|
|
#endif /* MTHREAD */
|
|
|
|
|
|
/* make sure we don't overflow the buffer size. If the user asks for
|
|
* more digits than the buffer can handle, truncate it to the maximum
|
|
* size allowed in the buffer. The maximum size is CVTBUFSIZE - 2
|
|
* since we useone character for overflow and one for the terminating
|
|
* null character.
|
|
*/
|
|
|
|
_fptostr(buf, (digits > CVTBUFSIZE - 2) ? CVTBUFSIZE - 2 : digits, pflt);
|
|
|
|
/* set the sign flag and decimal point position */
|
|
|
|
*sign = (pflt->sign == '-') ? 1 : 0;
|
|
*decpt = pflt->decpt;
|
|
return(buf);
|
|
}
|