ed/metadesk
1
0
Fork 0
mirror of https://github.com/Ed94/metadesk.git synced 2026-08-08 16:48:15 +00:00
Code Issues Packages Projects Releases Wiki Activity

progress on stb_sprintf.h

Browse Source
This commit is contained in:
ed
2025-02-09 05:40:33 -05:00
parent 0485058938
commit 5798526a54
1 changed files with 907 additions and 803 deletions
Download Patch File Download Diff File Expand all files Collapse all files
third_party/stb/stb_sprintf.h
Vendored
+269 -165
View File
@@ -562,61 +562,70 @@ STBSP__PUBLICDEF int STB_SPRINTF_DECORATE(vsprintfcb)(STBSP_SPRINTFCB *callback,
fl |= STBSP__HALFWIDTH;
++ f;
if (f[0] == 'h')
++f; // QUARTERWIDTH
++ f; // QUARTERWIDTH
break;
// are we 64-bit (unix style)
case 'l':
fl |= ((sizeof(long) == 8) ? STBSP__INTMAX : 0);
++f;
++ f;
if (f[0] == 'l') {
fl |= STBSP__INTMAX;
++f;
}
break;
// are we 64-bit on intmax? (c99)
case 'j':
fl |= (sizeof(size_t) == 8) ? STBSP__INTMAX : 0;
++f;
++ f;
break;
// are we 64-bit on size_t or ptrdiff_t? (c99)
case 'z':
fl |= (sizeof(ptrdiff_t) == 8) ? STBSP__INTMAX : 0;
++f;
++ f;
break;
case 't':
fl |= (sizeof(ptrdiff_t) == 8) ? STBSP__INTMAX : 0;
++f;
++ f;
break;
// are we 64-bit (msft style)
case 'I':
if ((f[1] == '6') && (f[2] == '4')) {
fl |= STBSP__INTMAX;
f += 3;
} else if ((f[1] == '3') && (f[2] == '2')) {
}
else if ((f[1] == '3') && (f[2] == '2')) {
f += 3;
} else {
}
else {
fl |= ((sizeof(void *) == 8) ? STBSP__INTMAX : 0);
++f;
++ f;
}
break;
default: break;
}
// handle each replacement
switch (f[0]) {
switch (f[0])
{
#define STBSP__NUMSZ 512 // big enough for e308 (with commas) or e-307
char num[STBSP__NUMSZ];
char lead[8];
char tail[8];
char *s;
char const *h;
char* s;
char const* h;
stbsp__uint32 l, n, cs;
stbsp__uint64 n64;
#ifndef STB_SPRINTF_NOFLOAT
double fv;
#endif
stbsp__int32 dp;
char const *sn;
char const* sn;
case 's':
// get the string
@@ -652,7 +661,8 @@ STBSP__PUBLICDEF int STB_SPRINTF_DECORATE(vsprintfcb)(STBSP_SPRINTFCB *callback,
pr = 0;
dp = 0;
cs = 0;
}goto scopy;
}
goto scopy;
case 'm':
case 'M':
@@ -663,44 +673,38 @@ STBSP__PUBLICDEF int STB_SPRINTF_DECORATE(vsprintfcb)(STBSP_SPRINTFCB *callback,
static const U64 one_tib = 1ull * 1024 * 1024 * 1024 * 1024;
U64 size;
if(f[0] == 'M')
{
if (f[0] == 'M') {
size = va_arg(va, U64);
}
else
{
else {
size = va_arg(va, U32);
}
U64 lo = 0;
U64 hi = 0;
char *units = "";
char* units = "";
if(size < one_kib)
{
if (size < one_kib) {
hi = size;
units = "Bytes";
}
else if(size < one_mib)
else if (size < one_mib)
{
hi = size / one_kib;
lo = ((size * 100) / one_kib) % 100;
units = "KiB";
}
else if(size < one_gib)
{
else if (size < one_gib) {
hi = size / one_mib;
lo = ((size * 100) / one_mib) % 100;
units = "MiB";
}
else if(size < one_tib)
{
else if(size < one_tib) {
hi = size / one_gib;
lo = ((size * 100) / one_gib) % 100;
units = "GiB";
}
else
{
else {
assert(size <= MAX_U64 / 100ull);
hi = size / one_tib;
lo = ((size * 100) / one_tib) % 100;
@@ -708,63 +712,60 @@ STBSP__PUBLICDEF int STB_SPRINTF_DECORATE(vsprintfcb)(STBSP_SPRINTFCB *callback,
}
// format high part
if(hi > 0)
if (hi > 0)
{
s = num;
for(U64 n = hi; n > 0; n /= 10ull)
for (U64 n = hi; n > 0; n /= 10ull)
{
*s = (char)(n % 10ull) + '0';
++s;
}
for(S64 i = (S64)(s-num)-1; i >= 0; --i)
for (S64 i = (S64)(s-num)-1; i >= 0; --i)
{
*bf = num[i];
++bf;
++ bf;
}
}
else
{
*bf = '0';
++bf;
++ bf;
}
// format low part
if(lo > 0)
if (lo > 0)
{
*bf = '.';
++bf;
++ bf;
s = num;
for(U64 n = lo; n > 0; n /= 10ull)
{
for (U64 n = lo; n > 0; n /= 10ull) {
*s = (char)(n % 10ull) + '0';
++s;
++ s;
}
U64 lead_zero_count = 3 - (U64)(s-num);
for(U64 i = 1; i < lead_zero_count; ++i)
{
for (U64 i = 1; i < lead_zero_count; ++i) {
*bf = '0';
++bf;
++ bf;
}
for(S64 i = (S64)(s-num)-1; i >= 0; --i)
{
for (S64 i = (S64)(s-num)-1; i >= 0; --i) {
*bf = num[i];
++bf;
++ bf;
}
}
*bf = ' ';
++bf;
++ bf;
// copy units
for(U64 i = 0; units[i] != 0; ++i)
{
for(U64 i = 0; units[i] != 0; ++i) {
*bf = units[i];
++bf;
++ bf;
}
}break;
}
break;
//
// NOTE(rjf): DEBUGGER PROJECT ADDITION ^^^
//-
@@ -785,9 +786,11 @@ STBSP__PUBLICDEF int STB_SPRINTF_DECORATE(vsprintfcb)(STBSP_SPRINTFCB *callback,
case 'n': // weird write-bytes specifier
{
int *d = va_arg(va, int *);
int*
d = va_arg(va, int *);
*d = tlen + (int)(bf - buf);
} break;
}
break;
#ifdef STB_SPRINTF_NOFLOAT
case 'A': // float
@@ -809,10 +812,13 @@ STBSP__PUBLICDEF int STB_SPRINTF_DECORATE(vsprintfcb)(STBSP_SPRINTFCB *callback,
#else
case 'A': // hex float
case 'a': // hex float
{
h = (f[0] == 'A') ? hexu : hex;
fv = va_arg(va, double);
if (pr == -1)
pr = 6; // default is 6
// read the double into a string
if (stbsp__real_to_parts((stbsp__int64 *)&n64, &dp, fv))
fl |= STBSP__NEGATIVE;
@@ -825,34 +831,42 @@ STBSP__PUBLICDEF int STB_SPRINTF_DECORATE(vsprintfcb)(STBSP_SPRINTFCB *callback,
dp = (n64) ? -1022 : 0;
else
n64 |= (((stbsp__uint64)1) << 52);
n64 <<= (64 - 56);
if (pr < 15)
n64 += ((((stbsp__uint64)8) << 56) >> (pr * 4));
// add leading chars
#ifdef STB_SPRINTF_MSVC_MODE
*s++ = '0';
*s++ = 'x';
*s ++ = '0';
*s ++ = 'x';
#else
lead[1 + lead[0]] = '0';
lead[2 + lead[0]] = 'x';
lead[0] += 2;
lead[0 ] += 2;
#endif
*s++ = h[(n64 >> 60) & 15];
*s ++ = h[(n64 >> 60) & 15];
n64 <<= 4;
if (pr)
*s++ = stbsp__period;
sn = s;
// print the bits
n = pr;
if (n > 13)
n = 13;
if (pr > (stbsp__int32)n)
tz = pr - n;
pr = 0;
while (n--) {
*s++ = h[(n64 >> 60) & 15];
*s ++ = h[(n64 >> 60) & 15];
n64 <<= 4;
}
@@ -861,15 +875,20 @@ STBSP__PUBLICDEF int STB_SPRINTF_DECORATE(vsprintfcb)(STBSP_SPRINTFCB *callback,
if (dp < 0) {
tail[2] = '-';
dp = -dp;
} else
}
else
tail[2] = '+';
n = (dp >= 1000) ? 6 : ((dp >= 100) ? 5 : ((dp >= 10) ? 4 : 3));
tail[0] = (char)n;
for (;;) {
for (;;)
{
tail[n] = '0' + dp % 10;
if (n <= 3)
break;
--n;
if (n <= 3) break;
-- n;
dp /= 10;
}
@@ -878,15 +897,19 @@ STBSP__PUBLICDEF int STB_SPRINTF_DECORATE(vsprintfcb)(STBSP_SPRINTFCB *callback,
s = num + 64;
cs = 1 + (3 << 24);
goto scopy;
}
case 'G': // float
case 'g': // float
{
h = (f[0] == 'G') ? hexu : hex;
fv = va_arg(va, double);
if (pr == -1)
pr = 6;
else if (pr == 0)
pr = 1; // default is 6
// read the double into a string
if (stbsp__real_to_str(&sn, &l, num, &dp, fv, (pr - 1) | 0x80000000))
fl |= STBSP__NEGATIVE;
@@ -915,16 +938,21 @@ STBSP__PUBLICDEF int STB_SPRINTF_DECORATE(vsprintfcb)(STBSP_SPRINTFCB *callback,
pr = -dp + ((pr > (stbsp__int32)l) ? (stbsp__int32) l : pr);
}
goto dofloatfromg;
}
case 'E': // float
case 'e': // float
{
h = (f[0] == 'E') ? hexu : hex;
fv = va_arg(va, double);
if (pr == -1)
pr = 6; // default is 6
// read the double into a string
if (stbsp__real_to_str(&sn, &l, num, &dp, fv, pr | 0x80000000))
fl |= STBSP__NEGATIVE;
doexpfromg:
tail[0] = 0;
stbsp__lead_sign(fl, lead);
@@ -936,52 +964,62 @@ STBSP__PUBLICDEF int STB_SPRINTF_DECORATE(vsprintfcb)(STBSP_SPRINTFCB *callback,
}
s = num + 64;
// handle leading chars
*s++ = sn[0];
*s ++ = sn[0];
if (pr)
*s++ = stbsp__period;
*s ++ = stbsp__period;
// handle after decimal
if ((l - 1) > (stbsp__uint32)pr)
l = pr + 1;
for (n = 1; n < l; n++)
*s++ = sn[n];
// trailing zeros
tz = pr - (l - 1);
pr = 0;
// dump expo
tail[1] = h[0xe];
dp -= 1;
if (dp < 0) {
tail[2] = '-';
dp = -dp;
} else
}
else
tail[2] = '+';
#ifdef STB_SPRINTF_MSVC_MODE
n = 5;
#else
n = (dp >= 100) ? 5 : 4;
#endif
tail[0] = (char)n;
for (;;) {
tail[n] = '0' + dp % 10;
if (n <= 3)
break;
--n;
-- n;
dp /= 10;
}
cs = 1 + (3 << 24); // how many tens
goto flt_lead;
}
case 'f': // float
{
fv = va_arg(va, double);
doafloat:
// do kilos
if (fl & STBSP__METRIC_SUFFIX) {
double divisor;
divisor = 1000.0f;
if (fl & STBSP__METRIC_1024)
divisor = 1024.0;
while (fl < 0x4000000) {
if ((fv < divisor) && (fv > -divisor))
break;
@@ -989,11 +1027,14 @@ STBSP__PUBLICDEF int STB_SPRINTF_DECORATE(vsprintfcb)(STBSP_SPRINTFCB *callback,
fl += 0x1000000;
}
}
if (pr == -1)
pr = 6; // default is 6
// read the double into a string
if (stbsp__real_to_str(&sn, &l, num, &dp, fv, pr))
fl |= STBSP__NEGATIVE;
dofloatfromg:
tail[0] = 0;
stbsp__lead_sign(fl, lead);
@@ -1006,64 +1047,86 @@ STBSP__PUBLICDEF int STB_SPRINTF_DECORATE(vsprintfcb)(STBSP_SPRINTFCB *callback,
s = num + 64;
// handle the three decimal varieties
if (dp <= 0) {
if (dp <= 0)
{
stbsp__int32 i;
// handle 0.000*000xxxx
*s++ = '0';
*s ++ = '0';
if (pr)
*s++ = stbsp__period;
*s ++ = stbsp__period;
n = -dp;
if ((stbsp__int32)n > pr)
n = pr;
i = n;
while (i) {
while (i)
{
if ((((stbsp__uintptr)s) & 3) == 0)
break;
*s++ = '0';
--i;
*s ++ = '0';
-- i;
}
while (i >= 4) {
while (i >= 4)
{
*(stbsp__uint32 *)s = 0x30303030;
s += 4;
i -= 4;
}
while (i) {
*s++ = '0';
while (i)
{
*s ++ = '0';
--i;
}
if ((stbsp__int32)(l + n) > pr)
l = pr - n;
i = l;
while (i) {
*s++ = *sn++;
--i;
while (i)
{
*s ++ = *sn++;
-- i;
}
tz = pr - (n + l);
cs = 1 + (3 << 24); // how many tens did we write (for commas below)
} else {
}
else
{
cs = (fl & STBSP__TRIPLET_COMMA) ? ((600 - (stbsp__uint32)dp) % 3) : 0;
if ((stbsp__uint32)dp >= l) {
if ((stbsp__uint32)dp >= l)
{
// handle xxxx000*000.0
n = 0;
for (;;) {
for (;;)
{
if ((fl & STBSP__TRIPLET_COMMA) && (++cs == 4)) {
cs = 0;
*s++ = stbsp__comma;
} else {
*s++ = sn[n];
++n;
*s ++ = stbsp__comma;
}
else {
*s ++ = sn[n];
++ n;
if (n >= l)
break;
}
}
if (n < (stbsp__uint32)dp) {
if (n < (stbsp__uint32)dp)
{
n = dp - n;
if ((fl & STBSP__TRIPLET_COMMA) == 0) {
if ((fl & STBSP__TRIPLET_COMMA) == 0)
{
while (n) {
if ((((stbsp__uintptr)s) & 3) == 0)
break;
*s++ = '0';
--n;
*s ++ = '0';
-- n;
}
while (n >= 4) {
*(stbsp__uint32 *)s = 0x30303030;
@@ -1071,69 +1134,89 @@ STBSP__PUBLICDEF int STB_SPRINTF_DECORATE(vsprintfcb)(STBSP_SPRINTFCB *callback,
n -= 4;
}
}
while (n) {
while (n)
{
if ((fl & STBSP__TRIPLET_COMMA) && (++cs == 4)) {
cs = 0;
*s++ = stbsp__comma;
} else {
*s++ = '0';
*s ++ = stbsp__comma;
}
else {
*s ++ = '0';
--n;
}
}
}
cs = (int)(s - (num + 64)) + (3 << 24); // cs is how many tens
if (pr) {
*s++ = stbsp__period;
*s ++ = stbsp__period;
tz = pr;
}
} else {
}
else
{
// handle xxxxx.xxxx000*000
n = 0;
for (;;) {
for (;;)
{
if ((fl & STBSP__TRIPLET_COMMA) && (++cs == 4)) {
cs = 0;
*s++ = stbsp__comma;
} else {
*s++ = sn[n];
++n;
}
else {
*s ++ = sn[n];
++ n;
if (n >= (stbsp__uint32)dp)
break;
}
}
cs = (int)(s - (num + 64)) + (3 << 24); // cs is how many tens
if (pr)
*s++ = stbsp__period;
*s ++ = stbsp__period;
if ((l - dp) > (stbsp__uint32)pr)
l = pr + dp;
while (n < l) {
*s++ = sn[n];
++n;
*s ++ = sn[n];
++ n;
}
tz = pr - (l - dp);
}
}
pr = 0;
// handle k,m,g,t
if (fl & STBSP__METRIC_SUFFIX) {
if (fl & STBSP__METRIC_SUFFIX)
{
char idx;
idx = 1;
if (fl & STBSP__METRIC_NOSPACE)
idx = 0;
tail[0] = idx;
tail[1] = ' ';
{
if (fl >> 24) { // SI kilo is 'k', JEDEC and SI kibits are 'K'.
if (fl >> 24)
{
// SI kilo is 'k', JEDEC and SI kibits are 'K'.
if (fl & STBSP__METRIC_1024)
tail[idx + 1] = "_KMGT"[fl >> 24];
else
tail[idx + 1] = "_kMGT"[fl >> 24];
idx++;
// If printing kibits and not in jedec, add the 'i'.
if (fl & STBSP__METRIC_1024 && !(fl & STBSP__METRIC_JEDEC)) {
tail[idx + 1] = 'i';
idx++;
idx ++;
}
tail[0] = idx;
}
}
@@ -1144,27 +1227,33 @@ STBSP__PUBLICDEF int STB_SPRINTF_DECORATE(vsprintfcb)(STBSP_SPRINTFCB *callback,
l = (stbsp__uint32)(s - (num + 64));
s = num + 64;
goto scopy;
}
// ifdef STB_SPRINTF_NOFLOAT
#endif
case 'B': // upper binary
case 'b': // lower binary
h = (f[0] == 'B') ? hexu : hex;
lead[0] = 0;
if (fl & STBSP__LEADING_0X) {
lead[0] = 2;
lead[1] = '0';
lead[2] = h[0xb];
}
l = (8 << 4) | (1 << 8);
goto radixnum;
case 'o': // octal
h = hexu;
lead[0] = 0;
if (fl & STBSP__LEADING_0X) {
lead[0] = 1;
lead[1] = '0';
}
l = (3 << 4) | (3 << 8);
goto radixnum;
@@ -1176,6 +1265,7 @@ STBSP__PUBLICDEF int STB_SPRINTF_DECORATE(vsprintfcb)(STBSP_SPRINTFCB *callback,
case 'X': // upper hex
case 'x': // lower hex
{
h = (f[0] == 'X') ? hexu : hex;
l = (4 << 4) | (4 << 8);
lead[0] = 0;
@@ -1223,21 +1313,30 @@ STBSP__PUBLICDEF int STB_SPRINTF_DECORATE(vsprintfcb)(STBSP_SPRINTFCB *callback,
l = (stbsp__uint32)((num + STBSP__NUMSZ) - s);
// copy it
goto scopy;
}
case 'u': // unsigned
case 'i':
case 'd': // integer
// get the integer and abs it
if (fl & STBSP__INTMAX) {
stbsp__int64 i64 = va_arg(va, stbsp__int64);
if (fl & STBSP__INTMAX)
{
stbsp__int64
i64 = va_arg(va, stbsp__int64);
n64 = (stbsp__uint64)i64;
if ((f[0] != 'u') && (i64 < 0)) {
n64 = (stbsp__uint64)-i64;
if ((f[0] != 'u') && (i64 < 0))
{
n64 = (stbsp__uint64) - i64;
fl |= STBSP__NEGATIVE;
}
} else {
stbsp__int32 i = va_arg(va, stbsp__int32);
}
else
{
stbsp__int32
i = va_arg(va, stbsp__int32);
n64 = (stbsp__uint32)i;
if ((f[0] != 'u') && (i < 0)) {
n64 = (stbsp__uint32)-i;
fl |= STBSP__NEGATIVE;
@@ -1245,11 +1344,13 @@ STBSP__PUBLICDEF int STB_SPRINTF_DECORATE(vsprintfcb)(STBSP_SPRINTFCB *callback,
}
#ifndef STB_SPRINTF_NOFLOAT
if (fl & STBSP__METRIC_SUFFIX) {
if (fl & STBSP__METRIC_SUFFIX)
{
if (n64 < 1024)
pr = 0;
else if (pr == -1)
pr = 1;
fv = (double)(stbsp__int64)n64;
goto doafloat;
}
@@ -1259,7 +1360,8 @@ STBSP__PUBLICDEF int STB_SPRINTF_DECORATE(vsprintfcb)(STBSP_SPRINTFCB *callback,
s = num + STBSP__NUMSZ;
l = 0;
for (;;) {
for (;;)
{
// do in 32-bit chunks (avoid lots of 64-bit divides even with constant denominators)
char *o = s - 8;
if (n64 >= 100000000) {
@@ -1336,7 +1438,8 @@ STBSP__PUBLICDEF int STB_SPRINTF_DECORATE(vsprintfcb)(STBSP_SPRINTFCB *callback,
}
// copy the spaces and/or zeros
if (fw + pr) {
if (fw + pr)
{
stbsp__int32 i;
stbsp__uint32 c;
@@ -1422,10 +1525,13 @@ STBSP__PUBLICDEF int STB_SPRINTF_DECORATE(vsprintfcb)(STBSP_SPRINTFCB *callback,
// copy the string
n = l;
while (n) {
while (n)
{
stbsp__int32 i;
stbsp__cb_buf_clamp(i, n);
n -= i;
STBSP__UNALIGNED(while (i >= 4) {
*(stbsp__uint32 volatile *)bf = *(stbsp__uint32 volatile *)s;
bf += 4;
@@ -1433,31 +1539,34 @@ STBSP__PUBLICDEF int STB_SPRINTF_DECORATE(vsprintfcb)(STBSP_SPRINTFCB *callback,
i -= 4;
})
while (i) {
*bf++ = *s++;
--i;
*bf ++ = *s++;
-- i;
}
stbsp__chk_cb_buf(1);
}
// copy trailing zeros
while (tz) {
while (tz)
{
stbsp__int32 i;
stbsp__cb_buf_clamp(i, tz);
tz -= i;
while (i) {
if ((((stbsp__uintptr)bf) & 3) == 0)
break;
*bf++ = '0';
--i;
*bf ++ = '0';
-- i;
}
while (i >= 4) {
*(stbsp__uint32 *)bf = 0x30303030;
bf += 4;
i -= 4;
}
while (i) {
*bf++ = '0';
--i;
*bf ++ = '0';
-- i;
}
stbsp__chk_cb_buf(1);
}
@@ -1476,17 +1585,20 @@ STBSP__PUBLICDEF int STB_SPRINTF_DECORATE(vsprintfcb)(STBSP_SPRINTFCB *callback,
}
// handle the left justify
if (fl & STBSP__LEFTJUST)
if (fw > 0) {
while (fw) {
if (fl & STBSP__LEFTJUST) if (fw > 0)
{
while (fw)
{
stbsp__int32 i;
stbsp__cb_buf_clamp(i, fw);
fw -= i;
while (i) {
if ((((stbsp__uintptr)bf) & 3) == 0)
break;
*bf++ = ' ';
--i;
*bf ++ = ' ';
-- i;
}
while (i >= 4) {
*(stbsp__uint32 *)bf = 0x20202020;
@@ -1494,7 +1606,8 @@ STBSP__PUBLICDEF int STB_SPRINTF_DECORATE(vsprintfcb)(STBSP_SPRINTFCB *callback,
i -= 4;
}
while (i--)
*bf++ = ' ';
*bf ++ = ' ';
stbsp__chk_cb_buf(1);
}
}
@@ -1504,7 +1617,8 @@ STBSP__PUBLICDEF int STB_SPRINTF_DECORATE(vsprintfcb)(STBSP_SPRINTFCB *callback,
s = num + STBSP__NUMSZ - 1;
*s = f[0];
l = 1;
fw = fl = 0;
fw = 0;
fl = 0;
lead[0] = 0;
tail[0] = 0;
pr = 0;
@@ -1514,7 +1628,8 @@ STBSP__PUBLICDEF int STB_SPRINTF_DECORATE(vsprintfcb)(STBSP_SPRINTFCB *callback,
}
++f;
}
endfmt:
endfmt:
if (!callback)
*bf = 0;
@@ -1628,22 +1743,16 @@ STBSP__PUBLICDEF int STB_SPRINTF_DECORATE( vsnprintf )( char * buf, int count, c
return c.length;
}
STBSP__PUBLICDEF int STB_SPRINTF_DECORATE(snprintf)(char *buf, int count, char const *fmt, ...)
{
STBSP__PUBLICDEF int STB_SPRINTF_DECORATE(snprintf)(char *buf, int count, char const *fmt, ...) {
int result;
va_list va;
va_start(va, fmt);
result = STB_SPRINTF_DECORATE(vsnprintf)(buf, count, fmt, va);
va_end(va);
return result;
}
STBSP__PUBLICDEF int STB_SPRINTF_DECORATE(vsprintf)(char *buf, char const *fmt, va_list va)
{
return STB_SPRINTF_DECORATE(vsprintfcb)(0, 0, buf, fmt, va);
}
STBSP__PUBLICDEF int STB_SPRINTF_DECORATE(vsprintf)(char *buf, char const *fmt, va_list va) { return STB_SPRINTF_DECORATE(vsprintfcb)(0, 0, buf, fmt, va); }
// =======================================================================
// low level float utility functions
@@ -1653,9 +1762,9 @@ STBSP__PUBLICDEF int STB_SPRINTF_DECORATE(vsprintf)(char *buf, char const *fmt,
// copies d to bits w/ strict aliasing (this compiles to nothing on /Ox)
#define STBSP__COPYFP(dest, src) \
{ \
int cn; \
for (cn = 0; cn < 8; cn++) \
((char *)&dest)[cn] = ((char *)&src)[cn]; \
int cn; \
for (cn = 0; cn < 8; cn++) \
((char *)&dest)[cn] = ((char *)&src)[cn]; \
}
// get float info
@@ -1666,7 +1775,6 @@ static stbsp__int32 stbsp__real_to_parts(stbsp__int64 *bits, stbsp__int32 *expo,
// load value and round at the frac_digits
d = value;
STBSP__COPYFP(b, d);
*bits = b & ((((stbsp__uint64)1) << 52) - 1);
@@ -1769,41 +1877,37 @@ static stbsp__uint64 const stbsp__powten[20] = {
#define stbsp__ddmulthi(oh, ol, xh, yh) \
{ \
double ahi = 0, alo, bhi = 0, blo; \
stbsp__int64 bt; \
oh = xh * yh; \
STBSP__COPYFP(bt, xh); \
bt &= ((~(stbsp__uint64)0) << 27); \
STBSP__COPYFP(ahi, bt); \
alo = xh - ahi; \
STBSP__COPYFP(bt, yh); \
bt &= ((~(stbsp__uint64)0) << 27); \
STBSP__COPYFP(bhi, bt); \
blo = yh - bhi; \
ol = ((ahi * bhi - oh) + ahi * blo + alo * bhi) + alo * blo; \
double ahi = 0; \
double alo; \
double bhi = 0; \
double blo; \
stbsp__int64 bt; \
oh = xh * yh; STBSP__COPYFP(bt, xh); bt &= ((~(stbsp__uint64)0) << 27); STBSP__COPYFP(ahi, bt); \
alo = xh - ahi; STBSP__COPYFP(bt, yh); bt &= ((~(stbsp__uint64)0) << 27); STBSP__COPYFP(bhi, bt); \
blo = yh - bhi; \
ol = ((ahi * bhi - oh) + ahi * blo + alo * bhi) + alo * blo; \
}
#define stbsp__ddtoS64(ob, xh, xl) \
{ \
double ahi = 0, alo, vh, t; \
ob = (stbsp__int64)xh; \
vh = (double)ob; \
ahi = (xh - vh); \
t = (ahi - xh); \
alo = (xh - (ahi - t)) - (vh + t); \
ob += (stbsp__int64)(ahi + alo + xl); \
double ahi = 0, alo, vh, t; \
ob = (stbsp__int64)xh; \
vh = (double)ob; \
ahi = (xh - vh); \
t = (ahi - xh); \
alo = (xh - (ahi - t)) - (vh + t); \
ob += (stbsp__int64)(ahi + alo + xl); \
}
#define stbsp__ddrenorm(oh, ol) \
{ \
double s; \
s = oh + ol; \
ol = ol - (s - oh); \
oh = s; \
double s; \
s = oh + ol; \
ol = ol - (s - oh); \
oh = s; \
}
#define stbsp__ddmultlo(oh, ol, xh, xl, yh, yl) ol = ol + (xh * yl + xl * yh);
#define stbsp__ddmultlo (oh, ol, xh, xl, yh, yl) ol = ol + (xh * yl + xl * yh);
#define stbsp__ddmultlos(oh, ol, xh, yl) ol = ol + (xh * yl);
static void stbsp__raise_to_power10(double *ohi, double *olo, double d, stbsp__int32 power) // power can be -323 to +350