Mercurial > hg > octave-kai > gnulib-hg

annotate lib/human.c @ 1841:29f0e78db379

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Include <string.h> or <strings.h> for strlen prototype.
author Jim Meyering <jim@meyering.net>
date Thu, 13 May 1999 20:48:44 +0000
parents 2a52bf4a60c7
children afab915d3e18
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
1137
2c9059ccc457 New file. The interface is inspired
Jim Meyering <jim@meyering.net>
parents:
diff changeset
1 /* human.c -- print human readable file size
1596
ca73757a0183 (humblock): Use ARGMATCH in place of argmatch.
Jim Meyering <jim@meyering.net>
parents: 1439
diff changeset
2 Copyright (C) 1996, 1997, 1998, 1999 Free Software Foundation, Inc.
1137
2c9059ccc457 New file. The interface is inspired
Jim Meyering <jim@meyering.net>
parents:
diff changeset
3
2c9059ccc457 New file. The interface is inspired
Jim Meyering <jim@meyering.net>
parents:
diff changeset
4 This program is free software; you can redistribute it and/or modify
2c9059ccc457 New file. The interface is inspired
Jim Meyering <jim@meyering.net>
parents:
diff changeset
5 it under the terms of the GNU General Public License as published by
2c9059ccc457 New file. The interface is inspired
Jim Meyering <jim@meyering.net>
parents:
diff changeset
6 the Free Software Foundation; either version 2, or (at your option)
2c9059ccc457 New file. The interface is inspired
Jim Meyering <jim@meyering.net>
parents:
diff changeset
7 any later version.
2c9059ccc457 New file. The interface is inspired
Jim Meyering <jim@meyering.net>
parents:
diff changeset
8
2c9059ccc457 New file. The interface is inspired
Jim Meyering <jim@meyering.net>
parents:
diff changeset
9 This program is distributed in the hope that it will be useful,
2c9059ccc457 New file. The interface is inspired
Jim Meyering <jim@meyering.net>
parents:
diff changeset
10 but WITHOUT ANY WARRANTY; without even the implied warranty of
2c9059ccc457 New file. The interface is inspired
Jim Meyering <jim@meyering.net>
parents:
diff changeset
11 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
2c9059ccc457 New file. The interface is inspired
Jim Meyering <jim@meyering.net>
parents:
diff changeset
12 GNU General Public License for more details.
2c9059ccc457 New file. The interface is inspired
Jim Meyering <jim@meyering.net>
parents:
diff changeset
13
2c9059ccc457 New file. The interface is inspired
Jim Meyering <jim@meyering.net>
parents:
diff changeset
14 You should have received a copy of the GNU General Public License
2c9059ccc457 New file. The interface is inspired
Jim Meyering <jim@meyering.net>
parents:
diff changeset
15 along with this program; if not, write to the Free Software Foundation,
2c9059ccc457 New file. The interface is inspired
Jim Meyering <jim@meyering.net>
parents:
diff changeset
16 Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */
2c9059ccc457 New file. The interface is inspired
Jim Meyering <jim@meyering.net>
parents:
diff changeset
17
2c9059ccc457 New file. The interface is inspired
Jim Meyering <jim@meyering.net>
parents:
diff changeset
18 /* Originally contributed by lm@sgi.com;
1391
c9a7b76bd443 * lib/human.c, lib/human.h (human_readable): Coalesce last two args
Jim Meyering <jim@meyering.net>
parents: 1142
diff changeset
19 --si, output block size selection, and large file support
c9a7b76bd443 * lib/human.c, lib/human.h (human_readable): Coalesce last two args
Jim Meyering <jim@meyering.net>
parents: 1142
diff changeset
20 added by eggert@twinsun.com. */
1137
2c9059ccc457 New file. The interface is inspired
Jim Meyering <jim@meyering.net>
parents:
diff changeset
21
1391
c9a7b76bd443 * lib/human.c, lib/human.h (human_readable): Coalesce last two args
Jim Meyering <jim@meyering.net>
parents: 1142
diff changeset
22 #if HAVE_CONFIG_H
c9a7b76bd443 * lib/human.c, lib/human.h (human_readable): Coalesce last two args
Jim Meyering <jim@meyering.net>
parents: 1142
diff changeset
23 # include <config.h>
c9a7b76bd443 * lib/human.c, lib/human.h (human_readable): Coalesce last two args
Jim Meyering <jim@meyering.net>
parents: 1142
diff changeset
24 #endif
1137
2c9059ccc457 New file. The interface is inspired
Jim Meyering <jim@meyering.net>
parents:
diff changeset
25
2c9059ccc457 New file. The interface is inspired
Jim Meyering <jim@meyering.net>
parents:
diff changeset
26 #include <sys/types.h>
2c9059ccc457 New file. The interface is inspired
Jim Meyering <jim@meyering.net>
parents:
diff changeset
27 #include <stdio.h>
2c9059ccc457 New file. The interface is inspired
Jim Meyering <jim@meyering.net>
parents:
diff changeset
28
2c9059ccc457 New file. The interface is inspired
Jim Meyering <jim@meyering.net>
parents:
diff changeset
29 #if HAVE_LIMITS_H
2c9059ccc457 New file. The interface is inspired
Jim Meyering <jim@meyering.net>
parents:
diff changeset
30 # include <limits.h>
2c9059ccc457 New file. The interface is inspired
Jim Meyering <jim@meyering.net>
parents:
diff changeset
31 #endif
2c9059ccc457 New file. The interface is inspired
Jim Meyering <jim@meyering.net>
parents:
diff changeset
32
1841
29f0e78db379 Include <string.h> or <strings.h> for strlen prototype.
Jim Meyering <jim@meyering.net>
parents: 1812
diff changeset
33 #if HAVE_STRING_H
29f0e78db379 Include <string.h> or <strings.h> for strlen prototype.
Jim Meyering <jim@meyering.net>
parents: 1812
diff changeset
34 # include <string.h>
29f0e78db379 Include <string.h> or <strings.h> for strlen prototype.
Jim Meyering <jim@meyering.net>
parents: 1812
diff changeset
35 #else
29f0e78db379 Include <string.h> or <strings.h> for strlen prototype.
Jim Meyering <jim@meyering.net>
parents: 1812
diff changeset
36 # include <strings.h>
29f0e78db379 Include <string.h> or <strings.h> for strlen prototype.
Jim Meyering <jim@meyering.net>
parents: 1812
diff changeset
37 #endif
29f0e78db379 Include <string.h> or <strings.h> for strlen prototype.
Jim Meyering <jim@meyering.net>
parents: 1812
diff changeset
38
1137
2c9059ccc457 New file. The interface is inspired
Jim Meyering <jim@meyering.net>
parents:
diff changeset
39 #ifndef CHAR_BIT
1142
ff40370aead6 (human_readable): Convert to ANSI-style definition.
Jim Meyering <jim@meyering.net>
parents: 1137
diff changeset
40 # define CHAR_BIT 8
1137
2c9059ccc457 New file. The interface is inspired
Jim Meyering <jim@meyering.net>
parents:
diff changeset
41 #endif
1391
c9a7b76bd443 * lib/human.c, lib/human.h (human_readable): Coalesce last two args
Jim Meyering <jim@meyering.net>
parents: 1142
diff changeset
42 #if HAVE_STDLIB_H
c9a7b76bd443 * lib/human.c, lib/human.h (human_readable): Coalesce last two args
Jim Meyering <jim@meyering.net>
parents: 1142
diff changeset
43 # include <stdlib.h>
c9a7b76bd443 * lib/human.c, lib/human.h (human_readable): Coalesce last two args
Jim Meyering <jim@meyering.net>
parents: 1142
diff changeset
44 #endif
c9a7b76bd443 * lib/human.c, lib/human.h (human_readable): Coalesce last two args
Jim Meyering <jim@meyering.net>
parents: 1142
diff changeset
45
c9a7b76bd443 * lib/human.c, lib/human.h (human_readable): Coalesce last two args
Jim Meyering <jim@meyering.net>
parents: 1142
diff changeset
46 #ifndef HAVE_DECL_GETENV
c9a7b76bd443 * lib/human.c, lib/human.h (human_readable): Coalesce last two args
Jim Meyering <jim@meyering.net>
parents: 1142
diff changeset
47 char *getenv ();
c9a7b76bd443 * lib/human.c, lib/human.h (human_readable): Coalesce last two args
Jim Meyering <jim@meyering.net>
parents: 1142
diff changeset
48 #endif
c9a7b76bd443 * lib/human.c, lib/human.h (human_readable): Coalesce last two args
Jim Meyering <jim@meyering.net>
parents: 1142
diff changeset
49
c9a7b76bd443 * lib/human.c, lib/human.h (human_readable): Coalesce last two args
Jim Meyering <jim@meyering.net>
parents: 1142
diff changeset
50 #if ENABLE_NLS
c9a7b76bd443 * lib/human.c, lib/human.h (human_readable): Coalesce last two args
Jim Meyering <jim@meyering.net>
parents: 1142
diff changeset
51 # include <libintl.h>
c9a7b76bd443 * lib/human.c, lib/human.h (human_readable): Coalesce last two args
Jim Meyering <jim@meyering.net>
parents: 1142
diff changeset
52 # define _(Text) gettext (Text)
c9a7b76bd443 * lib/human.c, lib/human.h (human_readable): Coalesce last two args
Jim Meyering <jim@meyering.net>
parents: 1142
diff changeset
53 #else
c9a7b76bd443 * lib/human.c, lib/human.h (human_readable): Coalesce last two args
Jim Meyering <jim@meyering.net>
parents: 1142
diff changeset
54 # define _(Text) Text
c9a7b76bd443 * lib/human.c, lib/human.h (human_readable): Coalesce last two args
Jim Meyering <jim@meyering.net>
parents: 1142
diff changeset
55 #endif
c9a7b76bd443 * lib/human.c, lib/human.h (human_readable): Coalesce last two args
Jim Meyering <jim@meyering.net>
parents: 1142
diff changeset
56
c9a7b76bd443 * lib/human.c, lib/human.h (human_readable): Coalesce last two args
Jim Meyering <jim@meyering.net>
parents: 1142
diff changeset
57 #include <argmatch.h>
c9a7b76bd443 * lib/human.c, lib/human.h (human_readable): Coalesce last two args
Jim Meyering <jim@meyering.net>
parents: 1142
diff changeset
58 #include <error.h>
1786
027e08403b18 Include xstrtol.h, not xstrtoul.h, since xstrtol.h now defines all the
Jim Meyering <jim@meyering.net>
parents: 1596
diff changeset
59 #include <xstrtol.h>
1137
2c9059ccc457 New file. The interface is inspired
Jim Meyering <jim@meyering.net>
parents:
diff changeset
60
2c9059ccc457 New file. The interface is inspired
Jim Meyering <jim@meyering.net>
parents:
diff changeset
61 #include "human.h"
2c9059ccc457 New file. The interface is inspired
Jim Meyering <jim@meyering.net>
parents:
diff changeset
62
1142
ff40370aead6 (human_readable): Convert to ANSI-style definition.
Jim Meyering <jim@meyering.net>
parents: 1137
diff changeset
63 static const char suffixes[] =
1137
2c9059ccc457 New file. The interface is inspired
Jim Meyering <jim@meyering.net>
parents:
diff changeset
64 {
2c9059ccc457 New file. The interface is inspired
Jim Meyering <jim@meyering.net>
parents:
diff changeset
65 0, /* not used */
2c9059ccc457 New file. The interface is inspired
Jim Meyering <jim@meyering.net>
parents:
diff changeset
66 'k', /* kilo */
2c9059ccc457 New file. The interface is inspired
Jim Meyering <jim@meyering.net>
parents:
diff changeset
67 'M', /* Mega */
2c9059ccc457 New file. The interface is inspired
Jim Meyering <jim@meyering.net>
parents:
diff changeset
68 'G', /* Giga */
2c9059ccc457 New file. The interface is inspired
Jim Meyering <jim@meyering.net>
parents:
diff changeset
69 'T', /* Tera */
2c9059ccc457 New file. The interface is inspired
Jim Meyering <jim@meyering.net>
parents:
diff changeset
70 'P', /* Peta */
2c9059ccc457 New file. The interface is inspired
Jim Meyering <jim@meyering.net>
parents:
diff changeset
71 'E', /* Exa */
2c9059ccc457 New file. The interface is inspired
Jim Meyering <jim@meyering.net>
parents:
diff changeset
72 'Z', /* Zetta */
2c9059ccc457 New file. The interface is inspired
Jim Meyering <jim@meyering.net>
parents:
diff changeset
73 'Y' /* Yotta */
2c9059ccc457 New file. The interface is inspired
Jim Meyering <jim@meyering.net>
parents:
diff changeset
74 };
2c9059ccc457 New file. The interface is inspired
Jim Meyering <jim@meyering.net>
parents:
diff changeset
75
2c9059ccc457 New file. The interface is inspired
Jim Meyering <jim@meyering.net>
parents:
diff changeset
76 /* Convert N to a human readable format in BUF.
1142
ff40370aead6 (human_readable): Convert to ANSI-style definition.
Jim Meyering <jim@meyering.net>
parents: 1137
diff changeset
77
1391
c9a7b76bd443 * lib/human.c, lib/human.h (human_readable): Coalesce last two args
Jim Meyering <jim@meyering.net>
parents: 1142
diff changeset
78 N is expressed in units of FROM_BLOCK_SIZE. FROM_BLOCK_SIZE must
c9a7b76bd443 * lib/human.c, lib/human.h (human_readable): Coalesce last two args
Jim Meyering <jim@meyering.net>
parents: 1142
diff changeset
79 be positive.
c9a7b76bd443 * lib/human.c, lib/human.h (human_readable): Coalesce last two args
Jim Meyering <jim@meyering.net>
parents: 1142
diff changeset
80
c9a7b76bd443 * lib/human.c, lib/human.h (human_readable): Coalesce last two args
Jim Meyering <jim@meyering.net>
parents: 1142
diff changeset
81 If OUTPUT_BLOCK_SIZE is positive, use units of OUTPUT_BLOCK_SIZE in
c9a7b76bd443 * lib/human.c, lib/human.h (human_readable): Coalesce last two args
Jim Meyering <jim@meyering.net>
parents: 1142
diff changeset
82 the output number. OUTPUT_BLOCK_SIZE must be a multiple of
c9a7b76bd443 * lib/human.c, lib/human.h (human_readable): Coalesce last two args
Jim Meyering <jim@meyering.net>
parents: 1142
diff changeset
83 FROM_BLOCK_SIZE or vice versa.
1142
ff40370aead6 (human_readable): Convert to ANSI-style definition.
Jim Meyering <jim@meyering.net>
parents: 1137
diff changeset
84
1391
c9a7b76bd443 * lib/human.c, lib/human.h (human_readable): Coalesce last two args
Jim Meyering <jim@meyering.net>
parents: 1142
diff changeset
85 If OUTPUT_BLOCK_SIZE is negative, use a format like "127k" if
c9a7b76bd443 * lib/human.c, lib/human.h (human_readable): Coalesce last two args
Jim Meyering <jim@meyering.net>
parents: 1142
diff changeset
86 possible, using powers of -OUTPUT_BLOCK_SIZE; otherwise, use
c9a7b76bd443 * lib/human.c, lib/human.h (human_readable): Coalesce last two args
Jim Meyering <jim@meyering.net>
parents: 1142
diff changeset
87 ordinary decimal format. Normally -OUTPUT_BLOCK_SIZE is either
c9a7b76bd443 * lib/human.c, lib/human.h (human_readable): Coalesce last two args
Jim Meyering <jim@meyering.net>
parents: 1142
diff changeset
88 1000 or 1024; it must be at least 2. Most people visually process
c9a7b76bd443 * lib/human.c, lib/human.h (human_readable): Coalesce last two args
Jim Meyering <jim@meyering.net>
parents: 1142
diff changeset
89 strings of 3-4 digits effectively, but longer strings of digits are
c9a7b76bd443 * lib/human.c, lib/human.h (human_readable): Coalesce last two args
Jim Meyering <jim@meyering.net>
parents: 1142
diff changeset
90 more prone to misinterpretation. Hence, converting to an
c9a7b76bd443 * lib/human.c, lib/human.h (human_readable): Coalesce last two args
Jim Meyering <jim@meyering.net>
parents: 1142
diff changeset
91 abbreviated form usually improves readability. Use a suffix
c9a7b76bd443 * lib/human.c, lib/human.h (human_readable): Coalesce last two args
Jim Meyering <jim@meyering.net>
parents: 1142
diff changeset
92 indicating which power is being used. For example, assuming
c9a7b76bd443 * lib/human.c, lib/human.h (human_readable): Coalesce last two args
Jim Meyering <jim@meyering.net>
parents: 1142
diff changeset
93 -OUTPUT_BLOCK_SIZE is 1024, 8500 would be converted to 8.3k,
1137
2c9059ccc457 New file. The interface is inspired
Jim Meyering <jim@meyering.net>
parents:
diff changeset
94 133456345 to 127M, 56990456345 to 53G, and so on. Numbers smaller
1391
c9a7b76bd443 * lib/human.c, lib/human.h (human_readable): Coalesce last two args
Jim Meyering <jim@meyering.net>
parents: 1142
diff changeset
95 than -OUTPUT_BLOCK_SIZE aren't modified. */
1137
2c9059ccc457 New file. The interface is inspired
Jim Meyering <jim@meyering.net>
parents:
diff changeset
96
2c9059ccc457 New file. The interface is inspired
Jim Meyering <jim@meyering.net>
parents:
diff changeset
97 char *
1391
c9a7b76bd443 * lib/human.c, lib/human.h (human_readable): Coalesce last two args
Jim Meyering <jim@meyering.net>
parents: 1142
diff changeset
98 human_readable (uintmax_t n, char *buf,
c9a7b76bd443 * lib/human.c, lib/human.h (human_readable): Coalesce last two args
Jim Meyering <jim@meyering.net>
parents: 1142
diff changeset
99 int from_block_size, int output_block_size)
1137
2c9059ccc457 New file. The interface is inspired
Jim Meyering <jim@meyering.net>
parents:
diff changeset
100 {
2c9059ccc457 New file. The interface is inspired
Jim Meyering <jim@meyering.net>
parents:
diff changeset
101 uintmax_t amt;
1391
c9a7b76bd443 * lib/human.c, lib/human.h (human_readable): Coalesce last two args
Jim Meyering <jim@meyering.net>
parents: 1142
diff changeset
102 int base;
c9a7b76bd443 * lib/human.c, lib/human.h (human_readable): Coalesce last two args
Jim Meyering <jim@meyering.net>
parents: 1142
diff changeset
103 int to_block_size;
1137
2c9059ccc457 New file. The interface is inspired
Jim Meyering <jim@meyering.net>
parents:
diff changeset
104 int tenths;
2c9059ccc457 New file. The interface is inspired
Jim Meyering <jim@meyering.net>
parents:
diff changeset
105 int power;
2c9059ccc457 New file. The interface is inspired
Jim Meyering <jim@meyering.net>
parents:
diff changeset
106 char *p;
2c9059ccc457 New file. The interface is inspired
Jim Meyering <jim@meyering.net>
parents:
diff changeset
107
2c9059ccc457 New file. The interface is inspired
Jim Meyering <jim@meyering.net>
parents:
diff changeset
108 /* 0 means adjusted N == AMT.TENTHS;
2c9059ccc457 New file. The interface is inspired
Jim Meyering <jim@meyering.net>
parents:
diff changeset
109 1 means AMT.TENTHS < adjusted N < AMT.TENTHS + 0.05;
2c9059ccc457 New file. The interface is inspired
Jim Meyering <jim@meyering.net>
parents:
diff changeset
110 2 means adjusted N == AMT.TENTHS + 0.05;
2c9059ccc457 New file. The interface is inspired
Jim Meyering <jim@meyering.net>
parents:
diff changeset
111 3 means AMT.TENTHS + 0.05 < adjusted N < AMT.TENTHS + 0.1. */
2c9059ccc457 New file. The interface is inspired
Jim Meyering <jim@meyering.net>
parents:
diff changeset
112 int rounding;
2c9059ccc457 New file. The interface is inspired
Jim Meyering <jim@meyering.net>
parents:
diff changeset
113
1391
c9a7b76bd443 * lib/human.c, lib/human.h (human_readable): Coalesce last two args
Jim Meyering <jim@meyering.net>
parents: 1142
diff changeset
114 if (output_block_size < 0)
c9a7b76bd443 * lib/human.c, lib/human.h (human_readable): Coalesce last two args
Jim Meyering <jim@meyering.net>
parents: 1142
diff changeset
115 {
c9a7b76bd443 * lib/human.c, lib/human.h (human_readable): Coalesce last two args
Jim Meyering <jim@meyering.net>
parents: 1142
diff changeset
116 base = -output_block_size;
c9a7b76bd443 * lib/human.c, lib/human.h (human_readable): Coalesce last two args
Jim Meyering <jim@meyering.net>
parents: 1142
diff changeset
117 to_block_size = 1;
c9a7b76bd443 * lib/human.c, lib/human.h (human_readable): Coalesce last two args
Jim Meyering <jim@meyering.net>
parents: 1142
diff changeset
118 }
c9a7b76bd443 * lib/human.c, lib/human.h (human_readable): Coalesce last two args
Jim Meyering <jim@meyering.net>
parents: 1142
diff changeset
119 else
c9a7b76bd443 * lib/human.c, lib/human.h (human_readable): Coalesce last two args
Jim Meyering <jim@meyering.net>
parents: 1142
diff changeset
120 {
c9a7b76bd443 * lib/human.c, lib/human.h (human_readable): Coalesce last two args
Jim Meyering <jim@meyering.net>
parents: 1142
diff changeset
121 base = 0;
c9a7b76bd443 * lib/human.c, lib/human.h (human_readable): Coalesce last two args
Jim Meyering <jim@meyering.net>
parents: 1142
diff changeset
122 to_block_size = output_block_size;
c9a7b76bd443 * lib/human.c, lib/human.h (human_readable): Coalesce last two args
Jim Meyering <jim@meyering.net>
parents: 1142
diff changeset
123 }
c9a7b76bd443 * lib/human.c, lib/human.h (human_readable): Coalesce last two args
Jim Meyering <jim@meyering.net>
parents: 1142
diff changeset
124
1137
2c9059ccc457 New file. The interface is inspired
Jim Meyering <jim@meyering.net>
parents:
diff changeset
125 p = buf + LONGEST_HUMAN_READABLE;
2c9059ccc457 New file. The interface is inspired
Jim Meyering <jim@meyering.net>
parents:
diff changeset
126 *p = '\0';
1142
ff40370aead6 (human_readable): Convert to ANSI-style definition.
Jim Meyering <jim@meyering.net>
parents: 1137
diff changeset
127
ff40370aead6 (human_readable): Convert to ANSI-style definition.
Jim Meyering <jim@meyering.net>
parents: 1137
diff changeset
128 #ifdef lint
ff40370aead6 (human_readable): Convert to ANSI-style definition.
Jim Meyering <jim@meyering.net>
parents: 1137
diff changeset
129 /* Suppress `used before initialized' warning. */
ff40370aead6 (human_readable): Convert to ANSI-style definition.
Jim Meyering <jim@meyering.net>
parents: 1137
diff changeset
130 power = 0;
ff40370aead6 (human_readable): Convert to ANSI-style definition.
Jim Meyering <jim@meyering.net>
parents: 1137
diff changeset
131 #endif
1137
2c9059ccc457 New file. The interface is inspired
Jim Meyering <jim@meyering.net>
parents:
diff changeset
132
1391
c9a7b76bd443 * lib/human.c, lib/human.h (human_readable): Coalesce last two args
Jim Meyering <jim@meyering.net>
parents: 1142
diff changeset
133 /* Adjust AMT out of FROM_BLOCK_SIZE units and into TO_BLOCK_SIZE units. */
1142
ff40370aead6 (human_readable): Convert to ANSI-style definition.
Jim Meyering <jim@meyering.net>
parents: 1137
diff changeset
134
1391
c9a7b76bd443 * lib/human.c, lib/human.h (human_readable): Coalesce last two args
Jim Meyering <jim@meyering.net>
parents: 1142
diff changeset
135 if (to_block_size <= from_block_size)
1137
2c9059ccc457 New file. The interface is inspired
Jim Meyering <jim@meyering.net>
parents:
diff changeset
136 {
1391
c9a7b76bd443 * lib/human.c, lib/human.h (human_readable): Coalesce last two args
Jim Meyering <jim@meyering.net>
parents: 1142
diff changeset
137 int multiplier = from_block_size / to_block_size;
1137
2c9059ccc457 New file. The interface is inspired
Jim Meyering <jim@meyering.net>
parents:
diff changeset
138 amt = n * multiplier;
2c9059ccc457 New file. The interface is inspired
Jim Meyering <jim@meyering.net>
parents:
diff changeset
139 tenths = rounding = 0;
2c9059ccc457 New file. The interface is inspired
Jim Meyering <jim@meyering.net>
parents:
diff changeset
140
2c9059ccc457 New file. The interface is inspired
Jim Meyering <jim@meyering.net>
parents:
diff changeset
141 if (amt / multiplier != n)
2c9059ccc457 New file. The interface is inspired
Jim Meyering <jim@meyering.net>
parents:
diff changeset
142 {
2c9059ccc457 New file. The interface is inspired
Jim Meyering <jim@meyering.net>
parents:
diff changeset
143 /* Overflow occurred during multiplication. We should use
2c9059ccc457 New file. The interface is inspired
Jim Meyering <jim@meyering.net>
parents:
diff changeset
144 multiple precision arithmetic here, but we'll be lazy and
2c9059ccc457 New file. The interface is inspired
Jim Meyering <jim@meyering.net>
parents:
diff changeset
145 resort to floating point. This can yield answers that
2c9059ccc457 New file. The interface is inspired
Jim Meyering <jim@meyering.net>
parents:
diff changeset
146 are slightly off. In practice it is quite rare to
2c9059ccc457 New file. The interface is inspired
Jim Meyering <jim@meyering.net>
parents:
diff changeset
147 overflow uintmax_t, so this is good enough for now. */
2c9059ccc457 New file. The interface is inspired
Jim Meyering <jim@meyering.net>
parents:
diff changeset
148
2c9059ccc457 New file. The interface is inspired
Jim Meyering <jim@meyering.net>
parents:
diff changeset
149 double damt = n * (double) multiplier;
2c9059ccc457 New file. The interface is inspired
Jim Meyering <jim@meyering.net>
parents:
diff changeset
150
2c9059ccc457 New file. The interface is inspired
Jim Meyering <jim@meyering.net>
parents:
diff changeset
151 if (! base)
2c9059ccc457 New file. The interface is inspired
Jim Meyering <jim@meyering.net>
parents:
diff changeset
152 sprintf (buf, "%.0f", damt);
2c9059ccc457 New file. The interface is inspired
Jim Meyering <jim@meyering.net>
parents:
diff changeset
153 else
2c9059ccc457 New file. The interface is inspired
Jim Meyering <jim@meyering.net>
parents:
diff changeset
154 {
2c9059ccc457 New file. The interface is inspired
Jim Meyering <jim@meyering.net>
parents:
diff changeset
155 double e = 1;
2c9059ccc457 New file. The interface is inspired
Jim Meyering <jim@meyering.net>
parents:
diff changeset
156 power = 0;
2c9059ccc457 New file. The interface is inspired
Jim Meyering <jim@meyering.net>
parents:
diff changeset
157
2c9059ccc457 New file. The interface is inspired
Jim Meyering <jim@meyering.net>
parents:
diff changeset
158 do
2c9059ccc457 New file. The interface is inspired
Jim Meyering <jim@meyering.net>
parents:
diff changeset
159 {
2c9059ccc457 New file. The interface is inspired
Jim Meyering <jim@meyering.net>
parents:
diff changeset
160 e *= base;
2c9059ccc457 New file. The interface is inspired
Jim Meyering <jim@meyering.net>
parents:
diff changeset
161 power++;
2c9059ccc457 New file. The interface is inspired
Jim Meyering <jim@meyering.net>
parents:
diff changeset
162 }
1439
9ee89fcc7505 (human_readable): amt -> damt, to fix typo when
Jim Meyering <jim@meyering.net>
parents: 1391
diff changeset
163 while (e * base <= damt && power < sizeof suffixes - 1);
1137
2c9059ccc457 New file. The interface is inspired
Jim Meyering <jim@meyering.net>
parents:
diff changeset
164
2c9059ccc457 New file. The interface is inspired
Jim Meyering <jim@meyering.net>
parents:
diff changeset
165 damt /= e;
2c9059ccc457 New file. The interface is inspired
Jim Meyering <jim@meyering.net>
parents:
diff changeset
166
2c9059ccc457 New file. The interface is inspired
Jim Meyering <jim@meyering.net>
parents:
diff changeset
167 sprintf (buf, "%.1f%c", damt, suffixes[power]);
2c9059ccc457 New file. The interface is inspired
Jim Meyering <jim@meyering.net>
parents:
diff changeset
168 if (4 < strlen (buf))
2c9059ccc457 New file. The interface is inspired
Jim Meyering <jim@meyering.net>
parents:
diff changeset
169 sprintf (buf, "%.0f%c", damt, suffixes[power]);
2c9059ccc457 New file. The interface is inspired
Jim Meyering <jim@meyering.net>
parents:
diff changeset
170 }
2c9059ccc457 New file. The interface is inspired
Jim Meyering <jim@meyering.net>
parents:
diff changeset
171
2c9059ccc457 New file. The interface is inspired
Jim Meyering <jim@meyering.net>
parents:
diff changeset
172 return buf;
2c9059ccc457 New file. The interface is inspired
Jim Meyering <jim@meyering.net>
parents:
diff changeset
173 }
2c9059ccc457 New file. The interface is inspired
Jim Meyering <jim@meyering.net>
parents:
diff changeset
174 }
2c9059ccc457 New file. The interface is inspired
Jim Meyering <jim@meyering.net>
parents:
diff changeset
175 else
2c9059ccc457 New file. The interface is inspired
Jim Meyering <jim@meyering.net>
parents:
diff changeset
176 {
1391
c9a7b76bd443 * lib/human.c, lib/human.h (human_readable): Coalesce last two args
Jim Meyering <jim@meyering.net>
parents: 1142
diff changeset
177 int divisor = to_block_size / from_block_size;
1137
2c9059ccc457 New file. The interface is inspired
Jim Meyering <jim@meyering.net>
parents:
diff changeset
178 int r10 = (n % divisor) * 10;
2c9059ccc457 New file. The interface is inspired
Jim Meyering <jim@meyering.net>
parents:
diff changeset
179 int r2 = (r10 % divisor) * 2;
2c9059ccc457 New file. The interface is inspired
Jim Meyering <jim@meyering.net>
parents:
diff changeset
180 amt = n / divisor;
2c9059ccc457 New file. The interface is inspired
Jim Meyering <jim@meyering.net>
parents:
diff changeset
181 tenths = r10 / divisor;
2c9059ccc457 New file. The interface is inspired
Jim Meyering <jim@meyering.net>
parents:
diff changeset
182 rounding = r2 < divisor ? 0 < r2 : 2 + (divisor < r2);
2c9059ccc457 New file. The interface is inspired
Jim Meyering <jim@meyering.net>
parents:
diff changeset
183 }
2c9059ccc457 New file. The interface is inspired
Jim Meyering <jim@meyering.net>
parents:
diff changeset
184
1142
ff40370aead6 (human_readable): Convert to ANSI-style definition.
Jim Meyering <jim@meyering.net>
parents: 1137
diff changeset
185
1137
2c9059ccc457 New file. The interface is inspired
Jim Meyering <jim@meyering.net>
parents:
diff changeset
186 /* Use power of BASE notation if adjusted AMT is large enough. */
2c9059ccc457 New file. The interface is inspired
Jim Meyering <jim@meyering.net>
parents:
diff changeset
187
2c9059ccc457 New file. The interface is inspired
Jim Meyering <jim@meyering.net>
parents:
diff changeset
188 if (base && base <= amt)
2c9059ccc457 New file. The interface is inspired
Jim Meyering <jim@meyering.net>
parents:
diff changeset
189 {
2c9059ccc457 New file. The interface is inspired
Jim Meyering <jim@meyering.net>
parents:
diff changeset
190 power = 0;
2c9059ccc457 New file. The interface is inspired
Jim Meyering <jim@meyering.net>
parents:
diff changeset
191
2c9059ccc457 New file. The interface is inspired
Jim Meyering <jim@meyering.net>
parents:
diff changeset
192 do
2c9059ccc457 New file. The interface is inspired
Jim Meyering <jim@meyering.net>
parents:
diff changeset
193 {
2c9059ccc457 New file. The interface is inspired
Jim Meyering <jim@meyering.net>
parents:
diff changeset
194 int r10 = (amt % base) * 10 + tenths;
2c9059ccc457 New file. The interface is inspired
Jim Meyering <jim@meyering.net>
parents:
diff changeset
195 int r2 = (r10 % base) * 2 + (rounding >> 1);
2c9059ccc457 New file. The interface is inspired
Jim Meyering <jim@meyering.net>
parents:
diff changeset
196 amt /= base;
2c9059ccc457 New file. The interface is inspired
Jim Meyering <jim@meyering.net>
parents:
diff changeset
197 tenths = r10 / base;
2c9059ccc457 New file. The interface is inspired
Jim Meyering <jim@meyering.net>
parents:
diff changeset
198 rounding = (r2 < base
2c9059ccc457 New file. The interface is inspired
Jim Meyering <jim@meyering.net>
parents:
diff changeset
199 ? 0 < r2 + rounding
2c9059ccc457 New file. The interface is inspired
Jim Meyering <jim@meyering.net>
parents:
diff changeset
200 : 2 + (base < r2 + rounding));
2c9059ccc457 New file. The interface is inspired
Jim Meyering <jim@meyering.net>
parents:
diff changeset
201 power++;
2c9059ccc457 New file. The interface is inspired
Jim Meyering <jim@meyering.net>
parents:
diff changeset
202 }
2c9059ccc457 New file. The interface is inspired
Jim Meyering <jim@meyering.net>
parents:
diff changeset
203 while (base <= amt && power < sizeof suffixes - 1);
2c9059ccc457 New file. The interface is inspired
Jim Meyering <jim@meyering.net>
parents:
diff changeset
204
2c9059ccc457 New file. The interface is inspired
Jim Meyering <jim@meyering.net>
parents:
diff changeset
205 *--p = suffixes[power];
2c9059ccc457 New file. The interface is inspired
Jim Meyering <jim@meyering.net>
parents:
diff changeset
206
2c9059ccc457 New file. The interface is inspired
Jim Meyering <jim@meyering.net>
parents:
diff changeset
207 if (amt < 10)
2c9059ccc457 New file. The interface is inspired
Jim Meyering <jim@meyering.net>
parents:
diff changeset
208 {
2c9059ccc457 New file. The interface is inspired
Jim Meyering <jim@meyering.net>
parents:
diff changeset
209 tenths += 2 < rounding + (tenths & 1);
2c9059ccc457 New file. The interface is inspired
Jim Meyering <jim@meyering.net>
parents:
diff changeset
210
2c9059ccc457 New file. The interface is inspired
Jim Meyering <jim@meyering.net>
parents:
diff changeset
211 if (tenths == 10)
2c9059ccc457 New file. The interface is inspired
Jim Meyering <jim@meyering.net>
parents:
diff changeset
212 {
2c9059ccc457 New file. The interface is inspired
Jim Meyering <jim@meyering.net>
parents:
diff changeset
213 amt++;
2c9059ccc457 New file. The interface is inspired
Jim Meyering <jim@meyering.net>
parents:
diff changeset
214 tenths = 0;
2c9059ccc457 New file. The interface is inspired
Jim Meyering <jim@meyering.net>
parents:
diff changeset
215 }
2c9059ccc457 New file. The interface is inspired
Jim Meyering <jim@meyering.net>
parents:
diff changeset
216
2c9059ccc457 New file. The interface is inspired
Jim Meyering <jim@meyering.net>
parents:
diff changeset
217 if (amt < 10)
2c9059ccc457 New file. The interface is inspired
Jim Meyering <jim@meyering.net>
parents:
diff changeset
218 {
2c9059ccc457 New file. The interface is inspired
Jim Meyering <jim@meyering.net>
parents:
diff changeset
219 *--p = '0' + tenths;
2c9059ccc457 New file. The interface is inspired
Jim Meyering <jim@meyering.net>
parents:
diff changeset
220 *--p = '.';
2c9059ccc457 New file. The interface is inspired
Jim Meyering <jim@meyering.net>
parents:
diff changeset
221 tenths = 0;
2c9059ccc457 New file. The interface is inspired
Jim Meyering <jim@meyering.net>
parents:
diff changeset
222 }
2c9059ccc457 New file. The interface is inspired
Jim Meyering <jim@meyering.net>
parents:
diff changeset
223 }
2c9059ccc457 New file. The interface is inspired
Jim Meyering <jim@meyering.net>
parents:
diff changeset
224 }
1142
ff40370aead6 (human_readable): Convert to ANSI-style definition.
Jim Meyering <jim@meyering.net>
parents: 1137
diff changeset
225
1137
2c9059ccc457 New file. The interface is inspired
Jim Meyering <jim@meyering.net>
parents:
diff changeset
226 if (5 < tenths + (2 < rounding + (amt & 1)))
2c9059ccc457 New file. The interface is inspired
Jim Meyering <jim@meyering.net>
parents:
diff changeset
227 {
2c9059ccc457 New file. The interface is inspired
Jim Meyering <jim@meyering.net>
parents:
diff changeset
228 amt++;
2c9059ccc457 New file. The interface is inspired
Jim Meyering <jim@meyering.net>
parents:
diff changeset
229
2c9059ccc457 New file. The interface is inspired
Jim Meyering <jim@meyering.net>
parents:
diff changeset
230 if (amt == base && power < sizeof suffixes - 1)
2c9059ccc457 New file. The interface is inspired
Jim Meyering <jim@meyering.net>
parents:
diff changeset
231 {
2c9059ccc457 New file. The interface is inspired
Jim Meyering <jim@meyering.net>
parents:
diff changeset
232 *p = suffixes[power + 1];
2c9059ccc457 New file. The interface is inspired
Jim Meyering <jim@meyering.net>
parents:
diff changeset
233 *--p = '0';
2c9059ccc457 New file. The interface is inspired
Jim Meyering <jim@meyering.net>
parents:
diff changeset
234 *--p = '.';
2c9059ccc457 New file. The interface is inspired
Jim Meyering <jim@meyering.net>
parents:
diff changeset
235 amt = 1;
2c9059ccc457 New file. The interface is inspired
Jim Meyering <jim@meyering.net>
parents:
diff changeset
236 }
2c9059ccc457 New file. The interface is inspired
Jim Meyering <jim@meyering.net>
parents:
diff changeset
237 }
2c9059ccc457 New file. The interface is inspired
Jim Meyering <jim@meyering.net>
parents:
diff changeset
238
2c9059ccc457 New file. The interface is inspired
Jim Meyering <jim@meyering.net>
parents:
diff changeset
239 do
2c9059ccc457 New file. The interface is inspired
Jim Meyering <jim@meyering.net>
parents:
diff changeset
240 *--p = '0' + (int) (amt % 10);
2c9059ccc457 New file. The interface is inspired
Jim Meyering <jim@meyering.net>
parents:
diff changeset
241 while ((amt /= 10) != 0);
2c9059ccc457 New file. The interface is inspired
Jim Meyering <jim@meyering.net>
parents:
diff changeset
242
2c9059ccc457 New file. The interface is inspired
Jim Meyering <jim@meyering.net>
parents:
diff changeset
243 return p;
2c9059ccc457 New file. The interface is inspired
Jim Meyering <jim@meyering.net>
parents:
diff changeset
244 }
1391
c9a7b76bd443 * lib/human.c, lib/human.h (human_readable): Coalesce last two args
Jim Meyering <jim@meyering.net>
parents: 1142
diff changeset
245
c9a7b76bd443 * lib/human.c, lib/human.h (human_readable): Coalesce last two args
Jim Meyering <jim@meyering.net>
parents: 1142
diff changeset
246
c9a7b76bd443 * lib/human.c, lib/human.h (human_readable): Coalesce last two args
Jim Meyering <jim@meyering.net>
parents: 1142
diff changeset
247 /* The default block size used for output. This number may change in
c9a7b76bd443 * lib/human.c, lib/human.h (human_readable): Coalesce last two args
Jim Meyering <jim@meyering.net>
parents: 1142
diff changeset
248 the future as disks get larger. */
c9a7b76bd443 * lib/human.c, lib/human.h (human_readable): Coalesce last two args
Jim Meyering <jim@meyering.net>
parents: 1142
diff changeset
249 #ifndef DEFAULT_BLOCK_SIZE
c9a7b76bd443 * lib/human.c, lib/human.h (human_readable): Coalesce last two args
Jim Meyering <jim@meyering.net>
parents: 1142
diff changeset
250 # define DEFAULT_BLOCK_SIZE 1024
c9a7b76bd443 * lib/human.c, lib/human.h (human_readable): Coalesce last two args
Jim Meyering <jim@meyering.net>
parents: 1142
diff changeset
251 #endif
c9a7b76bd443 * lib/human.c, lib/human.h (human_readable): Coalesce last two args
Jim Meyering <jim@meyering.net>
parents: 1142
diff changeset
252
c9a7b76bd443 * lib/human.c, lib/human.h (human_readable): Coalesce last two args
Jim Meyering <jim@meyering.net>
parents: 1142
diff changeset
253 static char const *const block_size_args[] = { "human-readable", "si", 0 };
c9a7b76bd443 * lib/human.c, lib/human.h (human_readable): Coalesce last two args
Jim Meyering <jim@meyering.net>
parents: 1142
diff changeset
254 static int const block_size_types[] = { -1024, -1000 };
c9a7b76bd443 * lib/human.c, lib/human.h (human_readable): Coalesce last two args
Jim Meyering <jim@meyering.net>
parents: 1142
diff changeset
255
c9a7b76bd443 * lib/human.c, lib/human.h (human_readable): Coalesce last two args
Jim Meyering <jim@meyering.net>
parents: 1142
diff changeset
256 static strtol_error
c9a7b76bd443 * lib/human.c, lib/human.h (human_readable): Coalesce last two args
Jim Meyering <jim@meyering.net>
parents: 1142
diff changeset
257 humblock (char const *spec, int *block_size)
c9a7b76bd443 * lib/human.c, lib/human.h (human_readable): Coalesce last two args
Jim Meyering <jim@meyering.net>
parents: 1142
diff changeset
258 {
c9a7b76bd443 * lib/human.c, lib/human.h (human_readable): Coalesce last two args
Jim Meyering <jim@meyering.net>
parents: 1142
diff changeset
259 int i;
c9a7b76bd443 * lib/human.c, lib/human.h (human_readable): Coalesce last two args
Jim Meyering <jim@meyering.net>
parents: 1142
diff changeset
260
c9a7b76bd443 * lib/human.c, lib/human.h (human_readable): Coalesce last two args
Jim Meyering <jim@meyering.net>
parents: 1142
diff changeset
261 if (! spec && ! (spec = getenv ("BLOCK_SIZE")))
c9a7b76bd443 * lib/human.c, lib/human.h (human_readable): Coalesce last two args
Jim Meyering <jim@meyering.net>
parents: 1142
diff changeset
262 *block_size = getenv ("POSIXLY_CORRECT") ? 512 : DEFAULT_BLOCK_SIZE;
1596
ca73757a0183 (humblock): Use ARGMATCH in place of argmatch.
Jim Meyering <jim@meyering.net>
parents: 1439
diff changeset
263 else if (0 <= (i = ARGMATCH (spec, block_size_args, block_size_types)))
1391
c9a7b76bd443 * lib/human.c, lib/human.h (human_readable): Coalesce last two args
Jim Meyering <jim@meyering.net>
parents: 1142
diff changeset
264 *block_size = block_size_types[i];
c9a7b76bd443 * lib/human.c, lib/human.h (human_readable): Coalesce last two args
Jim Meyering <jim@meyering.net>
parents: 1142
diff changeset
265 else
c9a7b76bd443 * lib/human.c, lib/human.h (human_readable): Coalesce last two args
Jim Meyering <jim@meyering.net>
parents: 1142
diff changeset
266 {
c9a7b76bd443 * lib/human.c, lib/human.h (human_readable): Coalesce last two args
Jim Meyering <jim@meyering.net>
parents: 1142
diff changeset
267 char *ptr;
c9a7b76bd443 * lib/human.c, lib/human.h (human_readable): Coalesce last two args
Jim Meyering <jim@meyering.net>
parents: 1142
diff changeset
268 unsigned long val;
c9a7b76bd443 * lib/human.c, lib/human.h (human_readable): Coalesce last two args
Jim Meyering <jim@meyering.net>
parents: 1142
diff changeset
269 strtol_error e = xstrtoul (spec, &ptr, 0, &val, "eEgGkKmMpPtTyYzZ0");
c9a7b76bd443 * lib/human.c, lib/human.h (human_readable): Coalesce last two args
Jim Meyering <jim@meyering.net>
parents: 1142
diff changeset
270 if (e != LONGINT_OK)
c9a7b76bd443 * lib/human.c, lib/human.h (human_readable): Coalesce last two args
Jim Meyering <jim@meyering.net>
parents: 1142
diff changeset
271 return e;
c9a7b76bd443 * lib/human.c, lib/human.h (human_readable): Coalesce last two args
Jim Meyering <jim@meyering.net>
parents: 1142
diff changeset
272 if (*ptr)
c9a7b76bd443 * lib/human.c, lib/human.h (human_readable): Coalesce last two args
Jim Meyering <jim@meyering.net>
parents: 1142
diff changeset
273 return LONGINT_INVALID_SUFFIX_CHAR;
c9a7b76bd443 * lib/human.c, lib/human.h (human_readable): Coalesce last two args
Jim Meyering <jim@meyering.net>
parents: 1142
diff changeset
274 if ((int) val < 0 || val != (int) val)
c9a7b76bd443 * lib/human.c, lib/human.h (human_readable): Coalesce last two args
Jim Meyering <jim@meyering.net>
parents: 1142
diff changeset
275 return LONGINT_OVERFLOW;
c9a7b76bd443 * lib/human.c, lib/human.h (human_readable): Coalesce last two args
Jim Meyering <jim@meyering.net>
parents: 1142
diff changeset
276 *block_size = (int) val;
c9a7b76bd443 * lib/human.c, lib/human.h (human_readable): Coalesce last two args
Jim Meyering <jim@meyering.net>
parents: 1142
diff changeset
277 }
c9a7b76bd443 * lib/human.c, lib/human.h (human_readable): Coalesce last two args
Jim Meyering <jim@meyering.net>
parents: 1142
diff changeset
278
c9a7b76bd443 * lib/human.c, lib/human.h (human_readable): Coalesce last two args
Jim Meyering <jim@meyering.net>
parents: 1142
diff changeset
279 return LONGINT_OK;
c9a7b76bd443 * lib/human.c, lib/human.h (human_readable): Coalesce last two args
Jim Meyering <jim@meyering.net>
parents: 1142
diff changeset
280 }
c9a7b76bd443 * lib/human.c, lib/human.h (human_readable): Coalesce last two args
Jim Meyering <jim@meyering.net>
parents: 1142
diff changeset
281
c9a7b76bd443 * lib/human.c, lib/human.h (human_readable): Coalesce last two args
Jim Meyering <jim@meyering.net>
parents: 1142
diff changeset
282 void
c9a7b76bd443 * lib/human.c, lib/human.h (human_readable): Coalesce last two args
Jim Meyering <jim@meyering.net>
parents: 1142
diff changeset
283 human_block_size (char const *spec, int report_errors, int *block_size)
c9a7b76bd443 * lib/human.c, lib/human.h (human_readable): Coalesce last two args
Jim Meyering <jim@meyering.net>
parents: 1142
diff changeset
284 {
c9a7b76bd443 * lib/human.c, lib/human.h (human_readable): Coalesce last two args
Jim Meyering <jim@meyering.net>
parents: 1142
diff changeset
285 strtol_error e = humblock (spec, block_size);
c9a7b76bd443 * lib/human.c, lib/human.h (human_readable): Coalesce last two args
Jim Meyering <jim@meyering.net>
parents: 1142
diff changeset
286 if (e != LONGINT_OK && report_errors)
c9a7b76bd443 * lib/human.c, lib/human.h (human_readable): Coalesce last two args
Jim Meyering <jim@meyering.net>
parents: 1142
diff changeset
287 STRTOL_FATAL_ERROR (spec, _("block size"), e);
c9a7b76bd443 * lib/human.c, lib/human.h (human_readable): Coalesce last two args
Jim Meyering <jim@meyering.net>
parents: 1142
diff changeset
288 }