-
Notifications
You must be signed in to change notification settings - Fork 3
/
dlib.c
327 lines (295 loc) · 7.73 KB
/
dlib.c
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
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
/* Support code for dlib, see dlib.h for documentation. */
#include "dlib.h"
#include <stdio.h> /* NULL, FILE, stdin, fopen, fclose,
(popen, pclose, getline if -D_GNU_SOURCE) */
#include <stdlib.h> /* NULL, EXIT_FAILURE, free */
#include <string.h> /* strlen */
#include <errno.h> /* errno */
#include <time.h> /* clock_t, clock */
#include <stdarg.h> /* va_start etc. */
#if D_HAVE_MUSABLE
#include <malloc.h> /* malloc_usable_size */
#endif
/*** msg and die support code */
#ifndef NDEBUG
static void _d_error_clock(double c) {
if (c > 3600) fprintf(stderr, "%ldh", (long) (c / 3600));
if (c > 60) fprintf(stderr, "%ldm", ((long) (c / 60)) % 60);
fprintf(stderr, "%.2fs", c - 60 * ((long) (c / 60)));
}
#if D_HAVE_PROC
static void _d_error_mem(int64_t m) {
if (m < 1000) {
fprintf(stderr, "%ld", m);
} else {
_d_error_mem(m / 1000);
fprintf(stderr, ",%03ld", m % 1000);
}
}
#endif // D_HAVE_PROC
#endif // NDEBUG
void _d_error(int status, int errnum, const char *format, ...) {
fflush(stdout);
#ifndef NDEBUG
putc('[', stderr);
double c = (double) clock() / CLOCKS_PER_SEC;
_d_error_clock(c);
#if D_HAVE_MUSABLE
putc(' ', stderr);
_d_error_mem(_d_memsize);
#endif // D_HAVE_MUSABLE
#if D_HAVE_PROC
putc(' ', stderr);
char *tok[23];
forline(l, "/proc/self/stat") {
split(l, ' ', tok, 23); break;
}
_d_error_mem(strtoul(tok[22], NULL, 10));
putc('b', stderr);
#endif // D_HAVE_PROC
fputs("] ", stderr);
#endif // NDEBUG
va_list args;
va_start(args, format);
vfprintf(stderr, format, args);
va_end(args);
if (errnum) {
fprintf(stderr, ": %s", strerror(errnum));
errno = 0;
}
putc('\n', stderr);
if (status) exit(status);
}
/*** error checking memory allocation */
int64_t _d_memsize = 0;
void *_d_malloc(size_t size) {
void *ptr = malloc(size);
if (ptr == NULL)
die("Cannot allocate %zu bytes", size);
#ifndef NDEBUG
#if D_HAVE_MUSABLE
_d_memsize += malloc_usable_size(ptr);
#endif
#endif
return ptr;
}
void *_d_calloc(size_t nmemb, size_t size) {
void *ptr = calloc(nmemb, size);
if (ptr == NULL)
die("Cannot allocate %zu bytes", nmemb*size);
#ifndef NDEBUG
#if D_HAVE_MUSABLE
_d_memsize += malloc_usable_size(ptr);
#endif
#endif
return ptr;
}
void *_d_realloc(void *ptr, size_t size) {
#ifndef NDEBUG
#if D_HAVE_MUSABLE
_d_memsize -= malloc_usable_size(ptr);
#endif
#endif
void *ptr2 = realloc(ptr, size);
if (ptr2 == NULL)
die("Cannot allocate %zu bytes", size);
#ifndef NDEBUG
#if D_HAVE_MUSABLE
_d_memsize += malloc_usable_size(ptr2);
#endif
#endif
return ptr2;
}
void _d_free(void *ptr) {
#ifndef NDEBUG
#if D_HAVE_MUSABLE
// This may fail if multithreaded
// assert(_d_memsize >= malloc_usable_size(ptr));
_d_memsize -= malloc_usable_size(ptr);
#endif
#endif
free(ptr);
}
/*** forline support code */
struct _D_FILE_S {
void *fptr;
enum { _D_STDIN, _D_POPEN, _D_FOPEN } type;
size_t size;
char *line;
};
#if D_HAVE_POPEN
static char *_d_uncompress(const char *f) {
size_t n = strlen(f);
char *z = NULL;
if (n > 3 && !strcmp(&f[n-3], ".gz")) {
z = _d_malloc(n + 6);
sprintf(z, "zcat %s", f);
} else if (n > 3 && !strcmp(&f[n-3], ".xz")) {
z = _d_malloc(n + 7);
sprintf(z, "xzcat %s", f);
} else if (n > 4 && !strcmp(&f[n-4], ".bz2")) {
z = _d_malloc(n + 7);
sprintf(z, "bzcat %s", f);
}
return z;
}
#endif
_D_FILE _d_open(const char *f) {
_D_FILE p = _d_malloc(sizeof(struct _D_FILE_S));
p->size = 0;
p->line = NULL;
char *z = NULL;
if (f == NULL) {
p->fptr = stdin;
p->type = _D_STDIN;
#if D_HAVE_POPEN
} else if (*f == '<') {
p->fptr = popen(f+1, "r");
p->type = _D_POPEN;
} else if ((z = _d_uncompress(f)) != NULL) {
p->fptr = popen(z, "r");
p->type = _D_POPEN;
_d_free(z);
#endif
} else {
p->fptr = fopen(f, "r");
p->type = _D_FOPEN;
}
if (p->fptr == NULL) {
die("Cannot open %s", f);
}
return p;
}
void _d_close(_D_FILE p) {
free(p->line); // may be reallocated by getline
switch(p->type) {
case _D_FOPEN: fclose(p->fptr); break;
#if D_HAVE_POPEN
case _D_POPEN: pclose(p->fptr); break;
#endif
default: break;
}
_d_free(p);
}
char *_d_gets(_D_FILE p) {
if (p == NULL) return NULL;
#if D_HAVE_GETLINE
ssize_t rgetline = getline(&(p->line), &(p->size), p->fptr);
return ((rgetline == -1) ? NULL : p->line);
#endif
if (p->line == NULL || p->size == 0) {
p->size = 120;
p->line = malloc(p->size); // can be realloced by getline
assert(p->line != NULL);
}
char *ptr = p->line;
size_t len = p->size;
char *rgets = NULL;
do {
ptr[0] = 0;
ptr[len-1] = 1; // This will become 0 if line too long
rgets = fgets(ptr, len, p->fptr);
if (rgets == NULL) break;
if (ptr[len-1] == 0) { // We may need to keep reading
if (ptr[len-2] == '\n') break; // Just finished a line
size_t oldn = p->size;
p->size <<= 1;
p->line = _d_realloc(p->line, p->size);
ptr = &(p->line)[oldn-1];
len = oldn + 1;
}
} while (ptr[len-1] == 0);
if ((rgets == NULL) && (ptr == p->line)) {
return NULL;
} else {
return p->line;
}
}
size_t fnv1a(const char *k) {
size_t hash = 14695981039346656037ULL;
uint8_t *p = (uint8_t *) k;
while (*p != 0) {
hash ^= *p++;
hash *= 1099511628211ULL;
}
return hash;
}
/*** fast memory allocation */
#define _D_MSIZE (1<<20)
static char *_d_mlast = NULL;
char *_d_mfree = NULL;
size_t _d_mleft = 0;
#define _d_mnext(m) (*((ptr_t*)(m)))
/* only way to free is to free everything */
void dfreeall() {
while (_d_mlast != NULL) {
ptr_t p = _d_mnext(_d_mlast);
_d_free(_d_mlast);
_d_mlast = p;
}
}
ptr_t _dalloc_helper(size_t size) {
char *ptr = NULL;
if (size <= (_D_MSIZE >> 1)) {
// Suspicious optimization
// hoping realloc will not move memory if getting smaller.
if (_d_mlast != NULL) {
char *shrink = _d_realloc(_d_mlast, _d_mfree - _d_mlast);
if (shrink != _d_mlast) die("dalloc: suspicious optimization broke the code.");
}
ptr_t old = _d_mlast;
_d_mlast = _d_malloc(_D_MSIZE + sizeof(ptr_t));
_d_mnext(_d_mlast) = old;
ptr = _d_mlast + sizeof(ptr_t);
_d_mfree = ptr + size;
_d_mleft = _D_MSIZE - size;
} else {
ptr = _d_malloc(size + sizeof(ptr_t));
if (_d_mlast == NULL) {
_d_mnext(ptr) = NULL;
_d_mlast = ptr;
} else {
_d_mnext(ptr) = _d_mnext(_d_mlast);
_d_mnext(_d_mlast) = ptr;
}
ptr += sizeof(ptr_t);
}
return ptr;
}
/*** symbol table */
static darr_t _d_strtable;
static darr_t _d_symtable;
#define _d_sym2str(u) (((str_t *)(_d_strtable->data))[u-1])
#define _d_iszero(u) ((u)==0)
#define _d_mkzero(u) ((u)=0)
static sym_t _d_syminit(const str_t s) {
if (_d_strtable == NULL) _d_strtable = darr_new(0, sizeof(str_t));
size_t l = len(_d_strtable);
val(str_t, _d_strtable, l) = dstrdup(s);
return l+1;
}
D_HASH(_d_sym, sym_t, str_t, d_strmatch, fnv1a, _d_sym2str, _d_syminit, _d_iszero, _d_mkzero)
sym_t str2sym(const str_t str, bool insert) {
if (_d_symtable == NULL) _d_symtable = _d_symnew(0);
sym_t *p = _d_symget(_d_symtable, str, insert);
return ((p == NULL) ? 0 : (*p));
}
str_t sym2str(sym_t sym) {
if ((sym == 0) || (_d_strtable == NULL) || (len(_d_strtable) < sym)) {
return NULL;
} else {
return (((str_t *)(_d_strtable->data))[sym - 1]);
}
}
void symtable_free() {
_d_symfree(_d_symtable); _d_symtable = NULL;
darr_free(_d_strtable); _d_strtable = NULL;
}
void symdbg() {
msg("str_t=%lu", sizeof(str_t));
msg("sym_t=%lu", sizeof(sym_t));
msg("strcap=%lu", _d_strtable == NULL ? 0 : cap(_d_strtable));
msg("strlen=%lu", _d_strtable == NULL ? 0 : len(_d_strtable));
msg("symcap=%lu", _d_symtable == NULL ? 0 : cap(_d_symtable));
msg("symlen=%lu", _d_symtable == NULL ? 0 : len(_d_symtable));
}