Merge branch 'master' of https://secure.softndesign.org/git/calc

[calc.git] / fdprintf.c

diff --git a/fdprintf.c b/fdprintf.c
index 1bc1b1907a0de6f82d320a015d562131c39cb7ad..76722fc508851be20d29be71f906a06b6f3e276b 100644 (file)
--- a/fdprintf.c
+++ b/fdprintf.c
@@ -43,6 +43,38 @@ char *itoa (char *str, unsigned u, unsigned int sz)
     return s;
 }
 
+double tenpower(int n)
+{
+    double t = 1.0;
+    int i;
+    for (i = 0; i < n; i++) {
+        t *= 10;
+    }
+    for (i = 0; i > n; i--) {
+        t /= 10;
+    }
+    return t;
+}
+
+int getexponant (double *f, int maxexp)
+{
+    int exp = 0;
+    while (*f > 10) {
+        *f /= 10;
+        exp++;
+    }
+    while (*f < 1) {
+        *f *= 10;
+        exp--;
+    }
+    *f += tenpower (maxexp - 1);
+    if (*f >= 10) {
+        *f /= 10;
+        exp++;
+    }
+
+    return exp;
+}
 /* simple fprintf function */
 
 int fdprintf (int fd, const char *fmt, ...)
@@ -64,7 +96,7 @@ int fdprintf (int fd, const char *fmt, ...)
             *str++ = c;
         } else {
             int t = 0;
-           char w = '0';
+            char w = '0';
             int i, sz = 0;
             void *p = NULL;
 
@@ -97,31 +129,25 @@ int fdprintf (int fd, const char *fmt, ...)
                 break;
             case 'f': /* float */
                 f = va_arg (ap, double);
+                if (f == 0) {
+                    *str++ = '0';
+                    break;
+                }
                 if (f < 0) {
                     *str++ = '-';
                     f = -f;
                 }
-                t = 0;
-                while (f > 10) {
-                    f /= 10;
-                    t++;
-                }
-                while (f < 1) {
-                    f *= 10;
-                    t--;
-                }
-               f += 1e-7;
-                if (f >= 10) {
-                    f /= 10;
-                    t++;
-                }
+                t = getexponant (&f, -6);
                 u = (int)f;
                 str = itoa (str, u, 0);
-                d = (int)((f - u) * 1e6);
+                d = (int)((f - u) * tenpower (6));
                 if (d > 0) {
                     *str++ = '.';
                     str = itoa (str, d, 6);
                 }
+                while (*(str - 1) == '0') {
+                    str--;
+                }
                 if (t != 0) {
                     *str++ = 'e';
                     if (t < 0) {