d/freebsd-dev
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Import new sources. The only material change in this update is to

Browse Source 
add locale support for hexadecimal floating point conversions.

Noticed by:	ache
Reviewed by:	mike (mentor)
This commit is contained in:
David Schultz 2003-03-25 17:55:07 +00:00
parent 84781d47e6
commit 8f7c2af436
Notes: svn2git 2020-12-20 02:59:44 +00:00 
svn path=/vendor/gdtoa/dist/; revision=112620
svn path=/vendor/gdtoa/20030324/; revision=112622; tag=vendor/gdtoa/20030324
6 changed files with 23 additions and 33 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
contrib/gdtoa/README
View File

@ -320,7 +320,4 @@ it is '.'.
Please send comments to
David M. Gay
Bell Labs, Room 2C-463
600 Mountain Avenue
Murray Hill, NJ 07974-0636, U.S.A.
dmg@research.bell-labs.com
dmg@acm.org

6
contrib/gdtoa/g__fmt.c
View File

@ -28,11 +28,7 @@ THIS SOFTWARE.
/* Please send bug reports to
David M. Gay
Bell Laboratories, Room 2C-463
600 Mountain Avenue
Murray Hill, NJ 07974-0636
U.S.A.
dmg@bell-labs.com
dmg@acm.org
*/
#include "gdtoaimp.h"

21
contrib/gdtoa/gethex.c
View File

@ -28,15 +28,15 @@ THIS SOFTWARE.
/* Please send bug reports to
David M. Gay
Bell Laboratories, Room 2C-463
600 Mountain Avenue
Murray Hill, NJ 07974-0636
U.S.A.
dmg@bell-labs.com
dmg@acm.org
*/
#include "gdtoaimp.h"
#ifdef USE_LOCALE
#include "locale.h"
#endif
int
#ifdef KR_headers
gethex(sp, fpi, exp, bp, sign)
@ -50,6 +50,11 @@ gethex( CONST char **sp, FPI *fpi, Long *exp, Bigint **bp, int sign)
int esign, havedig, irv, k, n, nbits, up;
ULong L, lostbits, *x;
Long e, e1;
#ifdef USE_LOCALE
char decimalpoint = *localeconv()->decimal_point;
#else
#define decimalpoint '.'
#endif
if (!hexdig['0'])
hexdig_init_D2A();
@ -61,7 +66,7 @@ gethex( CONST char **sp, FPI *fpi, Long *exp, Bigint **bp, int sign)
s = s0;
decpt = 0;
if (!hexdig[*s]) {
if (*s == '.') {
if (*s == decimalpoint) {
decpt = ++s;
if (!hexdig[*s])
goto ret0;
@ -80,7 +85,7 @@ gethex( CONST char **sp, FPI *fpi, Long *exp, Bigint **bp, int sign)
}
while(hexdig[*s])
s++;
if (*s == '.' && !decpt) {
if (*s == decimalpoint && !decpt) {
decpt = ++s;
while(hexdig[*s])
s++;
@ -120,7 +125,7 @@ gethex( CONST char **sp, FPI *fpi, Long *exp, Bigint **bp, int sign)
n = 0;
L = 0;
while(s1 > s0) {
if (*--s1 == '.')
if (*--s1 == decimalpoint)
continue;
if (n == 32) {
*x++ = L;

8
contrib/gdtoa/strtod.c
View File

@ -28,11 +28,7 @@ THIS SOFTWARE.
/* Please send bug reports to
David M. Gay
Bell Laboratories, Room 2C-463
600 Mountain Avenue
Murray Hill, NJ 07974-0636
U.S.A.
dmg@bell-labs.com
dmg@acm.org
*/
#include "gdtoaimp.h"
@ -118,7 +114,7 @@ strtod
switch(s[1]) {
case 'x':
case 'X':
switch(gethex(&s, &fpi, &exp, &bb, sign)) {
switch(i = gethex(&s, &fpi, &exp, &bb, sign)) {
case STRTOG_NoNumber:
s = s00;
sign = 0;

6
contrib/gdtoa/strtodg.c
View File

@ -28,11 +28,7 @@ THIS SOFTWARE.
/* Please send bug reports to
David M. Gay
Bell Laboratories, Room 2C-463
600 Mountain Avenue
Murray Hill, NJ 07974-0636
U.S.A.
dmg@bell-labs.com
dmg@acm.org
*/
#include "gdtoaimp.h"

10
contrib/gdtoa/xsum0.out
View File

@ -1,9 +1,9 @@
README 7150e50 13249
README c9c34c1 13153
arithchk.c e37b8a75 4070
dmisc.c e8d262b6 4712
dtoa.c f3c132b3 16905
g_Qfmt.c e5847e9 2870
g__fmt.c e29d67f1 2534
g__fmt.c ee5f9be0 2439
g_ddfmt.c fcf94527 3790
g_dfmt.c f30e55a9 2533
g_ffmt.c 7c4ea96 2459
@ -12,7 +12,7 @@ g_xfmt.c c20a5e4 2795
gdtoa.c 364a0d2 17017
gdtoa.h 1eb440de 4810
gdtoaimp.h 6a955ba 19106
gethex.c ff3c434d 4981
gethex.c 1310d1b3 5066
gmisc.c e1a268ea 2114
hd_init.c cf9a94e 1827
hexnan.c f53be1da 2988
@ -26,9 +26,9 @@ strtoIf.c eb75ac99 1905
strtoIg.c ec59c2fa 3484
strtoIx.c 8f8c9d 1990
strtoIxL.c 1313ff7f 1961
strtod.c 1ad667 20076
strtod.c fd6556c8 19985
strtodI.c e58338e0 4062
strtodg.c 1caf3fa4 19553
strtodg.c e04b9254 19458
strtof.c 1e7a787a 2202
strtopQ.c e232c542 2685
strtopd.c e865dc64 1701