1 /***********************************************************************
2 * *
3 * This software is part of the ast package *
4 * Copyright (c) 1985-2011 AT&T Intellectual Property *
5 * and is licensed under the *
6 * Eclipse Public License, Version 1.0 *
7 * by AT&T Intellectual Property *
8 * *
9 * A copy of the License is available at *
10 * http://www.eclipse.org/org/documents/epl-v10.html *
11 * (with md5 checksum b35adb5213ca9657e911e9befb180842) *
12 * *
13 * Information and Software Systems Research *
14 * AT&T Research *
15 * Florham Park NJ *
16 * *
17 * Glenn Fowler <gsf@research.att.com> *
18 * David Korn <dgk@research.att.com> *
19 * Phong Vo <kpv@research.att.com> *
20 * *
21 ***********************************************************************/
22 #pragma prototyped
23 /*
24 * Glenn Fowler
25 * AT&T Research
26 *
27 * return number n scaled to metric multiples of k { 1000 1024 }
28 * return string length is at most 5 chars + terminating nul
29 */
30
31 #include <ast.h>
32 #include <lclib.h>
33
34 char*
fmtscale(register Sfulong_t n,int k)35 fmtscale(register Sfulong_t n, int k)
36 {
37 register Sfulong_t m;
38 int r;
39 int z;
40 const char* u;
41 char suf[3];
42 char* s;
43 char* buf;
44 Lc_numeric_t* p = (Lc_numeric_t*)LCINFO(AST_LC_NUMERIC)->data;
45
46 static const char scale[] = "bkMGTPE";
47
48 u = scale;
49 if (n < 1000)
50 r = 0;
51 else
52 {
53 m = 0;
54 while (n >= k && *(u + 1))
55 {
56 m = n;
57 n /= k;
58 u++;
59 }
60 if ((r = (10 * (m % k) + (k / 2)) / k) > 9)
61 {
62 r = 0;
63 n++;
64 }
65 if (k == 1024 && n >= 1000)
66 {
67 n = 1;
68 r = 0;
69 u++;
70 }
71 }
72 buf = fmtbuf(z = 8);
73 s = suf;
74 if (u > scale)
75 {
76 if (k == 1024)
77 {
78 *s++ = *u == 'k' ? 'K' : *u;
79 *s++ = 'i';
80 }
81 else
82 *s++ = *u;
83 }
84 *s = 0;
85 if (n > 0 && n < 10)
86 sfsprintf(buf, z, "%I*u%c%d%s", sizeof(n), n, p->decimal >= 0 ? p->decimal : '.', r, suf);
87 else
88 {
89 if (r >= 5)
90 n++;
91 sfsprintf(buf, z, "%I*u%s", sizeof(n), n, suf);
92 }
93 return buf;
94 }
95