xref: /freebsd/cddl/contrib/opensolaris/lib/libcmdutils/common/nicenum.c (revision 5ca8e32633c4ffbbcd6762e5888b6a4ba0708c6c)
1 /*
2  * CDDL HEADER START
3  *
4  * The contents of this file are subject to the terms of the
5  * Common Development and Distribution License (the "License").
6  * You may not use this file except in compliance with the License.
7  *
8  * You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE
9  * or http://www.opensolaris.org/os/licensing.
10  * See the License for the specific language governing permissions
11  * and limitations under the License.
12  *
13  * When distributing Covered Code, include this CDDL HEADER in each
14  * file and include the License file at usr/src/OPENSOLARIS.LICENSE.
15  * If applicable, add the following below this CDDL HEADER, with the
16  * fields enclosed by brackets "[]" replaced with your own identifying
17  * information: Portions Copyright [yyyy] [name of copyright owner]
18  *
19  * CDDL HEADER END
20  */
21 
22 /*
23  * Copyright (c) 2005, 2010, Oracle and/or its affiliates. All rights reserved.
24  * Copyright 2017 Jason king
25  */
26 
27 #include <stdio.h>
28 #include <string.h>
29 #include <sys/types.h>
30 #include <sys/debug.h>
31 #include "libcmdutils.h"
32 
33 /* The largest suffix that can fit, aka an exabyte (2^60 / 10^18) */
34 #define	INDEX_MAX	(6)
35 
36 /* Verify INDEX_MAX fits */
37 CTASSERT(INDEX_MAX * 10 < sizeof (uint64_t) * 8);
38 
39 void
40 nicenum_scale(uint64_t n, size_t units, char *buf, size_t buflen,
41     uint32_t flags)
42 {
43 	uint64_t divamt = 1024;
44 	uint64_t divisor = 1;
45 	int index = 0;
46 	int rc = 0;
47 	char u;
48 
49 	if (units == 0)
50 		units = 1;
51 
52 	if (n > 0) {
53 		n *= units;
54 		if (n < units)
55 			goto overflow;
56 	}
57 
58 	if (flags & NN_DIVISOR_1000)
59 		divamt = 1000;
60 
61 	/*
62 	 * This tries to find the suffix S(n) such that
63 	 * S(n) <= n < S(n+1), where S(n) = 2^(n*10) | 10^(3*n)
64 	 * (i.e. 1024/1000, 1,048,576/1,000,000, etc).  Stop once S(n)
65 	 * is the largest prefix supported (i.e. don't bother computing
66 	 * and checking S(n+1).  Since INDEX_MAX should be the largest
67 	 * suffix that fits (currently an exabyte), S(INDEX_MAX + 1) is
68 	 * never checked as it would overflow.
69 	 */
70 	while (index < INDEX_MAX) {
71 		uint64_t newdiv = divisor * divamt;
72 
73 		/* CTASSERT() guarantee these never trip */
74 		VERIFY3U(newdiv, >=, divamt);
75 		VERIFY3U(newdiv, >=, divisor);
76 
77 		if (n < newdiv)
78 			break;
79 
80 		divisor = newdiv;
81 		index++;
82 	}
83 
84 	u = " KMGTPE"[index];
85 
86 	if (index == 0) {
87 		rc = snprintf(buf, buflen, "%llu", n);
88 	} else if (n % divisor == 0) {
89 		/*
90 		 * If this is an even multiple of the base, always display
91 		 * without any decimal precision.
92 		 */
93 		rc = snprintf(buf, buflen, "%llu%c", n / divisor, u);
94 	} else {
95 		/*
96 		 * We want to choose a precision that reflects the best choice
97 		 * for fitting in 5 characters.  This can get rather tricky
98 		 * when we have numbers that are very close to an order of
99 		 * magnitude.  For example, when displaying 10239 (which is
100 		 * really 9.999K), we want only a single place of precision
101 		 * for 10.0K.  We could develop some complex heuristics for
102 		 * this, but it's much easier just to try each combination
103 		 * in turn.
104 		 */
105 		int i;
106 		for (i = 2; i >= 0; i--) {
107 			if ((rc = snprintf(buf, buflen, "%.*f%c", i,
108 			    (double)n / divisor, u)) <= 5)
109 				break;
110 		}
111 	}
112 
113 	if (rc + 1 > buflen || rc < 0)
114 		goto overflow;
115 
116 	return;
117 
118 overflow:
119 	/* prefer a more verbose message if possible */
120 	if (buflen > 10)
121 		(void) strlcpy(buf, "<overflow>", buflen);
122 	else
123 		(void) strlcpy(buf, "??", buflen);
124 }
125 
126 void
127 nicenum(uint64_t num, char *buf, size_t buflen)
128 {
129 	nicenum_scale(num, 1, buf, buflen, 0);
130 }
131