Mercurial > hg > octave-shane > gnulib-hg

annotate lib/human.c @ 1786:027e08403b18

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Include xstrtol.h, not xstrtoul.h, since xstrtol.h now defines all the xstrto... functions.
author Jim Meyering <jim@meyering.net>
date Sun, 18 Apr 1999 23:18:32 +0000
parents ca73757a0183
children 2a52bf4a60c7
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 #if HAVE_INTTYPES_H
2c9059ccc457 New file. The interface is inspired
Jim Meyering <jim@meyering.net>
parents:
diff changeset
27 # include <inttypes.h>
2c9059ccc457 New file. The interface is inspired
Jim Meyering <jim@meyering.net>
parents:
diff changeset
28 #endif
2c9059ccc457 New file. The interface is inspired
Jim Meyering <jim@meyering.net>
parents:
diff changeset
29
2c9059ccc457 New file. The interface is inspired
Jim Meyering <jim@meyering.net>
parents:
diff changeset
30 #include <sys/types.h>
2c9059ccc457 New file. The interface is inspired
Jim Meyering <jim@meyering.net>
parents:
diff changeset
31 #include <stdio.h>
2c9059ccc457 New file. The interface is inspired
Jim Meyering <jim@meyering.net>
parents:
diff changeset
32
2c9059ccc457 New file. The interface is inspired
Jim Meyering <jim@meyering.net>
parents:
diff changeset
33 #if HAVE_LIMITS_H
2c9059ccc457 New file. The interface is inspired
Jim Meyering <jim@meyering.net>
parents:
diff changeset
34 # include <limits.h>
2c9059ccc457 New file. The interface is inspired
Jim Meyering <jim@meyering.net>
parents:
diff changeset
35 #endif
2c9059ccc457 New file. The interface is inspired
Jim Meyering <jim@meyering.net>
parents:
diff changeset
36
2c9059ccc457 New file. The interface is inspired
Jim Meyering <jim@meyering.net>
parents:
diff changeset
37 #ifndef CHAR_BIT
1142
ff40370aead6 (human_readable): Convert to ANSI-style definition.
Jim Meyering <jim@meyering.net>
parents: 1137
diff changeset
38 # define CHAR_BIT 8
1137
2c9059ccc457 New file. The interface is inspired
Jim Meyering <jim@meyering.net>
parents:
diff changeset
39 #endif
1391
c9a7b76bd443 * lib/human.c, lib/human.h (human_readable): Coalesce last two args
Jim Meyering <jim@meyering.net>
parents: 1142
diff changeset
40 #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
41 # 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
42 #endif
c9a7b76bd443 * lib/human.c, lib/human.h (human_readable): Coalesce last two args
Jim Meyering <jim@meyering.net>
parents: 1142
diff changeset
43
c9a7b76bd443 * lib/human.c, lib/human.h (human_readable): Coalesce last two args
Jim Meyering <jim@meyering.net>
parents: 1142
diff changeset
44 #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
45 char *getenv ();
c9a7b76bd443 * lib/human.c, lib/human.h (human_readable): Coalesce last two args
Jim Meyering <jim@meyering.net>
parents: 1142
diff changeset
46 #endif
c9a7b76bd443 * lib/human.c, lib/human.h (human_readable): Coalesce last two args
Jim Meyering <jim@meyering.net>
parents: 1142
diff changeset
47
c9a7b76bd443 * lib/human.c, lib/human.h (human_readable): Coalesce last two args
Jim Meyering <jim@meyering.net>
parents: 1142
diff changeset
48 #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
49 # 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
50 # 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
51 #else
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) Text
c9a7b76bd443 * lib/human.c, lib/human.h (human_readable): Coalesce last two args
Jim Meyering <jim@meyering.net>
parents: 1142
diff changeset
53 #endif
c9a7b76bd443 * lib/human.c, lib/human.h (human_readable): Coalesce last two args
Jim Meyering <jim@meyering.net>
parents: 1142
diff changeset
54
c9a7b76bd443 * lib/human.c, lib/human.h (human_readable): Coalesce last two args
Jim Meyering <jim@meyering.net>
parents: 1142
diff changeset
55 #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
56 #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
57 #include <xstrtol.h>
1137
2c9059ccc457 New file. The interface is inspired
Jim Meyering <jim@meyering.net>
parents:
diff changeset
58
2c9059ccc457 New file. The interface is inspired
Jim Meyering <jim@meyering.net>
parents:
diff changeset
59 #include "human.h"
2c9059ccc457 New file. The interface is inspired
Jim Meyering <jim@meyering.net>
parents:
diff changeset
60
1142
ff40370aead6 (human_readable): Convert to ANSI-style definition.
Jim Meyering <jim@meyering.net>
parents: 1137
diff changeset
61 static const char suffixes[] =
1137
2c9059ccc457 New file. The interface is inspired
Jim Meyering <jim@meyering.net>
parents:
diff changeset
62 {
2c9059ccc457 New file. The interface is inspired
Jim Meyering <jim@meyering.net>
parents:
diff changeset
63 0, /* not used */
2c9059ccc457 New file. The interface is inspired
Jim Meyering <jim@meyering.net>
parents:
diff changeset
64 'k', /* kilo */
2c9059ccc457 New file. The interface is inspired
Jim Meyering <jim@meyering.net>
parents:
diff changeset
65 'M', /* Mega */
2c9059ccc457 New file. The interface is inspired
Jim Meyering <jim@meyering.net>
parents:
diff changeset
66 'G', /* Giga */
2c9059ccc457 New file. The interface is inspired
Jim Meyering <jim@meyering.net>
parents:
diff changeset
67 'T', /* Tera */
2c9059ccc457 New file. The interface is inspired
Jim Meyering <jim@meyering.net>
parents:
diff changeset
68 'P', /* Peta */
2c9059ccc457 New file. The interface is inspired
Jim Meyering <jim@meyering.net>
parents:
diff changeset
69 'E', /* Exa */
2c9059ccc457 New file. The interface is inspired
Jim Meyering <jim@meyering.net>
parents:
diff changeset
70 'Z', /* Zetta */
2c9059ccc457 New file. The interface is inspired
Jim Meyering <jim@meyering.net>
parents:
diff changeset
71 'Y' /* Yotta */
2c9059ccc457 New file. The interface is inspired
Jim Meyering <jim@meyering.net>
parents:
diff changeset
72 };
2c9059ccc457 New file. The interface is inspired
Jim Meyering <jim@meyering.net>
parents:
diff changeset
73
2c9059ccc457 New file. The interface is inspired
Jim Meyering <jim@meyering.net>
parents:
diff changeset
74 /* 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
75
1391
c9a7b76bd443 * lib/human.c, lib/human.h (human_readable): Coalesce last two args
Jim Meyering <jim@meyering.net>
parents: 1142
diff changeset
76 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
77 be positive.
c9a7b76bd443 * lib/human.c, lib/human.h (human_readable): Coalesce last two args
Jim Meyering <jim@meyering.net>
parents: 1142
diff changeset
78
c9a7b76bd443 * lib/human.c, lib/human.h (human_readable): Coalesce last two args
Jim Meyering <jim@meyering.net>
parents: 1142
diff changeset
79 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
80 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
81 FROM_BLOCK_SIZE or vice versa.
1142
ff40370aead6 (human_readable): Convert to ANSI-style definition.
Jim Meyering <jim@meyering.net>
parents: 1137
diff changeset
82
1391
c9a7b76bd443 * lib/human.c, lib/human.h (human_readable): Coalesce last two args
Jim Meyering <jim@meyering.net>
parents: 1142
diff changeset
83 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
84 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
85 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
86 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
87 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
88 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
89 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
90 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
91 -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
92 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
93 than -OUTPUT_BLOCK_SIZE aren't modified. */
1137
2c9059ccc457 New file. The interface is inspired
Jim Meyering <jim@meyering.net>
parents:
diff changeset
94
2c9059ccc457 New file. The interface is inspired
Jim Meyering <jim@meyering.net>
parents:
diff changeset
95 char *
1391
c9a7b76bd443 * lib/human.c, lib/human.h (human_readable): Coalesce last two args
Jim Meyering <jim@meyering.net>
parents: 1142
diff changeset
96 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
97 int from_block_size, int output_block_size)
1137
2c9059ccc457 New file. The interface is inspired
Jim Meyering <jim@meyering.net>
parents:
diff changeset
98 {
2c9059ccc457 New file. The interface is inspired
Jim Meyering <jim@meyering.net>
parents:
diff changeset
99 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
100 int base;
c9a7b76bd443 * lib/human.c, lib/human.h (human_readable): Coalesce last two args
Jim Meyering <jim@meyering.net>
parents: 1142
diff changeset
101 int to_block_size;
1137
2c9059ccc457 New file. The interface is inspired
Jim Meyering <jim@meyering.net>
parents:
diff changeset
102 int tenths;
2c9059ccc457 New file. The interface is inspired
Jim Meyering <jim@meyering.net>
parents:
diff changeset
103 int power;
2c9059ccc457 New file. The interface is inspired
Jim Meyering <jim@meyering.net>
parents:
diff changeset
104 char *p;
2c9059ccc457 New file. The interface is inspired
Jim Meyering <jim@meyering.net>
parents:
diff changeset
105
2c9059ccc457 New file. The interface is inspired
Jim Meyering <jim@meyering.net>
parents:
diff changeset
106 /* 0 means adjusted N == AMT.TENTHS;
2c9059ccc457 New file. The interface is inspired
Jim Meyering <jim@meyering.net>
parents:
diff changeset
107 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
108 2 means adjusted N == AMT.TENTHS + 0.05;
2c9059ccc457 New file. The interface is inspired
Jim Meyering <jim@meyering.net>
parents:
diff changeset
109 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
110 int rounding;
2c9059ccc457 New file. The interface is inspired
Jim Meyering <jim@meyering.net>
parents:
diff changeset
111
1391
c9a7b76bd443 * lib/human.c, lib/human.h (human_readable): Coalesce last two args
Jim Meyering <jim@meyering.net>
parents: 1142
diff changeset
112 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
113 {
c9a7b76bd443 * lib/human.c, lib/human.h (human_readable): Coalesce last two args
Jim Meyering <jim@meyering.net>
parents: 1142
diff changeset
114 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
115 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
116 }
c9a7b76bd443 * lib/human.c, lib/human.h (human_readable): Coalesce last two args
Jim Meyering <jim@meyering.net>
parents: 1142
diff changeset
117 else
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 base = 0;
c9a7b76bd443 * lib/human.c, lib/human.h (human_readable): Coalesce last two args
Jim Meyering <jim@meyering.net>
parents: 1142
diff changeset
120 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
121 }
c9a7b76bd443 * lib/human.c, lib/human.h (human_readable): Coalesce last two args
Jim Meyering <jim@meyering.net>
parents: 1142
diff changeset
122
1137
2c9059ccc457 New file. The interface is inspired
Jim Meyering <jim@meyering.net>
parents:
diff changeset
123 p = buf + LONGEST_HUMAN_READABLE;
2c9059ccc457 New file. The interface is inspired
Jim Meyering <jim@meyering.net>
parents:
diff changeset
124 *p = '\0';
1142
ff40370aead6 (human_readable): Convert to ANSI-style definition.
Jim Meyering <jim@meyering.net>
parents: 1137
diff changeset
125
ff40370aead6 (human_readable): Convert to ANSI-style definition.
Jim Meyering <jim@meyering.net>
parents: 1137
diff changeset
126 #ifdef lint
ff40370aead6 (human_readable): Convert to ANSI-style definition.
Jim Meyering <jim@meyering.net>
parents: 1137
diff changeset
127 /* Suppress `used before initialized' warning. */
ff40370aead6 (human_readable): Convert to ANSI-style definition.
Jim Meyering <jim@meyering.net>
parents: 1137
diff changeset
128 power = 0;
ff40370aead6 (human_readable): Convert to ANSI-style definition.
Jim Meyering <jim@meyering.net>
parents: 1137
diff changeset
129 #endif
1137
2c9059ccc457 New file. The interface is inspired
Jim Meyering <jim@meyering.net>
parents:
diff changeset
130
1391
c9a7b76bd443 * lib/human.c, lib/human.h (human_readable): Coalesce last two args
Jim Meyering <jim@meyering.net>
parents: 1142
diff changeset
131 /* 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
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 if (to_block_size <= from_block_size)
1137
2c9059ccc457 New file. The interface is inspired
Jim Meyering <jim@meyering.net>
parents:
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 int multiplier = from_block_size / to_block_size;
1137
2c9059ccc457 New file. The interface is inspired
Jim Meyering <jim@meyering.net>
parents:
diff changeset
136 amt = n * multiplier;
2c9059ccc457 New file. The interface is inspired
Jim Meyering <jim@meyering.net>
parents:
diff changeset
137 tenths = rounding = 0;
2c9059ccc457 New file. The interface is inspired
Jim Meyering <jim@meyering.net>
parents:
diff changeset
138
2c9059ccc457 New file. The interface is inspired
Jim Meyering <jim@meyering.net>
parents:
diff changeset
139 if (amt / multiplier != n)
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 /* Overflow occurred during multiplication. We should use
2c9059ccc457 New file. The interface is inspired
Jim Meyering <jim@meyering.net>
parents:
diff changeset
142 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
143 resort to floating point. This can yield answers that
2c9059ccc457 New file. The interface is inspired
Jim Meyering <jim@meyering.net>
parents:
diff changeset
144 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
145 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
146
2c9059ccc457 New file. The interface is inspired
Jim Meyering <jim@meyering.net>
parents:
diff changeset
147 double damt = n * (double) multiplier;
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 if (! base)
2c9059ccc457 New file. The interface is inspired
Jim Meyering <jim@meyering.net>
parents:
diff changeset
150 sprintf (buf, "%.0f", damt);
2c9059ccc457 New file. The interface is inspired
Jim Meyering <jim@meyering.net>
parents:
diff changeset
151 else
2c9059ccc457 New file. The interface is inspired
Jim Meyering <jim@meyering.net>
parents:
diff changeset
152 {
2c9059ccc457 New file. The interface is inspired
Jim Meyering <jim@meyering.net>
parents:
diff changeset
153 double e = 1;
2c9059ccc457 New file. The interface is inspired
Jim Meyering <jim@meyering.net>
parents:
diff changeset
154 power = 0;
2c9059ccc457 New file. The interface is inspired
Jim Meyering <jim@meyering.net>
parents:
diff changeset
155
2c9059ccc457 New file. The interface is inspired
Jim Meyering <jim@meyering.net>
parents:
diff changeset
156 do
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 e *= base;
2c9059ccc457 New file. The interface is inspired
Jim Meyering <jim@meyering.net>
parents:
diff changeset
159 power++;
2c9059ccc457 New file. The interface is inspired
Jim Meyering <jim@meyering.net>
parents:
diff changeset
160 }
1439
9ee89fcc7505 (human_readable): amt -> damt, to fix typo when
Jim Meyering <jim@meyering.net>
parents: 1391
diff changeset
161 while (e * base <= damt && power < sizeof suffixes - 1);
1137
2c9059ccc457 New file. The interface is inspired
Jim Meyering <jim@meyering.net>
parents:
diff changeset
162
2c9059ccc457 New file. The interface is inspired
Jim Meyering <jim@meyering.net>
parents:
diff changeset
163 damt /= e;
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 sprintf (buf, "%.1f%c", damt, suffixes[power]);
2c9059ccc457 New file. The interface is inspired
Jim Meyering <jim@meyering.net>
parents:
diff changeset
166 if (4 < strlen (buf))
2c9059ccc457 New file. The interface is inspired
Jim Meyering <jim@meyering.net>
parents:
diff changeset
167 sprintf (buf, "%.0f%c", damt, suffixes[power]);
2c9059ccc457 New file. The interface is inspired
Jim Meyering <jim@meyering.net>
parents:
diff changeset
168 }
2c9059ccc457 New file. The interface is inspired
Jim Meyering <jim@meyering.net>
parents:
diff changeset
169
2c9059ccc457 New file. The interface is inspired
Jim Meyering <jim@meyering.net>
parents:
diff changeset
170 return buf;
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 }
2c9059ccc457 New file. The interface is inspired
Jim Meyering <jim@meyering.net>
parents:
diff changeset
173 else
2c9059ccc457 New file. The interface is inspired
Jim Meyering <jim@meyering.net>
parents:
diff changeset
174 {
1391
c9a7b76bd443 * lib/human.c, lib/human.h (human_readable): Coalesce last two args
Jim Meyering <jim@meyering.net>
parents: 1142
diff changeset
175 int divisor = to_block_size / from_block_size;
1137
2c9059ccc457 New file. The interface is inspired
Jim Meyering <jim@meyering.net>
parents:
diff changeset
176 int r10 = (n % divisor) * 10;
2c9059ccc457 New file. The interface is inspired
Jim Meyering <jim@meyering.net>
parents:
diff changeset
177 int r2 = (r10 % divisor) * 2;
2c9059ccc457 New file. The interface is inspired
Jim Meyering <jim@meyering.net>
parents:
diff changeset
178 amt = n / divisor;
2c9059ccc457 New file. The interface is inspired
Jim Meyering <jim@meyering.net>
parents:
diff changeset
179 tenths = r10 / divisor;
2c9059ccc457 New file. The interface is inspired
Jim Meyering <jim@meyering.net>
parents:
diff changeset
180 rounding = r2 < divisor ? 0 < r2 : 2 + (divisor < r2);
2c9059ccc457 New file. The interface is inspired
Jim Meyering <jim@meyering.net>
parents:
diff changeset
181 }
2c9059ccc457 New file. The interface is inspired
Jim Meyering <jim@meyering.net>
parents:
diff changeset
182
1142
ff40370aead6 (human_readable): Convert to ANSI-style definition.
Jim Meyering <jim@meyering.net>
parents: 1137
diff changeset
183
1137
2c9059ccc457 New file. The interface is inspired
Jim Meyering <jim@meyering.net>
parents:
diff changeset
184 /* 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
185
2c9059ccc457 New file. The interface is inspired
Jim Meyering <jim@meyering.net>
parents:
diff changeset
186 if (base && base <= amt)
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 power = 0;
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 do
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 int r10 = (amt % base) * 10 + tenths;
2c9059ccc457 New file. The interface is inspired
Jim Meyering <jim@meyering.net>
parents:
diff changeset
193 int r2 = (r10 % base) * 2 + (rounding >> 1);
2c9059ccc457 New file. The interface is inspired
Jim Meyering <jim@meyering.net>
parents:
diff changeset
194 amt /= base;
2c9059ccc457 New file. The interface is inspired
Jim Meyering <jim@meyering.net>
parents:
diff changeset
195 tenths = r10 / base;
2c9059ccc457 New file. The interface is inspired
Jim Meyering <jim@meyering.net>
parents:
diff changeset
196 rounding = (r2 < base
2c9059ccc457 New file. The interface is inspired
Jim Meyering <jim@meyering.net>
parents:
diff changeset
197 ? 0 < r2 + rounding
2c9059ccc457 New file. The interface is inspired
Jim Meyering <jim@meyering.net>
parents:
diff changeset
198 : 2 + (base < r2 + rounding));
2c9059ccc457 New file. The interface is inspired
Jim Meyering <jim@meyering.net>
parents:
diff changeset
199 power++;
2c9059ccc457 New file. The interface is inspired
Jim Meyering <jim@meyering.net>
parents:
diff changeset
200 }
2c9059ccc457 New file. The interface is inspired
Jim Meyering <jim@meyering.net>
parents:
diff changeset
201 while (base <= amt && power < sizeof suffixes - 1);
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 *--p = suffixes[power];
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 if (amt < 10)
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 tenths += 2 < rounding + (tenths & 1);
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 if (tenths == 10)
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 amt++;
2c9059ccc457 New file. The interface is inspired
Jim Meyering <jim@meyering.net>
parents:
diff changeset
212 tenths = 0;
2c9059ccc457 New file. The interface is inspired
Jim Meyering <jim@meyering.net>
parents:
diff changeset
213 }
2c9059ccc457 New file. The interface is inspired
Jim Meyering <jim@meyering.net>
parents:
diff changeset
214
2c9059ccc457 New file. The interface is inspired
Jim Meyering <jim@meyering.net>
parents:
diff changeset
215 if (amt < 10)
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 *--p = '0' + tenths;
2c9059ccc457 New file. The interface is inspired
Jim Meyering <jim@meyering.net>
parents:
diff changeset
218 *--p = '.';
2c9059ccc457 New file. The interface is inspired
Jim Meyering <jim@meyering.net>
parents:
diff changeset
219 tenths = 0;
2c9059ccc457 New file. The interface is inspired
Jim Meyering <jim@meyering.net>
parents:
diff changeset
220 }
2c9059ccc457 New file. The interface is inspired
Jim Meyering <jim@meyering.net>
parents:
diff changeset
221 }
2c9059ccc457 New file. The interface is inspired
Jim Meyering <jim@meyering.net>
parents:
diff changeset
222 }
1142
ff40370aead6 (human_readable): Convert to ANSI-style definition.
Jim Meyering <jim@meyering.net>
parents: 1137
diff changeset
223
1137
2c9059ccc457 New file. The interface is inspired
Jim Meyering <jim@meyering.net>
parents:
diff changeset
224 if (5 < tenths + (2 < rounding + (amt & 1)))
2c9059ccc457 New file. The interface is inspired
Jim Meyering <jim@meyering.net>
parents:
diff changeset
225 {
2c9059ccc457 New file. The interface is inspired
Jim Meyering <jim@meyering.net>
parents:
diff changeset
226 amt++;
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 if (amt == base && power < sizeof suffixes - 1)
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 *p = suffixes[power + 1];
2c9059ccc457 New file. The interface is inspired
Jim Meyering <jim@meyering.net>
parents:
diff changeset
231 *--p = '0';
2c9059ccc457 New file. The interface is inspired
Jim Meyering <jim@meyering.net>
parents:
diff changeset
232 *--p = '.';
2c9059ccc457 New file. The interface is inspired
Jim Meyering <jim@meyering.net>
parents:
diff changeset
233 amt = 1;
2c9059ccc457 New file. The interface is inspired
Jim Meyering <jim@meyering.net>
parents:
diff changeset
234 }
2c9059ccc457 New file. The interface is inspired
Jim Meyering <jim@meyering.net>
parents:
diff changeset
235 }
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 do
2c9059ccc457 New file. The interface is inspired
Jim Meyering <jim@meyering.net>
parents:
diff changeset
238 *--p = '0' + (int) (amt % 10);
2c9059ccc457 New file. The interface is inspired
Jim Meyering <jim@meyering.net>
parents:
diff changeset
239 while ((amt /= 10) != 0);
2c9059ccc457 New file. The interface is inspired
Jim Meyering <jim@meyering.net>
parents:
diff changeset
240
2c9059ccc457 New file. The interface is inspired
Jim Meyering <jim@meyering.net>
parents:
diff changeset
241 return p;
2c9059ccc457 New file. The interface is inspired
Jim Meyering <jim@meyering.net>
parents:
diff changeset
242 }
1391
c9a7b76bd443 * lib/human.c, lib/human.h (human_readable): Coalesce last two args
Jim Meyering <jim@meyering.net>
parents: 1142
diff changeset
243
c9a7b76bd443 * lib/human.c, lib/human.h (human_readable): Coalesce last two args
Jim Meyering <jim@meyering.net>
parents: 1142
diff changeset
244
c9a7b76bd443 * lib/human.c, lib/human.h (human_readable): Coalesce last two args
Jim Meyering <jim@meyering.net>
parents: 1142
diff changeset
245 /* 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
246 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
247 #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
248 # 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
249 #endif
c9a7b76bd443 * lib/human.c, lib/human.h (human_readable): Coalesce last two args
Jim Meyering <jim@meyering.net>
parents: 1142
diff changeset
250
c9a7b76bd443 * lib/human.c, lib/human.h (human_readable): Coalesce last two args
Jim Meyering <jim@meyering.net>
parents: 1142
diff changeset
251 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
252 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
253
c9a7b76bd443 * lib/human.c, lib/human.h (human_readable): Coalesce last two args
Jim Meyering <jim@meyering.net>
parents: 1142
diff changeset
254 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
255 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
256 {
c9a7b76bd443 * lib/human.c, lib/human.h (human_readable): Coalesce last two args
Jim Meyering <jim@meyering.net>
parents: 1142
diff changeset
257 int i;
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 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
260 *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
261 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
262 *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
263 else
c9a7b76bd443 * lib/human.c, lib/human.h (human_readable): Coalesce last two args
Jim Meyering <jim@meyering.net>
parents: 1142
diff changeset
264 {
c9a7b76bd443 * lib/human.c, lib/human.h (human_readable): Coalesce last two args
Jim Meyering <jim@meyering.net>
parents: 1142
diff changeset
265 char *ptr;
c9a7b76bd443 * lib/human.c, lib/human.h (human_readable): Coalesce last two args
Jim Meyering <jim@meyering.net>
parents: 1142
diff changeset
266 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
267 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
268 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
269 return e;
c9a7b76bd443 * lib/human.c, lib/human.h (human_readable): Coalesce last two args
Jim Meyering <jim@meyering.net>
parents: 1142
diff changeset
270 if (*ptr)
c9a7b76bd443 * lib/human.c, lib/human.h (human_readable): Coalesce last two args
Jim Meyering <jim@meyering.net>
parents: 1142
diff changeset
271 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
272 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
273 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
274 *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
275 }
c9a7b76bd443 * lib/human.c, lib/human.h (human_readable): Coalesce last two args
Jim Meyering <jim@meyering.net>
parents: 1142
diff changeset
276
c9a7b76bd443 * lib/human.c, lib/human.h (human_readable): Coalesce last two args
Jim Meyering <jim@meyering.net>
parents: 1142
diff changeset
277 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
278 }
c9a7b76bd443 * lib/human.c, lib/human.h (human_readable): Coalesce last two args
Jim Meyering <jim@meyering.net>
parents: 1142
diff changeset
279
c9a7b76bd443 * lib/human.c, lib/human.h (human_readable): Coalesce last two args
Jim Meyering <jim@meyering.net>
parents: 1142
diff changeset
280 void
c9a7b76bd443 * lib/human.c, lib/human.h (human_readable): Coalesce last two args
Jim Meyering <jim@meyering.net>
parents: 1142
diff changeset
281 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
282 {
c9a7b76bd443 * lib/human.c, lib/human.h (human_readable): Coalesce last two args
Jim Meyering <jim@meyering.net>
parents: 1142
diff changeset
283 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
284 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
285 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
286 }