newer version of tcc almost working

1 files changed, 0 insertions, 2270 deletions

diff --git a/05/tcc-0.9.25/stdio.h b/05/tcc-0.9.25/stdio.h
deleted file mode 100644
index 436dd62..0000000
--- a/05/tcc-0.9.25/stdio.h
+++ /dev/null
@@ -1,2270 +0,0 @@
-#ifndef _STDIO_H
-#define _STDIO_H
-
-#include <stdc_common.h>
-#include <stdarg.h>
-
-int printf(const char *, ...);
-
-/* ---  snprintf, adapted from github.com/nothings/stb   stb_sprintf.h */
-
-#ifndef STB_SPRINTF_MIN
-#define STB_SPRINTF_MIN 512 // how many characters per callback
-#endif
-typedef char *_STBSP_SPRINTFCB(const char *buf, void *user, int len);
-
-// internal float utility functions
-static int32_t _stbsp__real_to_str(char const **start, uint32_t *len, char *out, int32_t *decimal_pos, double value, uint32_t frac_digits);
-static int32_t _stbsp__real_to_parts(int64_t *bits, int32_t *expo, double value);
-#define STBSP__SPECIAL 0x7000
-
-static char _stbsp__period = '.';
-static char _stbsp__comma = ',';
-static struct
-{
-   short temp; // force next field to be 2-byte aligned
-   char pair[201];
-} _stbsp__digitpair =
-{
-  0,
-   "00010203040506070809101112131415161718192021222324"
-   "25262728293031323334353637383940414243444546474849"
-   "50515253545556575859606162636465666768697071727374"
-   "75767778798081828384858687888990919293949596979899"
-};
-
-#define STBSP__LEFTJUST 1
-#define STBSP__LEADINGPLUS 2
-#define STBSP__LEADINGSPACE 4
-#define STBSP__LEADING_0X 8
-#define STBSP__LEADINGZERO 16
-#define STBSP__INTMAX 32
-#define STBSP__TRIPLET_COMMA 64
-#define STBSP__NEGATIVE 128
-#define STBSP__METRIC_SUFFIX 256
-#define STBSP__HALFWIDTH 512
-#define STBSP__METRIC_NOSPACE 1024
-#define STBSP__METRIC_1024 2048
-#define STBSP__METRIC_JEDEC 4096
-
-static void _stbsp__lead_sign(uint32_t fl, char *sign)
-{
-   sign[0] = 0;
-   if (fl & STBSP__NEGATIVE) {
-      sign[0] = 1;
-      sign[1] = '-';
-   } else if (fl & STBSP__LEADINGSPACE) {
-      sign[0] = 1;
-      sign[1] = ' ';
-   } else if (fl & STBSP__LEADINGPLUS) {
-      sign[0] = 1;
-      sign[1] = '+';
-   }
-}
-
-static uint32_t _stbsp__strlen_limited(char const *s, uint32_t limit)
-{
-   char const * sn = s;
-
-   // get up to 4-byte alignment
-   for (;;) {
-      if (((uintptr_t)sn & 3) == 0)
-         break;
-
-      if (!limit || *sn == 0)
-         return (uint32_t)(sn - s);
-
-      ++sn;
-      --limit;
-   }
-
-   // scan over 4 bytes at a time to find terminating 0
-   // this will intentionally scan up to 3 bytes past the end of buffers,
-   // but becase it works 4B aligned, it will never cross page boundaries
-   // (hence the STBSP__ASAN markup; the over-read here is intentional
-   // and harmless)
-   while (limit >= 4) {
-      uint32_t v = *(uint32_t *)sn;
-      // bit hack to find if there's a 0 byte in there
-      if ((v - 0x01010101) & (~v) & 0x80808080UL)
-         break;
-
-      sn += 4;
-      limit -= 4;
-   }
-
-   // handle the last few characters to find actual size
-   while (limit && *sn) {
-      ++sn;
-      --limit;
-   }
-
-   return (uint32_t)(sn - s);
-}
-
-int __vsprintfcb(_STBSP_SPRINTFCB *callback, void *user, char *buf, char const *fmt, va_list va)
-{
-   static char hex[] = "0123456789abcdefxp";
-   static char hexu[] = "0123456789ABCDEFXP";
-   char *bf;
-   char const *f;
-   int tlen = 0;
-
-   bf = buf;
-   f = fmt;
-   for (;;) {
-      int32_t fw, pr, tz;
-      uint32_t fl;
-
-      // macros for the callback buffer stuff
-      #define stbsp__chk_cb_bufL(bytes)                        \
-         {                                                     \
-            int len = (int)(bf - buf);                         \
-            if ((len + (bytes)) >= STB_SPRINTF_MIN) {          \
-               tlen += len;                                    \
-               if (0 == (bf = buf = callback(buf, user, len))) \
-                  goto done;                                   \
-            }                                                  \
-         }
-      #define stbsp__chk_cb_buf(bytes)    \
-         {                                \
-            if (callback) {               \
-               stbsp__chk_cb_bufL(bytes); \
-            }                             \
-         }
-      #define stbsp__flush_cb()                      \
-         {                                           \
-            stbsp__chk_cb_bufL(STB_SPRINTF_MIN - 1); \
-         } // flush if there is even one byte in the buffer
-      #define stbsp__cb_buf_clamp(cl, v)                \
-         cl = v;                                        \
-         if (callback) {                                \
-            int lg = STB_SPRINTF_MIN - (int)(bf - buf); \
-            if (cl > lg)                                \
-               cl = lg;                                 \
-         }
-
-      // fast copy everything up to the next % (or end of string)
-      for (;;) {
-         while (((uintptr_t)f) & 3) {
-         schk1:
-            if (f[0] == '%')
-               goto scandd;
-         schk2:
-            if (f[0] == 0)
-               goto endfmt;
-            stbsp__chk_cb_buf(1);
-            *bf++ = f[0];
-            ++f;
-         }
-         for (;;) {
-            // Check if the next 4 bytes contain %(0x25) or end of string.
-            // Using the 'hasless' trick:
-            // https://graphics.stanford.edu/~seander/bithacks.html#HasLessInWord
-            uint32_t v, c;
-            v = *(uint32_t *)f;
-            c = (~v) & 0x80808080;
-            if (((v ^ 0x25252525) - 0x01010101) & c)
-               goto schk1;
-            if ((v - 0x01010101) & c)
-               goto schk2;
-            if (callback)
-               if ((STB_SPRINTF_MIN - (int)(bf - buf)) < 4)
-                  goto schk1;
-            {
-                *(uint32_t *)bf = v;
-            }
-            bf += 4;
-            f += 4;
-         }
-      }
-   scandd:
-
-      ++f;
-
-      // ok, we have a percent, read the modifiers first
-      fw = 0;
-      pr = -1;
-      fl = 0;
-      tz = 0;
-
-      // flags
-      for (;;) {
-         switch (f[0]) {
-         // if we have left justify
-         case '-':
-            fl |= STBSP__LEFTJUST;
-            ++f;
-            continue;
-         // if we have leading plus
-         case '+':
-            fl |= STBSP__LEADINGPLUS;
-            ++f;
-            continue;
-         // if we have leading space
-         case ' ':
-            fl |= STBSP__LEADINGSPACE;
-            ++f;
-            continue;
-         // if we have leading 0x
-         case '#':
-            fl |= STBSP__LEADING_0X;
-            ++f;
-            continue;
-         // if we have thousand commas
-         case '\'':
-            fl |= STBSP__TRIPLET_COMMA;
-            ++f;
-            continue;
-         // if we have kilo marker (none->kilo->kibi->jedec)
-         case '$':
-            if (fl & STBSP__METRIC_SUFFIX) {
-               if (fl & STBSP__METRIC_1024) {
-                  fl |= STBSP__METRIC_JEDEC;
-               } else {
-                  fl |= STBSP__METRIC_1024;
-               }
-            } else {
-               fl |= STBSP__METRIC_SUFFIX;
-            }
-            ++f;
-            continue;
-         // if we don't want space between metric suffix and number
-         case '_':
-            fl |= STBSP__METRIC_NOSPACE;
-            ++f;
-            continue;
-         // if we have leading zero
-         case '0':
-            fl |= STBSP__LEADINGZERO;
-            ++f;
-            goto flags_done;
-         default: goto flags_done;
-         }
-      }
-   flags_done:
-
-      // get the field width
-      if (f[0] == '*') {
-         fw = va_arg(va, uint32_t);
-         ++f;
-      } else {
-         while ((f[0] >= '0') && (f[0] <= '9')) {
-            fw = fw * 10 + f[0] - '0';
-            f++;
-         }
-      }
-      // get the precision
-      if (f[0] == '.') {
-         ++f;
-         if (f[0] == '*') {
-            pr = va_arg(va, uint32_t);
-            ++f;
-         } else {
-            pr = 0;
-            while ((f[0] >= '0') && (f[0] <= '9')) {
-               pr = pr * 10 + f[0] - '0';
-               f++;
-            }
-         }
-      }
-
-      // handle integer size overrides
-      switch (f[0]) {
-      // are we halfwidth?
-      case 'h':
-         fl |= STBSP__HALFWIDTH;
-         ++f;
-         if (f[0] == 'h')
-            ++f;  // QUARTERWIDTH
-         break;
-      // are we 64-bit (unix style)
-      case 'l':
-         fl |= ((sizeof(long) == 8) ? STBSP__INTMAX : 0);
-         ++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;
-         break;
-      // are we 64-bit on size_t or ptrdiff_t? (c99)
-      case 'z':
-         fl |= (sizeof(ptrdiff_t) == 8) ? STBSP__INTMAX : 0;
-         ++f;
-         break;
-      case 't':
-         fl |= (sizeof(ptrdiff_t) == 8) ? STBSP__INTMAX : 0;
-         ++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')) {
-            f += 3;
-         } else {
-            fl |= ((sizeof(void *) == 8) ? STBSP__INTMAX : 0);
-            ++f;
-         }
-         break;
-      default: break;
-      }
-
-      // handle each replacement
-      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;
-         uint32_t l, n, cs;
-         uint64_t n64;
-         double fv;
-         int32_t dp;
-         char const *sn;
-
-      case 's':
-         // get the string
-         s = va_arg(va, char *);
-         if (s == 0)
-            s = (char *)"null";
-         // get the length, limited to desired precision
-         // always limit to ~0u chars since our counts are 32b
-         l = _stbsp__strlen_limited(s, (pr >= 0) ? pr : ~0u);
-         lead[0] = 0;
-         tail[0] = 0;
-         pr = 0;
-         dp = 0;
-         cs = 0;
-         // copy the string in
-         goto scopy;
-
-      case 'c': // char
-         // get the character
-         s = num + STBSP__NUMSZ - 1;
-         *s = (char)va_arg(va, int);
-         l = 1;
-         lead[0] = 0;
-         tail[0] = 0;
-         pr = 0;
-         dp = 0;
-         cs = 0;
-         goto scopy;
-
-      case 'n': // weird write-bytes specifier
-      {
-         int *d = va_arg(va, int *);
-         *d = tlen + (int)(bf - buf);
-      } break;
-
-      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((int64_t *)&n64, &dp, fv))
-            fl |= STBSP__NEGATIVE;
-
-         s = num + 64;
-
-         _stbsp__lead_sign(fl, lead);
-
-         if (dp == -1023)
-            dp = (n64) ? -1022 : 0;
-         else
-            n64 |= (((uint64_t)1) << 52);
-         n64 <<= (64 - 56);
-         if (pr < 15)
-            n64 += ((((uint64_t)8) << 56) >> (pr * 4));
-// add leading chars
-         lead[1 + lead[0]] = '0';
-         lead[2 + lead[0]] = 'x';
-         lead[0] += 2;
-         *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 > (int32_t)n)
-            tz = pr - n;
-         pr = 0;
-         while (n--) {
-            *s++ = h[(n64 >> 60) & 15];
-            n64 <<= 4;
-         }
-
-         // print the expo
-         tail[1] = h[17];
-         if (dp < 0) {
-            tail[2] = '-';
-            dp = -dp;
-         } else
-            tail[2] = '+';
-         n = (dp >= 1000) ? 6 : ((dp >= 100) ? 5 : ((dp >= 10) ? 4 : 3));
-         tail[0] = (char)n;
-         for (;;) {
-            tail[n] = '0' + dp % 10;
-            if (n <= 3)
-               break;
-            --n;
-            dp /= 10;
-         }
-
-         dp = (int)(s - sn);
-         l = (int)(s - (num + 64));
-         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;
-
-         // clamp the precision and delete extra zeros after clamp
-         n = pr;
-         if (l > (uint32_t)pr)
-            l = pr;
-         while ((l > 1) && (pr) && (sn[l - 1] == '0')) {
-            --pr;
-            --l;
-         }
-
-         // should we use %e
-         if ((dp <= -4) || (dp > (int32_t)n)) {
-            if (pr > (int32_t)l)
-               pr = l - 1;
-            else if (pr)
-               --pr; // when using %e, there is one digit before the decimal
-            goto doexpfromg;
-         }
-         // this is the insane action to get the pr to match %g semantics for %f
-         if (dp > 0) {
-            pr = (dp < (int32_t)l) ? l - dp : 0;
-         } else {
-            pr = -dp + ((pr > (int32_t)l) ? (int32_t) 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);
-         if (dp == STBSP__SPECIAL) {
-            s = (char *)sn;
-            cs = 0;
-            pr = 0;
-            goto scopy;
-         }
-         s = num + 64;
-         // handle leading chars
-         *s++ = sn[0];
-
-         if (pr)
-            *s++ = _stbsp__period;
-
-         // handle after decimal
-         if ((l - 1) > (uint32_t)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
-            tail[2] = '+';
-         n = (dp >= 100) ? 5 : 4;
-         tail[0] = (char)n;
-         for (;;) {
-            tail[n] = '0' + dp % 10;
-            if (n <= 3)
-               break;
-            --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;
-               fv /= divisor;
-               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);
-         if (dp == STBSP__SPECIAL) {
-            s = (char *)sn;
-            cs = 0;
-            pr = 0;
-            goto scopy;
-         }
-         s = num + 64;
-
-         // handle the three decimal varieties
-         if (dp <= 0) {
-            int32_t i;
-            // handle 0.000*000xxxx
-            *s++ = '0';
-            if (pr)
-               *s++ = _stbsp__period;
-            n = -dp;
-            if ((int32_t)n > pr)
-               n = pr;
-            i = n;
-            while (i) {
-               if ((((uintptr_t)s) & 3) == 0)
-                  break;
-               *s++ = '0';
-               --i;
-            }
-            while (i >= 4) {
-               *(uint32_t *)s = 0x30303030;
-               s += 4;
-               i -= 4;
-            }
-            while (i) {
-               *s++ = '0';
-               --i;
-            }
-            if ((int32_t)(l + n) > pr)
-               l = pr - n;
-            i = l;
-            while (i) {
-               *s++ = *sn++;
-               --i;
-            }
-            tz = pr - (n + l);
-            cs = 1 + (3 << 24); // how many tens did we write (for commas below)
-         } else {
-            cs = (fl & STBSP__TRIPLET_COMMA) ? ((600 - (uint32_t)dp) % 3) : 0;
-            if ((uint32_t)dp >= l) {
-               // handle xxxx000*000.0
-               n = 0;
-               for (;;) {
-                  if ((fl & STBSP__TRIPLET_COMMA) && (++cs == 4)) {
-                     cs = 0;
-                     *s++ = _stbsp__comma;
-                  } else {
-                     *s++ = sn[n];
-                     ++n;
-                     if (n >= l)
-                        break;
-                  }
-               }
-               if (n < (uint32_t)dp) {
-                  n = dp - n;
-                  if ((fl & STBSP__TRIPLET_COMMA) == 0) {
-                     while (n) {
-                        if ((((uintptr_t)s) & 3) == 0)
-                           break;
-                        *s++ = '0';
-                        --n;
-                     }
-                     while (n >= 4) {
-                        *(uint32_t *)s = 0x30303030;
-                        s += 4;
-                        n -= 4;
-                     }
-                  }
-                  while (n) {
-                     if ((fl & STBSP__TRIPLET_COMMA) && (++cs == 4)) {
-                        cs = 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;
-                  tz = pr;
-               }
-            } else {
-               // handle xxxxx.xxxx000*000
-               n = 0;
-               for (;;) {
-                  if ((fl & STBSP__TRIPLET_COMMA) && (++cs == 4)) {
-                     cs = 0;
-                     *s++ = _stbsp__comma;
-                  } else {
-                     *s++ = sn[n];
-                     ++n;
-                     if (n >= (uint32_t)dp)
-                        break;
-                  }
-               }
-               cs = (int)(s - (num + 64)) + (3 << 24); // cs is how many tens
-               if (pr)
-                  *s++ = _stbsp__period;
-               if ((l - dp) > (uint32_t)pr)
-                  l = pr + dp;
-               while (n < l) {
-                  *s++ = sn[n];
-                  ++n;
-               }
-               tz = pr - (l - dp);
-            }
-         }
-         pr = 0;
-
-         // handle k,m,g,t
-         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 & 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++;
-                  }
-                  tail[0] = idx;
-               }
-            }
-         };
-
-      flt_lead:
-         // get the length that we copied
-         l = (uint32_t)(s - (num + 64));
-         s = num + 64;
-         goto scopy;
-
-      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;
-
-      case 'p': // pointer
-         fl |= (sizeof(void *) == 8) ? STBSP__INTMAX : 0;
-         pr = sizeof(void *) * 2;
-         fl &= ~STBSP__LEADINGZERO; // 'p' only prints the pointer with zeros
-                                    // fall through - to X
-
-      case 'X': // upper hex
-      case 'x': // lower hex
-         h = (f[0] == 'X') ? hexu : hex;
-         l = (4 << 4) | (4 << 8);
-         lead[0] = 0;
-         if (fl & STBSP__LEADING_0X) {
-            lead[0] = 2;
-            lead[1] = '0';
-            lead[2] = h[16];
-         }
-      radixnum:
-         // get the number
-         if (fl & STBSP__INTMAX)
-            n64 = va_arg(va, uint64_t);
-         else
-            n64 = va_arg(va, uint32_t);
-
-         s = num + STBSP__NUMSZ;
-         dp = 0;
-         // clear tail, and clear leading if value is zero
-         tail[0] = 0;
-         if (n64 == 0) {
-            lead[0] = 0;
-            if (pr == 0) {
-               l = 0;
-               cs = 0;
-               goto scopy;
-            }
-         }
-         // convert to string
-         for (;;) {
-            *--s = h[n64 & ((1 << (l >> 8)) - 1)];
-            n64 >>= (l >> 8);
-            if (!((n64) || ((int32_t)((num + STBSP__NUMSZ) - s) < pr)))
-               break;
-            if (fl & STBSP__TRIPLET_COMMA) {
-               ++l;
-               if ((l & 15) == ((l >> 4) & 15)) {
-                  l &= ~15;
-                  *--s = _stbsp__comma;
-               }
-            }
-         };
-         // get the tens and the comma pos
-         cs = (uint32_t)((num + STBSP__NUMSZ) - s) + ((((l >> 4) & 15)) << 24);
-         // get the length that we copied
-         l = (uint32_t)((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) {
-            int64_t i64 = va_arg(va, int64_t);
-            n64 = (uint64_t)i64;
-            if ((f[0] != 'u') && (i64 < 0)) {
-               n64 = (uint64_t)-i64;
-               fl |= STBSP__NEGATIVE;
-            }
-         } else {
-            int32_t i = va_arg(va, int32_t);
-            n64 = (uint32_t)i;
-            if ((f[0] != 'u') && (i < 0)) {
-               n64 = (uint32_t)-i;
-               fl |= STBSP__NEGATIVE;
-            }
-         }
-
-         if (fl & STBSP__METRIC_SUFFIX) {
-            if (n64 < 1024)
-               pr = 0;
-            else if (pr == -1)
-               pr = 1;
-            fv = (double)(int64_t)n64;
-            goto doafloat;
-         }
-         
-         // convert to string
-         s = num + STBSP__NUMSZ;
-         l = 0;
-
-         for (;;) {
-            // do in 32-bit chunks (avoid lots of 64-bit divides even with constant denominators)
-            char *o = s - 8;
-            if (n64 >= 100000000) {
-               n = (uint32_t)(n64 % 100000000);
-               n64 /= 100000000;
-            } else {
-               n = (uint32_t)n64;
-               n64 = 0;
-            }
-            if ((fl & STBSP__TRIPLET_COMMA) == 0) {
-               do {
-                  s -= 2;
-                  *(uint16_t *)s = *(uint16_t *)&_stbsp__digitpair.pair[(n % 100) * 2];
-                  n /= 100;
-               } while (n);
-            }
-            while (n) {
-               if ((fl & STBSP__TRIPLET_COMMA) && (l++ == 3)) {
-                  l = 0;
-                  *--s = _stbsp__comma;
-                  --o;
-               } else {
-                  *--s = (char)(n % 10) + '0';
-                  n /= 10;
-               }
-            }
-            if (n64 == 0) {
-               if ((s[0] == '0') && (s != (num + STBSP__NUMSZ)))
-                  ++s;
-               break;
-            }
-            while (s != o)
-               if ((fl & STBSP__TRIPLET_COMMA) && (l++ == 3)) {
-                  l = 0;
-                  *--s = _stbsp__comma;
-                  --o;
-               } else {
-                  *--s = '0';
-               }
-         }
-
-         tail[0] = 0;
-         _stbsp__lead_sign(fl, lead);
-
-         // get the length that we copied
-         l = (uint32_t)((num + STBSP__NUMSZ) - s);
-         if (l == 0) {
-            *--s = '0';
-            l = 1;
-         }
-         cs = l + (3 << 24);
-         if (pr < 0)
-            pr = 0;
-
-      scopy:
-         // get fw=leading/trailing space, pr=leading zeros
-         if (pr < (int32_t)l)
-            pr = l;
-         n = pr + lead[0] + tail[0] + tz;
-         if (fw < (int32_t)n)
-            fw = n;
-         fw -= n;
-         pr -= l;
-
-         // handle right justify and leading zeros
-         if ((fl & STBSP__LEFTJUST) == 0) {
-            if (fl & STBSP__LEADINGZERO) // if leading zeros, everything is in pr
-            {
-               pr = (fw > pr) ? fw : pr;
-               fw = 0;
-            } else {
-               fl &= ~STBSP__TRIPLET_COMMA; // if no leading zeros, then no commas
-            }
-         }
-
-         // copy the spaces and/or zeros
-         if (fw + pr) {
-            int32_t i;
-            uint32_t c;
-
-            // copy leading spaces (or when doing %8.4d stuff)
-            if ((fl & STBSP__LEFTJUST) == 0)
-               while (fw > 0) {
-                  stbsp__cb_buf_clamp(i, fw);
-                  fw -= i;
-                  while (i) {
-                     if ((((uintptr_t)bf) & 3) == 0)
-                        break;
-                     *bf++ = ' ';
-                     --i;
-                  }
-                  while (i >= 4) {
-                     *(uint32_t *)bf = 0x20202020;
-                     bf += 4;
-                     i -= 4;
-                  }
-                  while (i) {
-                     *bf++ = ' ';
-                     --i;
-                  }
-                  stbsp__chk_cb_buf(1);
-               }
-
-            // copy leader
-            sn = lead + 1;
-            while (lead[0]) {
-               stbsp__cb_buf_clamp(i, lead[0]);
-               lead[0] -= (char)i;
-               while (i) {
-                  *bf++ = *sn++;
-                  --i;
-               }
-               stbsp__chk_cb_buf(1);
-            }
-
-            // copy leading zeros
-            c = cs >> 24;
-            cs &= 0xffffff;
-            cs = (fl & STBSP__TRIPLET_COMMA) ? ((uint32_t)(c - ((pr + cs) % (c + 1)))) : 0;
-            while (pr > 0) {
-               stbsp__cb_buf_clamp(i, pr);
-               pr -= i;
-               if ((fl & STBSP__TRIPLET_COMMA) == 0) {
-                  while (i) {
-                     if ((((uintptr_t)bf) & 3) == 0)
-                        break;
-                     *bf++ = '0';
-                     --i;
-                  }
-                  while (i >= 4) {
-                     *(uint32_t *)bf = 0x30303030;
-                     bf += 4;
-                     i -= 4;
-                  }
-               }
-               while (i) {
-                  if ((fl & STBSP__TRIPLET_COMMA) && (cs++ == c)) {
-                     cs = 0;
-                     *bf++ = _stbsp__comma;
-                  } else
-                     *bf++ = '0';
-                  --i;
-               }
-               stbsp__chk_cb_buf(1);
-            }
-         }
-
-         // copy leader if there is still one
-         sn = lead + 1;
-         while (lead[0]) {
-            int32_t i;
-            stbsp__cb_buf_clamp(i, lead[0]);
-            lead[0] -= (char)i;
-            while (i) {
-               *bf++ = *sn++;
-               --i;
-            }
-            stbsp__chk_cb_buf(1);
-         }
-
-         // copy the string
-         n = l;
-         while (n) {
-            int32_t i;
-            stbsp__cb_buf_clamp(i, n);
-            n -= i;
-            while (i >= 4) {
-               *(uint32_t volatile *)bf = *(uint32_t volatile *)s;
-               bf += 4;
-               s += 4;
-               i -= 4;
-            }
-            while (i) {
-               *bf++ = *s++;
-               --i;
-            }
-            stbsp__chk_cb_buf(1);
-         }
-
-         // copy trailing zeros
-         while (tz) {
-            int32_t i;
-            stbsp__cb_buf_clamp(i, tz);
-            tz -= i;
-            while (i) {
-               if ((((uintptr_t)bf) & 3) == 0)
-                  break;
-               *bf++ = '0';
-               --i;
-            }
-            while (i >= 4) {
-               *(uint32_t *)bf = 0x30303030;
-               bf += 4;
-               i -= 4;
-            }
-            while (i) {
-               *bf++ = '0';
-               --i;
-            }
-            stbsp__chk_cb_buf(1);
-         }
-
-         // copy tail if there is one
-         sn = tail + 1;
-         while (tail[0]) {
-            int32_t i;
-            stbsp__cb_buf_clamp(i, tail[0]);
-            tail[0] -= (char)i;
-            while (i) {
-               *bf++ = *sn++;
-               --i;
-            }
-            stbsp__chk_cb_buf(1);
-         }
-
-         // handle the left justify
-         if (fl & STBSP__LEFTJUST)
-            if (fw > 0) {
-               while (fw) {
-                  int32_t i;
-                  stbsp__cb_buf_clamp(i, fw);
-                  fw -= i;
-                  while (i) {
-                     if ((((uintptr_t)bf) & 3) == 0)
-                        break;
-                     *bf++ = ' ';
-                     --i;
-                  }
-                  while (i >= 4) {
-                     *(uint32_t *)bf = 0x20202020;
-                     bf += 4;
-                     i -= 4;
-                  }
-                  while (i--)
-                     *bf++ = ' ';
-                  stbsp__chk_cb_buf(1);
-               }
-            }
-         break;
-
-      default: // unknown, just copy code
-         s = num + STBSP__NUMSZ - 1;
-         *s = f[0];
-         l = 1;
-         fw = fl = 0;
-         lead[0] = 0;
-         tail[0] = 0;
-         pr = 0;
-         dp = 0;
-         cs = 0;
-         goto scopy;
-      }
-      ++f;
-   }
-endfmt:
-
-   if (!callback)
-      *bf = 0;
-   else
-      stbsp__flush_cb();
-
-done:
-   return tlen + (int)(bf - buf);
-}
-
-// cleanup
-#undef STBSP__LEFTJUST
-#undef STBSP__LEADINGPLUS
-#undef STBSP__LEADINGSPACE
-#undef STBSP__LEADING_0X
-#undef STBSP__LEADINGZERO
-#undef STBSP__INTMAX
-#undef STBSP__TRIPLET_COMMA
-#undef STBSP__NEGATIVE
-#undef STBSP__METRIC_SUFFIX
-#undef STBSP__NUMSZ
-#undef stbsp__chk_cb_bufL
-#undef stbsp__chk_cb_buf
-#undef stbsp__flush_cb
-#undef stbsp__cb_buf_clamp
-
-// ============================================================================
-//   wrapper functions
-
-int sprintf(char *buf, char const *fmt, ...)
-{
-   int result;
-   va_list va;
-   va_start(va, fmt);
-   result = __vsprintfcb(0, 0, buf, fmt, va);
-   va_end(va);
-   return result;
-}
-
-typedef struct stbsp__context {
-   char *buf;
-   int count;
-   int length;
-   char tmp[STB_SPRINTF_MIN];
-} stbsp__context;
-
-static char *stbsp__clamp_callback(const char *buf, void *user, int len)
-{
-   stbsp__context *c = (stbsp__context *)user;
-      
-   c->length += len;
-
-   if (len > c->count)
-      len = c->count;
-
-   if (len) {
-      if (buf != c->buf) {
-         const char *s, *se;
-         char *d;
-         d = c->buf;
-         s = buf;
-         se = buf + len;
-         do {
-            *d++ = *s++;
-         } while (s < se);
-      }
-      c->buf += len;
-      c->count -= len;
-   }
-
-   if (c->count <= 0)
-      return c->tmp;
-   return (c->count >= STB_SPRINTF_MIN) ? c->buf : c->tmp; // go direct into buffer if you can
-}
-
-char * stbsp__count_clamp_callback( const char * buf, void * user, int len )
-{
-   stbsp__context * c = (stbsp__context*)user;
-   (void) sizeof(buf);
-
-   c->length += len;
-   return c->tmp; // go direct into buffer if you can
-}
-
-int vsnprintf( char * buf, int count, char const * fmt, va_list va )
-{
-   stbsp__context c;
-   if ( (count == 0) && !buf )
-   {
-      c.length = 0;
-
-      __vsprintfcb( stbsp__count_clamp_callback, &c, c.tmp, fmt, va );
-   }
-   else
-   {
-      int l;
-
-      c.buf = buf;
-      c.count = count;
-      c.length = 0;
-
-      __vsprintfcb( stbsp__clamp_callback, &c, stbsp__clamp_callback(0,&c,0), fmt, va );
-
-      // zero-terminate
-      l = (int)( c.buf - buf );
-      if ( l >= count ) // should never be greater, only equal (or less) than count
-         l = count - 1;
-      buf[l] = 0;
-   }
-
-   return c.length;
-}
-
-int snprintf(char *buf, int count, char const *fmt, ...)
-{
-   int result;
-   va_list va;
-   va_start(va, fmt);
-
-   result = vsnprintf(buf, count, fmt, va);
-   va_end(va);
-
-   return result;
-}
-
-int vsprintf(char *buf, char const *fmt, va_list va)
-{
-   return __vsprintfcb(0, 0, buf, fmt, va);
-}
-
-// =======================================================================
-//   low level float utility functions
-
-// copies d to bits w/ strict aliasing (this compiles to nothing on /Ox)
-#define STBSP__COPYFP(dest, src)  { *(long *)&dest = *(long *)&src; }
-/*
-                                    \
-   {                                               \
-      int cn;                                      \
-      for (cn = 0; cn < 8; cn++)                   \
-         ((char *)&dest)[cn] = ((char *)&src)[cn]; \
-   }
-*/
-
-// get float info
-int32_t _stbsp__real_to_parts(int64_t *bits, int32_t *expo, double value)
-{
-   double d;
-   int64_t b = 0;
-
-   // load value and round at the frac_digits
-   d = value;
-
-   STBSP__COPYFP(b, d);
-
-   *bits = b & ((((uint64_t)1) << 52) - 1);
-   *expo = (int32_t)(((b >> 52) & 2047) - 1023);
-
-   return (int32_t)((uint64_t) b >> 63);
-}
-
-static double const stbsp__bot[23] = {
-   1e+000, 1e+001, 1e+002, 1e+003, 1e+004, 1e+005, 1e+006, 1e+007, 1e+008, 1e+009, 1e+010, 1e+011,
-   1e+012, 1e+013, 1e+014, 1e+015, 1e+016, 1e+017, 1e+018, 1e+019, 1e+020, 1e+021, 1e+022
-};
-static double const stbsp__negbot[22] = {
-   1e-001, 1e-002, 1e-003, 1e-004, 1e-005, 1e-006, 1e-007, 1e-008, 1e-009, 1e-010, 1e-011,
-   1e-012, 1e-013, 1e-014, 1e-015, 1e-016, 1e-017, 1e-018, 1e-019, 1e-020, 1e-021, 1e-022
-};
-static double const stbsp__negboterr[22] = {
-   -5.551115123125783e-018,  -2.0816681711721684e-019, -2.0816681711721686e-020, -4.7921736023859299e-021, -8.1803053914031305e-022, 4.5251888174113741e-023,
-   4.5251888174113739e-024,  -2.0922560830128471e-025, -6.2281591457779853e-026, -3.6432197315497743e-027, 6.0503030718060191e-028,  2.0113352370744385e-029,
-   -3.0373745563400371e-030, 1.1806906454401013e-032,  -7.7705399876661076e-032, 2.0902213275965398e-033,  -7.1542424054621921e-034, -7.1542424054621926e-035,
-   2.4754073164739869e-036,  5.4846728545790429e-037,  9.2462547772103625e-038,  -4.8596774326570872e-039
-};
-static double const stbsp__top[13] = {
-   1e+023, 1e+046, 1e+069, 1e+092, 1e+115, 1e+138, 1e+161, 1e+184, 1e+207, 1e+230, 1e+253, 1e+276, 1e+299
-};
-static double const stbsp__negtop[13] = {
-   1e-023, 1e-046, 1e-069, 1e-092, 1e-115, 1e-138, 1e-161, 1e-184, 1e-207, 1e-230, 1e-253, 1e-276, 1e-299
-};
-static double const stbsp__toperr[13] = {
-   8388608.,
-   6.8601809640529717e+028,
-   -7.253143638152921e+052,
-   -4.3377296974619174e+075,
-   -1.5559416129466825e+098,
-   -3.2841562489204913e+121,
-   -3.7745893248228135e+144,
-   -1.7356668416969134e+167,
-   -3.8893577551088374e+190,
-   -9.9566444326005119e+213,
-   6.3641293062232429e+236,
-   -5.2069140800249813e+259,
-   -5.2504760255204387e+282
-};
-static double const stbsp__negtoperr[13] = {
-   3.9565301985100693e-040,  -2.299904345391321e-063,  3.6506201437945798e-086,  1.1875228833981544e-109,
-   -5.0644902316928607e-132, -6.7156837247865426e-155, -2.812077463003139e-178,  -5.7778912386589953e-201,
-   7.4997100559334532e-224,  -4.6439668915134491e-247, -6.3691100762962136e-270, -9.436808465446358e-293,
-   8.0970921678014997e-317
-};
-
-static uint64_t const stbsp__powten[20] = {
-   1,
-   10,
-   100,
-   1000,
-   10000,
-   100000,
-   1000000,
-   10000000,
-   100000000,
-   1000000000,
-   10000000000ULL,
-   100000000000ULL,
-   1000000000000ULL,
-   10000000000000ULL,
-   100000000000000ULL,
-   1000000000000000ULL,
-   10000000000000000ULL,
-   100000000000000000ULL,
-   1000000000000000000ULL,
-   10000000000000000000ULL
-};
-#define stbsp__tento19th (1000000000000000000ULL)
-
-#define stbsp__ddmulthi(oh, ol, xh, yh)                            \
-   {                                                               \
-      double ahi = 0, alo, bhi = 0, blo;                           \
-      int64_t bt;                                             \
-      oh = xh * yh;                                                \
-      STBSP__COPYFP(bt, xh);                                       \
-      bt &= ((~(uint64_t)0) << 27);                           \
-      STBSP__COPYFP(ahi, bt);                                      \
-      alo = xh - ahi;                                              \
-      STBSP__COPYFP(bt, yh);                                       \
-      bt &= ((~(uint64_t)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 = (int64_t)xh;                \
-      vh = (double)ob;                      \
-      ahi = (xh - vh);                      \
-      t = (ahi - xh);                       \
-      alo = (xh - (ahi - t)) - (vh + t);    \
-      ob += (int64_t)(ahi + alo + xl); \
-   }
-
-#define stbsp__ddrenorm(oh, ol) \
-   {                            \
-      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__ddmultlos(oh, ol, xh, yl) ol = ol + (xh * yl);
-
-static void stbsp__raise_to_power10(double *ohi, double *olo, double d, int32_t power) // power can be -323 to +350
-{
-   double ph, pl;
-   if ((power >= 0) && (power <= 22)) {
-      stbsp__ddmulthi(ph, pl, d, stbsp__bot[power]);
-   } else {
-      int32_t e, et, eb;
-      double p2h, p2l;
-
-      e = power;
-      if (power < 0)
-         e = -e;
-      et = (e * 0x2c9) >> 14; /* %23 */
-      if (et > 13)
-         et = 13;
-      eb = e - (et * 23);
-
-      ph = d;
-      pl = 0.0;
-      if (power < 0) {
-         if (eb) {
-            --eb;
-            stbsp__ddmulthi(ph, pl, d, stbsp__negbot[eb]);
-            stbsp__ddmultlos(ph, pl, d, stbsp__negboterr[eb]);
-         }
-         if (et) {
-            stbsp__ddrenorm(ph, pl);
-            --et;
-            stbsp__ddmulthi(p2h, p2l, ph, stbsp__negtop[et]);
-            stbsp__ddmultlo(p2h, p2l, ph, pl, stbsp__negtop[et], stbsp__negtoperr[et]);
-            ph = p2h;
-            pl = p2l;
-         }
-      } else {
-         if (eb) {
-            e = eb;
-            if (eb > 22)
-               eb = 22;
-            e -= eb;
-            stbsp__ddmulthi(ph, pl, d, stbsp__bot[eb]);
-            if (e) {
-               stbsp__ddrenorm(ph, pl);
-               stbsp__ddmulthi(p2h, p2l, ph, stbsp__bot[e]);
-               stbsp__ddmultlos(p2h, p2l, stbsp__bot[e], pl);
-               ph = p2h;
-               pl = p2l;
-            }
-         }
-         if (et) {
-            stbsp__ddrenorm(ph, pl);
-            --et;
-            stbsp__ddmulthi(p2h, p2l, ph, stbsp__top[et]);
-            stbsp__ddmultlo(p2h, p2l, ph, pl, stbsp__top[et], stbsp__toperr[et]);
-            ph = p2h;
-            pl = p2l;
-         }
-      }
-   }
-   stbsp__ddrenorm(ph, pl);
-   *ohi = ph;
-   *olo = pl;
-}
-
-// given a float value, returns the significant bits in bits, and the position of the
-//   decimal point in decimal_pos.  +/-INF and NAN are specified by special values
-//   returned in the decimal_pos parameter.
-// frac_digits is absolute normally, but if you want from first significant digits (got %g and %e), or in 0x80000000
-static int32_t _stbsp__real_to_str(char const **start, uint32_t *len, char *out, int32_t *decimal_pos, double value, uint32_t frac_digits)
-{
-   double d;
-   int64_t bits = 0;
-   int32_t expo, e, ng, tens;
-
-   d = value;
-   STBSP__COPYFP(bits, d);
-   expo = (int32_t)((bits >> 52) & 2047);
-   ng = (int32_t)((uint64_t) bits >> 63);
-   if (ng)
-      d = -d;
-
-   if (expo == 2047) // is nan or inf?
-   {
-      *start = (bits & ((((uint64_t)1) << 52) - 1)) ? "NaN" : "Inf";
-      *decimal_pos = STBSP__SPECIAL;
-      *len = 3;
-      return ng;
-   }
-
-   if (expo == 0) // is zero or denormal
-   {
-      if (((uint64_t) bits << 1) == 0) // do zero
-      {
-         *decimal_pos = 1;
-         *start = out;
-         out[0] = '0';
-         *len = 1;
-         return ng;
-      }
-      // find the right expo for denormals
-      {
-         int64_t v = ((uint64_t)1) << 51;
-         while ((bits & v) == 0) {
-            --expo;
-            v >>= 1;
-         }
-      }
-   }
-
-   // find the decimal exponent as well as the decimal bits of the value
-   {
-      double ph, pl;
-
-      // log10 estimate - very specifically tweaked to hit or undershoot by no more than 1 of log10 of all expos 1..2046
-      tens = expo - 1023;
-      tens = (tens < 0) ? ((tens * 617) / 2048) : (((tens * 1233) / 4096) + 1);
-
-      // move the significant bits into position and stick them into an int
-      stbsp__raise_to_power10(&ph, &pl, d, 18 - tens);
-
-      // get full as much precision from double-double as possible
-      stbsp__ddtoS64(bits, ph, pl);
-
-      // check if we undershot
-      if (((uint64_t)bits) >= stbsp__tento19th)
-         ++tens;
-   }
-
-   // now do the rounding in integer land
-   frac_digits = (frac_digits & 0x80000000) ? ((frac_digits & 0x7ffffff) + 1) : (tens + frac_digits);
-   if ((frac_digits < 24)) {
-      uint32_t dg = 1;
-      if ((uint64_t)bits >= stbsp__powten[9])
-         dg = 10;
-      while ((uint64_t)bits >= stbsp__powten[dg]) {
-         ++dg;
-         if (dg == 20)
-            goto noround;
-      }
-      if (frac_digits < dg) {
-         uint64_t r;
-         // add 0.5 at the right position and round
-         e = dg - frac_digits;
-         if ((uint32_t)e >= 24)
-            goto noround;
-         r = stbsp__powten[e];
-         bits = bits + (r / 2);
-         if ((uint64_t)bits >= stbsp__powten[dg])
-            ++tens;
-         bits /= r;
-      }
-   noround:;
-   }
-
-   // kill long trailing runs of zeros
-   if (bits) {
-      uint32_t n;
-      for (;;) {
-         if (bits <= 0xffffffff)
-            break;
-         if (bits % 1000)
-            goto donez;
-         bits /= 1000;
-      }
-      n = (uint32_t)bits;
-      while ((n % 1000) == 0)
-         n /= 1000;
-      bits = n;
-   donez:;
-   }
-
-   // convert to string
-   out += 64;
-   e = 0;
-   for (;;) {
-      uint32_t n;
-      char *o = out - 8;
-      // do the conversion in chunks of U32s (avoid most 64-bit divides, worth it, constant denomiators be damned)
-      if (bits >= 100000000) {
-         n = (uint32_t)(bits % 100000000);
-         bits /= 100000000;
-      } else {
-         n = (uint32_t)bits;
-         bits = 0;
-      }
-      while (n) {
-         out -= 2;
-         *(uint16_t *)out = *(uint16_t *)&_stbsp__digitpair.pair[(n % 100) * 2];
-         n /= 100;
-         e += 2;
-      }
-      if (bits == 0) {
-         if ((e) && (out[0] == '0')) {
-            ++out;
-            --e;
-         }
-         break;
-      }
-      while (out != o) {
-         *--out = '0';
-         ++e;
-      }
-   }
-
-   *decimal_pos = tens;
-   *start = out;
-   *len = e;
-   return ng;
-}
-
-#undef stbsp__ddmulthi
-#undef stbsp__ddrenorm
-#undef stbsp__ddmultlo
-#undef stbsp__ddmultlos
-#undef STBSP__SPECIAL
-#undef STBSP__COPYFP
-
-// these are the constants that gnu uses, but they don't really matter for us
-#define _IOFBF 0
-#define _IOLBF 1
-#define _IONBF 2
-#define BUFSIZ 8192
-
-
-#define EOF (-1)
-#define FILENAME_MAX 4096
-#define FOPEN_MAX 16
-typedef long fpos_t;
-#define L_tmpnam 20
-#define SEEK_CUR 1
-#define SEEK_END 2
-#define SEEK_SET 0
-#define TMP_MAX 500
-
-long lseek(int fd, long offset, int whence) {
-	return __syscall(8, fd, offset, whence, 0, 0, 0);
-}
-
-size_t fwrite(const void *ptr, size_t size, size_t nmemb, FILE *stream) {
-	size_t count;
-	if (nmemb > 0xffffffffffffffff / size) {
-		stream->err = 1;
-		return 0;
-	}
-	count = size * nmemb;
-	while (count > 0) {
-		long n = write(stream->fd, ptr, count);
-		if (n <= 0) break;
-		count -= n;
-		ptr = (char *)ptr + n;
-	}
-	if (count > 0) stream->err = 1;
-	return nmemb - count / size;
-}
-
-size_t fread(void *ptr, size_t size, size_t nmemb, FILE *stream) {
-	size_t count;
-	long n = 1;
-	if (nmemb > 0xffffffffffffffff / size) {
-		stream->err = 1;
-		return 0;
-	}
-	if (size == 0 || nmemb == 0) return 0;
-	
-	count = size * nmemb;
-	
-	if (stream->has_ungetc) {
-		*(char *)ptr = stream->ungetc;
-		stream->has_ungetc = 0;
-		ptr = (char *)ptr + 1;
-		--count;
-	}
-	if (stream->eof) return 0;
-	
-	while (count > 0) {
-		n = read(stream->fd, ptr, count);
-		if (n <= 0) break;
-		count -= n;
-		ptr = (char *)ptr + n;
-	}
-	if (n == 0) stream->eof = 1;
-	if (n < 0) stream->err = 1;
-	return nmemb - count / size;
-}
-
-static char *__fprintf_callback(const char *buf, void *user, int len) {
-	FILE *fp = user;
-	fwrite(buf, 1, len, fp);
-	return buf;
-}
-
-int vfprintf(FILE *fp, const char *fmt, va_list args) {
-	char buf[STB_SPRINTF_MIN];
-	return __vsprintfcb(__fprintf_callback, fp, buf, fmt, args);
-}
-
-int fprintf(FILE *fp, const char *fmt, ...) {
-	va_list args;
-	int ret;
-	va_start(args, fmt);
-	ret = vfprintf(fp, fmt, args);
-	va_end(args);
-	return ret;
-}
-
-int vprintf(const char *fmt, va_list args) {
-	return vfprintf(stdout, fmt, args);	
-}
-
-int printf(const char *fmt, ...) {
-	va_list args;
-	int ret;
-	va_start(args, fmt);
-	ret = vfprintf(stdout, fmt, args);
-	va_end(args);
-	return ret;
-}
-
-#define O_RDONLY    0
-#define O_WRONLY    1
-#define O_RDWR      2
-#define O_CREAT     0100
-#define O_TRUNC     01000
-#define O_APPEND    02000
-#define O_DIRECTORY 0200000
-#define __O_TMPFILE   020000000
-#define O_TMPFILE  (__O_TMPFILE | O_DIRECTORY)
-int open(const char *path, int flags, int mode) {
-	return __syscall(2, path, flags, mode, 0, 0, 0);
-}
-
-int close(int fd) {
-	return __syscall(3, fd, 0, 0, 0, 0, 0);
-}
-
-
-int _fopen_flags_from_mode(const char *mode) {
-	int flags;
-	if (mode[1] == '+' || (mode[1] && mode[2] == '+')) {
-		// open for updating
-		flags = O_RDWR;
-		switch (mode[0]) {
-		case 'r': break;
-		case 'w': flags |= O_TRUNC | O_CREAT; break;
-		case 'a': flags |= O_APPEND | O_CREAT; break;
-		default: return -1;
-		}
-	} else {
-		switch (mode[0]) {
-		case 'r': flags = O_RDONLY; break;
-		case 'w': flags = O_WRONLY | O_TRUNC | O_CREAT; break;
-		case 'a': flags = O_WRONLY | O_APPEND | O_CREAT; break;
-		default: return -1;
-		}
-	}
-	return flags;
-}
-
-FILE *_FILE_from_fd(int fd) {
-	FILE *fp = malloc(sizeof(FILE));
-	// NB: our malloc implementation returns zeroed memory
-	fp->fd = fd;
-	return fp;
-}
-
-FILE *fopen(const char *filename, const char *mode) {
-	int flags = _fopen_flags_from_mode(mode);
-	if (flags < 0) return NULL;
-	int fd;
-	
-	fd = open(filename, flags, 0644);
-	if (fd < 0) return NULL;
-	return _FILE_from_fd(fd);
-}
-
-
-FILE *fdopen(int fd, const char *mode) {
-	// mode doesn't matter, hopefully
-	return _FILE_from_fd(fd);
-}
-
-int fclose(FILE *stream) {
-	int ret = close(stream->fd);
-	free(stream);
-	return ret;
-}
-
-int fflush(FILE *stream) {
-	// we don't buffer anything	
-	return 0;
-}
-
-FILE *freopen(const char *filename, const char *mode, FILE *stream) {
-	int flags = _fopen_flags_from_mode(mode);
-	close(stream->fd);
-	if (flags < 0) return NULL;
-	stream->eof = stream->err = 0;
-	stream->fd = open(filename, flags, 0644);
-	return stream;
-}
-
-int unlink(const char *pathname) {
-	return __syscall(87, pathname, 0, 0, 0, 0, 0);
-}
-
-int rmdir(const char *pathname) {
-	return __syscall(84, pathname, 0, 0, 0, 0, 0);
-}
-
-int remove(const char *filename) {
-	return rmdir(filename)
-		? unlink(filename)
-		: 0;
-}
-
-int rename(const char *old, const char *new) {
-	return __syscall(82, old, new, 0, 0, 0, 0);
-}
-
-char *tmpnam(char *s) {
-	struct timespec t = {0};
-	do {
-		// NB: we can't use rand() here because
-		// "The implementation shall behave as if no library function calls the rand function." C89 § 4.10.2.1
-		clock_gettime(CLOCK_MONOTONIC, &t); // use clock as a source of randomness
-		sprintf(s, "/tmp/C_%06u", t.tv_nsec % 1000000);
-	} while (access(s, F_OK) == 0); // if file exists, generate a new name
-	return s;
-}
-
-FILE *tmpfile(void) {
-	int fd = open("/tmp", O_TMPFILE | O_RDWR, 0600);
-	if (fd < 0) return NULL;
-	return _FILE_from_fd(fd);
-}
-
-int getc(FILE *stream) {
-	unsigned char c;
-	long n;
-	if (stream->eof) return EOF;
-	n = fread(&c, 1, 1, stream);
-	if (n != 1) return EOF;
-	return c;
-}
-
-int fgetc(FILE *stream) {
-	return getc(stream);
-}
-
-char *fgets(char *s, int n, FILE *stream) {
-	char *p = s, *end = p + (n-1);
-	
-	if (stream->eof) return NULL;
-	
-	while (p < end) {
-		size_t n = fread(p, 1, 1, stream);
-		if (n != 1) {
-			if (p == s) {
-				// end of file reached, and no characters were read
-				return NULL;
-			}
-			break;
-		}
-		if (*p == '\n') {
-			++p;
-			break;
-		}
-		++p;
-	}
-	*p = '\0';
-	return s;
-}
-
-int putc(int c, FILE *stream) {
-	size_t n = fwrite(&c, 1, 1, stream);
-	if (n == 1) return c;
-	return EOF;
-}
-
-int fputc(int c, FILE *stream) {
-	return putc(c, stream);
-}
-
-int fputs(const char *s, FILE *stream) {
-	size_t n = strlen(s);
-	if (fwrite(s, 1, n, stream) == n)
-		return n;
-	return EOF;
-}
-
-int getchar(void) {
-	return getc(stdin);
-}
-
-char *gets(char *s) {
-	char *p;
-	fgets(s, 1l<<20, stdin);
-	if (*s) {
-		p = s + strlen(s) - 1;
-		// remove newline
-		if (*p == '\n')
-			*p = '\0';
-	}
-	return s;
-}
-
-int putchar(int c) {
-	return putc(c, stdout);
-}
-
-int puts(const char *s) {
-	fputs(s, stdout);
-	putchar('\n');
-}
-
-int ungetc(int c, FILE *stream) {
-	if (c == EOF || stream->has_ungetc) return EOF;
-	stream->has_ungetc = 1;
-	stream->ungetc = c;
-	stream->eof = 0;
-	return c;
-}
-
-
-int fgetpos(FILE *stream, fpos_t *pos) {
-	long off = lseek(stream->fd, 0, SEEK_CUR);
-	if (off < 0) {
-		errno = EIO;
-		return EIO;
-	}
-	*pos = off;
-	return 0;
-}
-
-int fsetpos(FILE *stream, const fpos_t *pos) {
-	long off = lseek(stream->fd, *pos, SEEK_SET);
-	if (off < 0) {
-		errno = EIO;
-		return EIO;
-	}
-	stream->eof = 0;
-	return 0;
-}
-
-int fseek(FILE *stream, long int offset, int whence) {
-	long off = lseek(stream->fd, offset, whence);
-	if (off < 0) {
-		return EIO;
-	}
-	stream->eof = 0;
-	return 0;
-}
-
-long int ftell(FILE *stream) {
-	long off = lseek(stream->fd, 0, SEEK_CUR);
-	if (off < 0) {
-		errno = EIO;
-		return -1L;
-	}
-	return off;
-}
-
-void rewind(FILE *stream) {
-	fseek(stream, 0, SEEK_SET);
-	stream->err = 0;
-}
-
-void clearerr(FILE *stream) {
-	stream->err = 0;
-}
-
-int feof(FILE *stream) {
-	return stream->eof;
-}
-
-int ferror(FILE *stream) {
-	return stream->err;
-}
-
-// we don't buffer anything
-// we're allowed to do this: "The contents of the array at any time are indeterminate." C89 § 4.9.5.6
-void setbuf(FILE *stream, char *buf) {
-}
-
-int setvbuf(FILE *stream, char *buf, int mode, size_t size) {
-	return 0;
-}
-
-typedef int _VscanfNextChar(void *, long *);
-typedef int _VscanfPeekChar(void *);
-int _str_next_char(void *dat, long *pos) {
-	const char **s = dat;
-	int c = **s;
-	if (c == '\0') return c;
-	++*pos;
-	++*s;
-	return c;
-}
-int _file_next_char(void *dat, long *pos) {
-	int c = getc(dat);
-	if (c == EOF) return c;
-	++*pos;
-	return c;
-}
-int _str_peek_char(void *dat) {
-	const char **s = dat;
-	return **s;
-}
-int _file_peek_char(void *dat) {
-	int c = getc(dat);
-	ungetc(c, dat);
-	return c;
-}
-
-void _bad_scanf(void) {
-	fprintf(stderr, "bad scanf format.\n");
-	abort();
-}
-
-char _parse_escape_sequence(char **p_str) {
-	char *str = *p_str;
-	if (*str == '\\') {
-		++str;
-		switch (*str) {
-		case 'n': *p_str = str + 1; return '\n';
-		case 'v': *p_str = str + 1; return '\v';
-		case 't': *p_str = str + 1; return '\t';
-		case 'a': *p_str = str + 1; return '\a';
-		case 'f': *p_str = str + 1; return '\f';
-		case 'r': *p_str = str + 1; return '\r';
-		case 'b': *p_str = str + 1; return '\b';
-		case 'x':
-			++str;
-			return (char)strtoul(str, p_str, 16);
-		case '0':case '1':case '2':case '3':case '4':case '5':case '6':case '7': {
-			int c = *str++ - '0';
-			if (_isdigit_in_base(*str, 8)) c = (c << 3) + *str - '0', ++str;
-			if (_isdigit_in_base(*str, 8)) c = (c << 3) + *str - '0', ++str;
-			return c;
-		} break;
-		default: *p_str = str + 1; return *str;
-		}
-	} else {
-		*p_str += 1;
-		return *str;	
-	}
-}
-
-int _vscanf(_VscanfNextChar *__next_char, _VscanfPeekChar *__peek_char, int terminator, void *data, const char *fmt, va_list args) {
-	long pos = 0; // position in file/string (needed for %n)
-	int assignments = 0;
-	char number[128], *p_number;
-	unsigned char charset[256];
-	int i;
-	
-	#define _next_char() (__next_char(data, &pos))
-	#define _peek_char() (__peek_char(data))
-	while (*fmt) {
-		if (*fmt == '%') {
-			int base = 10;
-			int assign = 1;
-			long field_width = LONG_MAX;
-			int modifier = 0;
-			char *end;
-			
-			++fmt;
-			if (*fmt == '*') assign = 0, ++fmt; // assignment suppression
-			if (*fmt >= '0' && *fmt <= '9')
-				field_width = strtol(fmt, &fmt, 10); // field width
-			if (*fmt == 'l' || *fmt == 'L' || *fmt == 'h')
-				modifier = *fmt, ++fmt;
-			switch (*fmt) {
-			case 'd': {
-				while (isspace(_peek_char())) _next_char();
-				// signed decimal integer
-				++fmt;
-				if (field_width > 100) field_width = 100; // max number length
-				if (field_width == 0) goto vscanf_done; // number can't have size 0
-				int c = _peek_char();
-				p_number = number;
-				if (c == '-' || c == '+') {
-					if (field_width == 1) goto vscanf_done;
-					*p_number++ = _next_char();
-				}
-				while ((p_number - number) < field_width && isdigit(_peek_char()))
-					*p_number++ = _next_char();
-				*p_number = 0;
-				long value = strtol(number, &end, 10);
-				if (end == number) goto vscanf_done; // bad number
-				if (assign) {
-					switch (modifier) {
-					case 0: *va_arg(args, int*) = _clamp_long_to_int(value); break;
-					case 'h': *va_arg(args, short*) = _clamp_long_to_short(value); break;
-					case 'l': *va_arg(args, long*) = value; break;
-					default: _bad_scanf(); break;
-					}
-					++assignments;
-				}
-			} break;
-			case 'i': {
-				while (isspace(_peek_char())) _next_char();
-				// signed integer
-				long value = 0;
-				++fmt;
-				if (field_width > 100) field_width = 100; // max number length
-				if (field_width == 0) goto vscanf_done; // number can't have size 0
-				int c = _peek_char();
-				p_number = number;
-				if (c == '-' || c == '+') {
-					if (field_width == 1) goto vscanf_done;
-					*p_number++ = _next_char();
-					c = _peek_char();
-				}
-				if (c == '0') {
-					*p_number++ = _next_char();
-					if ((p_number - number) < field_width) {
-						c = _peek_char();
-						if (c == 'x') {
-							if ((p_number - number) < field_width-1)
-								*p_number++ = _next_char(), base = 16;
-							else
-								goto emit_value; // e.g. 0x... width field width 2
-						} else {
-							base = 8;
-						}
-					} else goto emit_value;
-				}
-				while ((p_number - number) < field_width && _isdigit_in_base(_peek_char(), base))
-					*p_number++ = _next_char();
-				*p_number = 0;
-				value = strtol(number, &end, 0);
-				if (end == number) goto vscanf_done; // bad number
-				emit_value:
-				if (assign) {
-					switch (modifier) {
-					case 0: *va_arg(args, int*) = _clamp_long_to_int(value); break;
-					case 'h': *va_arg(args, short*) = _clamp_long_to_short(value); break;
-					case 'l': *va_arg(args, long*) = value; break;
-					default: _bad_scanf(); break;
-					}
-					++assignments;
-				}
-			} break;
-			case 'o': base = 8; goto vscanf_unsigned;
-			case 'u': goto vscanf_unsigned;
-			case 'p': modifier = 'l', base = 16; goto vscanf_unsigned;
-			case 'x': case 'X': base = 16; goto vscanf_unsigned;
-			vscanf_unsigned:{
-				while (isspace(_peek_char())) _next_char();
-				// unsigned integers
-				++fmt;
-				if (field_width > 100) field_width = 100; // max number length
-				if (field_width == 0) goto vscanf_done;
-				int c = _peek_char();
-				p_number = number;
-				if (c == '+') *p_number++ = _next_char();
-				while ((p_number - number) < field_width && _isdigit_in_base(_peek_char(), base))
-					*p_number++ = _next_char();
-				*p_number = 0;
-				unsigned long value = strtoul(number, &end, base);
-				if (end == number) goto vscanf_done; // bad number
-				if (assign) {
-					switch (modifier) {
-					case 0: *va_arg(args, unsigned*) = _clamp_ulong_to_uint(value); break;
-					case 'h': *va_arg(args, unsigned short*) = _clamp_ulong_to_ushort(value); break;
-					case 'l': *va_arg(args, unsigned long*) = value; break;
-					default: _bad_scanf(); break;
-					}
-					++assignments;
-				}
-			} break;
-			case 'e':
-			case 'f':
-			case 'g':
-			case 'E':
-			case 'G': {
-				while (isspace(_peek_char())) _next_char();
-				// floats
-				++fmt;
-				if (field_width > 100) field_width = 100; // max number length
-				if (field_width == 0) goto vscanf_done;
-				int c = _peek_char();
-				p_number = number;
-				if (c == '-' || c == '+') {
-					if (field_width == 1) goto vscanf_done;
-					*p_number++ = _next_char();
-					c = _peek_char();
-				}
-				if (c != '.' && !isdigit(c))
-					goto vscanf_done;
-				while ((p_number - number) < field_width && isdigit(_peek_char()))
-					*p_number++ = _next_char();
-				if ((p_number - number) < field_width && _peek_char() == '.') {
-					*p_number++ = _next_char();
-					while ((p_number - number) < field_width && isdigit(_peek_char()))
-						*p_number++ = _next_char();
-				}
-				c = _peek_char();
-				if ((p_number - number) < field_width && c == 'e' || c == 'E') {
-					*p_number++ = _next_char();
-					c = _peek_char();
-					if ((p_number - number) < field_width && c == '+')
-						*p_number++ = _next_char();
-					else if ((p_number - number) < field_width && c == '-')
-						*p_number++ = _next_char();
-					
-					while ((p_number - number) < field_width && isdigit(_peek_char()))
-						*p_number++ = _next_char();
-				}
-				double value = strtod(number, &end);
-				if (end == number) goto vscanf_done; // bad number
-				if (assign) {
-					switch (modifier) {
-					case 0: *va_arg(args, float*) = value; break;
-					case 'l': case 'L': *va_arg(args, double*) = value; break;
-					default: _bad_scanf(); break;
-					}
-					
-					++assignments;
-				}
-			} break;
-			case 's': {
-				while (isspace(_peek_char())) _next_char();
-				// string of non-whitespace characters
-				++fmt;
-				char *str = assign ? va_arg(args, char*) : NULL, *p = str;
-				for (i = 0; i < field_width && !isspace(_peek_char()); ++i) {
-					int c = _next_char();
-					if (c == terminator) break;
-					if (p) *p++ = c;
-				}
-				if (i == 0) goto vscanf_done; // empty sequence
-				if (p) {
-					*p = 0;
-					++assignments;
-				}
-			} break;
-			case '[': {
-				// string of characters in charset
-				int complement = 0;
-				++fmt;
-				if (*fmt == '^') {
-					complement = 1;
-					++fmt;
-				}
-				memset(charset, complement, sizeof charset);
-				do { // NB: this is a do-while loop and not a while loop, because []] matches strings of ]'s.
-					charset[(unsigned char)_parse_escape_sequence(&fmt)] = !complement;
-				} while (*fmt != ']');
-				++fmt; // skip ]
-				char *str = assign ? va_arg(args, char*) : NULL, *p = str;
-				for (i = 0; i < field_width && charset[(unsigned char)_peek_char()]; ++i) {
-					int c = _next_char();
-					if (c == terminator) break;
-					if (p) *p++ = c;
-				}
-				if (i == 0) goto vscanf_done; // empty sequence
-				if (p) {
-					*p = 0;
-					++assignments;
-				}
-			} break;
-			case 'c': {
-				// string of characters
-				++fmt;
-				char *str = assign ? va_arg(args, char*) : NULL, *p = str;
-				if (field_width == LONG_MAX) field_width = 1;
-				for (i = 0; i < field_width; ++i) {
-					int c = _next_char();
-					if (c == terminator) break;
-					if (p) *p++ = c;
-				}
-				if (i < field_width) goto vscanf_done; // end of file encountered
-				if (p) {
-					++assignments;
-				}
-			} break;
-			case 'n':
-				++fmt;
-				switch (modifier) {
-				case 0: *va_arg(args, int *) = pos; break;
-				case 'h': *va_arg(args, short *) = pos; break;
-				case 'l': *va_arg(args, long *) = pos; break;
-				default: _bad_scanf(); break;
-				}
-				break;
-			default:
-				_bad_scanf();
-				break;
-			}
-		} else if (isspace(*fmt)) {
-			// skip spaces in input
-			++fmt;
-			while (isspace(_peek_char())) _next_char();
-		} else {
-			if (_peek_char() == *fmt) {
-				// format character matches input character
-				++fmt;
-				_next_char();
-			} else {
-				// format character doesn't match input character; stop parsing
-				break;
-			}
-		}
-	}
-	vscanf_done:
-	if (_peek_char() == terminator && assignments == 0) return EOF;
-	return assignments;
-	#undef _next_char
-	#undef _peek_char
-}
-
-int fscanf(FILE *stream, const char *format, ...) {
-	va_list args;
-	va_start(args, format);
-	int ret = _vscanf(_file_next_char, _file_peek_char, EOF, stream, format, args);
-	va_end(args);
-	return ret;
-}
-
-int sscanf(const char *s, const char *format, ...) {
-	va_list args;
-	va_start(args, format);
-	int ret = _vscanf(_str_next_char, _str_peek_char, 0, &s, format, args);
-	va_end(args);
-	return ret;
-}
-
-int scanf(const char *format, ...) {
-	va_list args;
-	va_start(args, format);
-	int ret = _vscanf(_file_next_char, _file_peek_char, EOF, stdin, format, args);
-	va_end(args);
-	return ret;	
-}
-
-
-void perror(const char *s) {
-	printf("%s: %s\n", s, strerror(errno));
-}
-
-#undef STB_SPRINTF_MIN
-
-#endif // _STDIO_H