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
|
/*
* malloc.c: safe wrappers around malloc, realloc, free, strdup
*/
#include <stdlib.h>
#include <stdarg.h>
#include "buttress.h"
#ifdef LOGALLOC
#define LOGPARAMS char *file, int line,
static FILE *logallocfp = NULL;
static void logallocinit(void) {
if (!logallocfp) {
logallocfp = fopen("malloc.log", "w");
if (!logallocfp) {
fprintf(stderr, "panic: unable to open malloc.log\n");
exit(10);
}
setvbuf (logallocfp, NULL, _IOLBF, BUFSIZ);
fprintf(logallocfp, "null pointer is %p\n", NULL);
}
}
static void logprintf(char *fmt, ...) {
va_list ap;
va_start(ap, fmt);
vfprintf(logallocfp, fmt, ap);
va_end(ap);
}
#define LOGPRINT(x) ( logallocinit(), logprintf x )
#else
#define LOGPARAMS
#define LOGPRINT(x)
#endif
/*
* smalloc should guarantee to return a useful pointer - buttress
* can do nothing except die when it's out of memory anyway
*/
void *(smalloc)(LOGPARAMS int size) {
void *p = malloc(size);
if (!p)
fatal(err_nomemory);
LOGPRINT(("%s %d malloc(%ld) returns %p\n",
file, line, (long)size, p));
return p;
}
/*
* sfree should guaranteeably deal gracefully with freeing NULL
*/
void (sfree)(LOGPARAMS void *p) {
if (p) {
free(p);
LOGPRINT(("%s %d free(%p)\n",
file, line, p));
}
}
/*
* srealloc should guaranteeably be able to realloc NULL
*/
void *(srealloc)(LOGPARAMS void *p, int size) {
void *q;
if (p) {
q = realloc(p, size);
LOGPRINT(("%s %d realloc(%p,%ld) returns %p\n",
file, line, p, (long)size, q));
} else {
q = malloc(size);
LOGPRINT(("%s %d malloc(%ld) returns %p\n",
file, line, (long)size, q));
}
if (!q)
fatal(err_nomemory);
return q;
}
/*
* Duplicate a linked list of words
*/
word *dup_word_list(word *w) {
word *head, **eptr = &head;
while (w) {
word *newwd = mknew(word);
*newwd = *w; /* structure copy */
newwd->text = ustrdup(w->text);
if (w->alt)
newwd->alt = dup_word_list(w->alt);
*eptr = newwd;
newwd->next = NULL;
eptr = &newwd->next;
w = w->next;
}
return head;
}
/*
* Free a linked list of words
*/
void free_word_list(word *w) {
word *t;
while (w) {
t = w;
w = w->next;
sfree(t->text);
if (t->alt)
free_word_list(t->alt);
sfree(t);
}
}
/*
* Free a linked list of paragraphs
*/
void free_para_list(paragraph *p) {
paragraph *t;
while (p) {
t = p;
p = p->next;
sfree(t->keyword);
free_word_list(t->words);
sfree(t);
}
}
|
