74 lines
1.6 KiB
C
74 lines
1.6 KiB
C
|
/*
|
||
|
|
*cfin.c - Encode interface for C
|
||
|
|
|
||
|
|
* Copyright (c) 19xx-1991, Microsoft Corporation. All rights reserved.
|
||
|
|
|
||
|
|
*Purpose:
|
||
|
|
|
||
|
|
*Revision History:
|
||
|
|
* 07-20-91 GDP Ported to C from assembly
|
||
|
|
* 04-30-92 GDP use __strgtold12 and _ld12tod
|
||
|
|
* 05-26-92 GWK Windbg srcs
|
||
|
|
|
||
|
|
*/
|
||
|
|
|
||
|
|
#include <string.h>
|
||
|
|
#include "mathsup.h"
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
#ifndef MTHREAD
|
||
|
|
static struct _flt ret;
|
||
|
|
static FLT flt = &ret;
|
||
|
|
#endif
|
||
|
|
|
||
|
|
/* The only three conditions that this routine detects */
|
||
|
|
#define CFIN_NODIGITS 512
|
||
|
|
#define CFIN_OVERFLOW 128
|
||
|
|
#define CFIN_UNDERFLOW 256
|
||
|
|
|
||
|
|
/* This version ignores the last two arguments (radix and scale)
|
||
|
|
* Input string should be null terminated
|
||
|
|
* len is also ignored
|
||
|
|
*/
|
||
|
|
#ifdef MTHREAD
|
||
|
|
FLT _fltin2(FLT flt, const char *str, int len_ignore, int scale_ignore, int radix_ignore)
|
||
|
|
#else
|
||
|
|
FLT _fltin(const char *str, int len_ignore, int scale_ignore, int radix_ignore)
|
||
|
|
#endif
|
||
|
|
{
|
||
|
|
_ULDBL12 ld12;
|
||
|
|
UDOUBLE x;
|
||
|
|
char *EndPtr;
|
||
|
|
unsigned flags;
|
||
|
|
int retflags = 0;
|
||
|
|
|
||
|
|
flags = __strgtold12(&ld12, &EndPtr, (char *)str, 0);
|
||
|
|
if (flags & SLD_NODIGITS) {
|
||
|
|
retflags |= CFIN_NODIGITS;
|
||
|
|
*(u_long *)&x = 0;
|
||
|
|
*((u_long *)&x+1) = 0;
|
||
|
|
}
|
||
|
|
else {
|
||
|
|
INTRNCVT_STATUS intrncvt;
|
||
|
|
|
||
|
|
intrncvt = _ld12tod(&ld12, &x);
|
||
|
|
|
||
|
|
if (flags & SLD_OVERFLOW ||
|
||
|
|
intrncvt == INTRNCVT_OVERFLOW) {
|
||
|
|
retflags |= CFIN_OVERFLOW;
|
||
|
|
}
|
||
|
|
if (flags & SLD_UNDERFLOW ||
|
||
|
|
intrncvt == INTRNCVT_UNDERFLOW) {
|
||
|
|
retflags |= CFIN_UNDERFLOW;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
flt->flags = retflags;
|
||
|
|
flt->nbytes = (int) (EndPtr - (char *)str);
|
||
|
|
flt->dval = *(double *)&x;
|
||
|
|
|
||
|
|
return flt;
|
||
|
|
}
|