1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
|
/* ---------------------------------------------------------------------- *
* screen.c
* This file is part of lincity.
* Lincity is copyright (c) I J Peters 1995-1997, (c) Greg Sharp 1997-2001.
* Portions copyright (c) Corey Keasling, 2001.
* ---------------------------------------------------------------------- */
#include "lcconfig.h"
#include <stdio.h>
#include <stdlib.h>
#include "lcstring.h"
#include "cliglobs.h"
#include "lcintl.h"
char*
current_month (int current_time)
{
return _(months[(current_time % NUMOF_DAYS_IN_YEAR) / NUMOF_DAYS_IN_MONTH]);
}
int
current_year (int current_time)
{
return current_time / NUMOF_DAYS_IN_YEAR;
}
void
format_number5 (char* str, int num)
{
int num_sign = num >= 0 ? 1 : -1;
if (num_sign == 1) {
if (num < 99999) {
sprintf (str, "%5d", num);
} else if (num < 9999999) {
sprintf (str, "%4dK", num / 1000);
} else {
sprintf (str, "%4dM", num / 1000000);
}
} else {
int num_absval = num_sign * num;
if (num_absval < 9999) {
sprintf (str, "%5d", num);
} else if (num_absval < 999999) {
sprintf (str, "%4dK", num_sign * (num_absval / 1000));
} else {
sprintf (str, "%4dM", num_sign * (num_absval / 1000000));
}
}
}
void
num_to_ansi(char * s, size_t size, long num)
{
int triplets = 0;
float numf = (float)num;
while (numf > 1000) {
numf /= 1000;
triplets++;
}
switch(triplets)
{
case 0: triplets = ' '; break;
case 1: triplets = 'k'; break; // kila
case 2: triplets = 'm'; break; // mega
case 3: triplets = 'g'; break; // giga
case 4: triplets = 't'; break; // tera
case 5: triplets = 'p'; break; // peta
default: triplets = '?'; break;
}
if (size == 4) /* to make up for format_pos_number4. Eeewwwwwww. */
if (numf < 10)
snprintf(s, size + 1, "%1.1f%c", numf, triplets);
else
snprintf(s,size + 1, "%3.0f%c", numf, triplets);
else
snprintf(s, size, "%3.1f%c", numf, triplets);
}
void
num_to_ansi_unit(char * s, size_t size, long num, char unit)
{
int triplets = 0;
float numf = (float)num;
while (numf > 1000) {
numf /= 1000;
triplets++;
}
switch(triplets)
{
case 0: triplets = ' '; break;
case 1: triplets = 'k'; break; // kila
case 2: triplets = 'm'; break; // mega
case 3: triplets = 'g'; break; // giga
case 4: triplets = 't'; break; // tera
case 5: triplets = 'p'; break; // peta
default: triplets = '?'; break;
}
if (size == 4) /* to make up for format_pos_number4 */
if (numf < 10)
snprintf(s, size, "%4.1f%c%c", numf, triplets, unit);
else
snprintf(s,size, "%4.0f%c%c", numf, triplets, unit);
else
snprintf(s, size, "%5.1f%c%c", numf, triplets, unit);
}
/* commify: take a number and convert it to a string grouped into triplets
with commas; returns number of characters written, excluding trailing zero
*/
int
commify (char *str, size_t size, int argnum)
{
size_t count = 0;
int i = 0;
int triad = 1;
int num = argnum;
int kludge = 1;
if (num < 0)
count += snprintf(str, size, "-");
num = abs(argnum);
for (; num >= 1000; num /= 1000, triad++, kludge *= 1000);
num = abs(argnum);
for (; triad > 0; i++, triad--) {
if (i == 0)
if (triad == 1)
count += snprintf(str + count, size - count, "%d", num);
else
count += snprintf(str + count, size - count, "%d,",
num ? num / kludge : num);
else if (triad == 1)
count += snprintf(str + count, size - count, "%03d",
num ? num / kludge : num);
else
count += snprintf(str + count, size - count, "%03d,",
num ? num / kludge : num);
if (num) /* don't divide by zero */
num %= kludge;
kludge /= 1000;
}
return count;
}
/* GCS - make sure that the string has length at least size-1 */
void
pad_with_blanks (char* str, int size)
{
while (*str) {
size--;
str++;
}
while (size-- > 1) {
*str++ = ' ';
}
*str = '\0';
}
void
format_pos_number4 (char* str, int num)
{
num_to_ansi(str, 4, num);
}
void
format_power(char * str, size_t size, long power)
{
num_to_ansi_unit(str, size, power, 'w');
}
int
min_int (int i1, int i2)
{
return i1 < i2 ? i1 : i2;
}
int
max_int (int i1, int i2)
{
return i1 > i2 ? i1 : i2;
}
void *
lcalloc (size_t size)
{
void * tmp;
tmp = malloc(size);
if (tmp == NULL) {
printf("couldn't malloc %d bytes! Dying.\n",size);
exit(-1);
}
return tmp;
}
|