Mercurial > libpst
annotate src/debug.c @ 92:93ce964a3f92
Added tag stable-0-6-17 for changeset 9bd455802437
| author | Carl Byington <carl@five-ten-sg.com> |
|---|---|
| date | Tue, 05 Aug 2008 12:09:19 -0700 |
| parents | 9bd455802437 |
| children | 1fc33da23175 |
| rev | line source |
|---|---|
| 48 | 1 |
| 2 #include "define.h" | |
| 3 | |
| 16 | 4 #include <stdio.h> |
| 5 #include <stdlib.h> | |
| 6 #include <stdarg.h> | |
| 7 #include <ctype.h> | |
| 8 #include <string.h> | |
| 9 #include <limits.h> | |
|
91
9bd455802437
More fixes for 32/64 bit portability on big endian ppc.
Carl Byington <carl@five-ten-sg.com>
parents:
90
diff
changeset
|
10 #include <stdint.h> |
|
9bd455802437
More fixes for 32/64 bit portability on big endian ppc.
Carl Byington <carl@five-ten-sg.com>
parents:
90
diff
changeset
|
11 #include <inttypes.h> |
| 16 | 12 |
| 46 | 13 struct pst_debug_item { |
| 14 int type; | |
| 15 char * function; | |
| 16 unsigned int line; | |
| 17 char * file; | |
| 18 char * text; | |
| 19 struct pst_debug_item *next; | |
| 16 | 20 } *item_head=NULL, *item_tail=NULL, *item_ptr=NULL, *info_ptr=NULL, *temp_list=NULL; |
| 21 | |
|
33
12cac756bc05
enable -d option, but if not specified, don't generate a debug file
carl
parents:
31
diff
changeset
|
22 |
| 46 | 23 struct pst_debug_func { |
| 24 char * name; | |
| 25 struct pst_debug_func *next; | |
| 16 | 26 } *func_head=NULL, *func_ptr=NULL; |
| 27 | |
| 28 | |
|
73
3cb02cb1e6cd
Patch from Robert Simpson to fix doubly-linked list in the cache_ptr code, and allow arrays of unicode strings (without converting them).
Carl Byington <carl@five-ten-sg.com>
parents:
70
diff
changeset
|
29 void pst_debug_write_msg(struct pst_debug_item *item, const char *fmt, va_list *ap, int size); |
|
3cb02cb1e6cd
Patch from Robert Simpson to fix doubly-linked list in the cache_ptr code, and allow arrays of unicode strings (without converting them).
Carl Byington <carl@five-ten-sg.com>
parents:
70
diff
changeset
|
30 void pst_debug_write_hex(struct pst_debug_item *item, char *buf, size_t size, int col); |
| 16 | 31 void * xmalloc(size_t size); |
| 32 | |
|
73
3cb02cb1e6cd
Patch from Robert Simpson to fix doubly-linked list in the cache_ptr code, and allow arrays of unicode strings (without converting them).
Carl Byington <carl@five-ten-sg.com>
parents:
70
diff
changeset
|
33 size_t pst_debug_fwrite(const void *ptr, size_t size, size_t nitems, FILE *stream) { |
|
3cb02cb1e6cd
Patch from Robert Simpson to fix doubly-linked list in the cache_ptr code, and allow arrays of unicode strings (without converting them).
Carl Byington <carl@five-ten-sg.com>
parents:
70
diff
changeset
|
34 return fwrite(ptr, size, nitems, stream); |
|
3cb02cb1e6cd
Patch from Robert Simpson to fix doubly-linked list in the cache_ptr code, and allow arrays of unicode strings (without converting them).
Carl Byington <carl@five-ten-sg.com>
parents:
70
diff
changeset
|
35 } |
|
3cb02cb1e6cd
Patch from Robert Simpson to fix doubly-linked list in the cache_ptr code, and allow arrays of unicode strings (without converting them).
Carl Byington <carl@five-ten-sg.com>
parents:
70
diff
changeset
|
36 |
|
3cb02cb1e6cd
Patch from Robert Simpson to fix doubly-linked list in the cache_ptr code, and allow arrays of unicode strings (without converting them).
Carl Byington <carl@five-ten-sg.com>
parents:
70
diff
changeset
|
37 |
| 16 | 38 // the largest text size we will store in memory. Otherwise we |
| 39 // will do a debug_write, then create a new record, and write the | |
| 40 // text body directly to the file | |
| 41 #define MAX_MESSAGE_SIZE 4096 | |
| 42 | |
|
73
3cb02cb1e6cd
Patch from Robert Simpson to fix doubly-linked list in the cache_ptr code, and allow arrays of unicode strings (without converting them).
Carl Byington <carl@five-ten-sg.com>
parents:
70
diff
changeset
|
43 void pst_debug(const char *fmt, ...) { |
| 46 | 44 va_list ap; |
| 45 va_start(ap,fmt); | |
| 46 vfprintf(stderr, fmt, ap); | |
| 47 va_end(ap); | |
| 16 | 48 } |
| 49 | |
|
33
12cac756bc05
enable -d option, but if not specified, don't generate a debug file
carl
parents:
31
diff
changeset
|
50 |
| 16 | 51 #define NUM_COL 30 |
|
73
3cb02cb1e6cd
Patch from Robert Simpson to fix doubly-linked list in the cache_ptr code, and allow arrays of unicode strings (without converting them).
Carl Byington <carl@five-ten-sg.com>
parents:
70
diff
changeset
|
52 void pst_debug_hexdumper(FILE *out, char *buf, size_t size, int col, int delta) { |
|
70
b12f4e50e2e8
Patch from Joachim Metz <joachim.metz@gmail.com> for 64 bit compile.
Carl Byington <carl@five-ten-sg.com>
parents:
48
diff
changeset
|
53 size_t off = 0, toff; |
| 46 | 54 int count = 0; |
| 16 | 55 |
| 46 | 56 if (!out) return; // no file |
| 57 if (col == -1) col = NUM_COL; | |
| 58 fprintf(out, "\n"); | |
| 59 while (off < size) { | |
|
90
631d02d30a1c
More fixes for 32/64 bit portability on big endian ppc.
Carl Byington <carl@five-ten-sg.com>
parents:
79
diff
changeset
|
60 fprintf(out, "%06"PRIx64"\t:", (uint64_t)(off+delta)); |
| 46 | 61 toff = off; |
| 62 while (count < col && off < size) { | |
|
73
3cb02cb1e6cd
Patch from Robert Simpson to fix doubly-linked list in the cache_ptr code, and allow arrays of unicode strings (without converting them).
Carl Byington <carl@five-ten-sg.com>
parents:
70
diff
changeset
|
63 fprintf(out, "%02hhx ", (unsigned char)buf[off]); |
| 46 | 64 off++; count++; |
| 65 } | |
| 66 off = toff; | |
| 67 while (count < col) { | |
| 68 // only happens at end of block to pad the text over to the text column | |
| 69 fprintf(out, " "); | |
| 70 count++; | |
| 71 } | |
| 72 count = 0; | |
| 73 fprintf(out, ":"); | |
| 74 while (count < col && off < size) { | |
| 75 fprintf(out, "%c", isgraph(buf[off])?buf[off]:'.'); | |
| 76 off++; count ++; | |
| 77 } | |
| 16 | 78 |
| 46 | 79 fprintf(out, "\n"); |
| 80 count=0; | |
| 81 } | |
|
33
12cac756bc05
enable -d option, but if not specified, don't generate a debug file
carl
parents:
31
diff
changeset
|
82 |
| 46 | 83 fprintf(out, "\n"); |
| 16 | 84 } |
| 85 | |
| 86 | |
| 87 FILE *debug_fp = NULL; | |
| 88 unsigned int max_items=DEBUG_MAX_ITEMS, curr_items=0; | |
| 89 | |
|
33
12cac756bc05
enable -d option, but if not specified, don't generate a debug file
carl
parents:
31
diff
changeset
|
90 |
|
73
3cb02cb1e6cd
Patch from Robert Simpson to fix doubly-linked list in the cache_ptr code, and allow arrays of unicode strings (without converting them).
Carl Byington <carl@five-ten-sg.com>
parents:
70
diff
changeset
|
91 void pst_debug_init(const char* fname) { |
| 46 | 92 unsigned char version = DEBUG_VERSION; |
| 93 item_head = item_tail = NULL; | |
| 94 curr_items = 0; | |
| 95 if (debug_fp) pst_debug_close(); | |
| 96 if (!fname) return; | |
| 97 if ((debug_fp = fopen(fname, "wb")) == NULL) { | |
| 98 fprintf(stderr, "Opening of file %s failed\n", fname); | |
| 99 exit(1); | |
| 100 } | |
|
73
3cb02cb1e6cd
Patch from Robert Simpson to fix doubly-linked list in the cache_ptr code, and allow arrays of unicode strings (without converting them).
Carl Byington <carl@five-ten-sg.com>
parents:
70
diff
changeset
|
101 pst_debug_fwrite(&version, 1, sizeof(char), debug_fp); |
| 16 | 102 } |
| 103 | |
|
33
12cac756bc05
enable -d option, but if not specified, don't generate a debug file
carl
parents:
31
diff
changeset
|
104 |
| 46 | 105 // function must be called before pst_debug_msg. It sets up the |
| 16 | 106 // structure for the function that follows |
|
73
3cb02cb1e6cd
Patch from Robert Simpson to fix doubly-linked list in the cache_ptr code, and allow arrays of unicode strings (without converting them).
Carl Byington <carl@five-ten-sg.com>
parents:
70
diff
changeset
|
107 void pst_debug_msg_info(int line, const char* file, int type) { |
| 46 | 108 char *x; |
| 109 if (!debug_fp) return; // no file | |
| 110 info_ptr = (struct pst_debug_item*) xmalloc(sizeof(struct pst_debug_item)); | |
| 111 info_ptr->type = type; | |
| 112 info_ptr->line = line; | |
| 113 x = (func_head==NULL?"No Function":func_head->name); | |
| 114 info_ptr->function = (char*) xmalloc(strlen(x)+1); | |
| 115 strcpy(info_ptr->function, x); | |
|
33
12cac756bc05
enable -d option, but if not specified, don't generate a debug file
carl
parents:
31
diff
changeset
|
116 |
| 46 | 117 info_ptr->file = (char*) xmalloc(strlen(file)+1); |
| 118 strcpy(info_ptr->file, file); | |
|
33
12cac756bc05
enable -d option, but if not specified, don't generate a debug file
carl
parents:
31
diff
changeset
|
119 |
| 46 | 120 //put the current record on a temp linked list |
| 121 info_ptr->next = temp_list; | |
| 122 temp_list = info_ptr; | |
| 16 | 123 } |
| 124 | |
|
33
12cac756bc05
enable -d option, but if not specified, don't generate a debug file
carl
parents:
31
diff
changeset
|
125 |
|
73
3cb02cb1e6cd
Patch from Robert Simpson to fix doubly-linked list in the cache_ptr code, and allow arrays of unicode strings (without converting them).
Carl Byington <carl@five-ten-sg.com>
parents:
70
diff
changeset
|
126 void pst_debug_msg_text(const char* fmt, ...) { |
| 46 | 127 va_list ap; |
| 128 int f, g; | |
| 129 char x[2]; | |
|
79
56fa05fd5271
Patch from Robert Simpson for encryption type 2.
Carl Byington <carl@five-ten-sg.com>
parents:
75
diff
changeset
|
130 #ifdef _WIN32 |
|
56fa05fd5271
Patch from Robert Simpson for encryption type 2.
Carl Byington <carl@five-ten-sg.com>
parents:
75
diff
changeset
|
131 char *buf = NULL; |
|
56fa05fd5271
Patch from Robert Simpson for encryption type 2.
Carl Byington <carl@five-ten-sg.com>
parents:
75
diff
changeset
|
132 #endif |
| 46 | 133 struct pst_debug_item *temp; |
| 134 if (!debug_fp) return; // no file | |
| 135 // get the record off of the temp_list | |
| 136 info_ptr = temp_list; | |
| 137 if (info_ptr) | |
| 138 temp_list = info_ptr->next; | |
| 139 else { | |
| 140 fprintf(stderr, "NULL info_ptr. ERROR!!\n"); | |
| 141 exit(-2); | |
| 142 } | |
|
75
987aa872294e
Use ftello/fseeko to properly handle large files.
Carl Byington <carl@five-ten-sg.com>
parents:
73
diff
changeset
|
143 |
|
987aa872294e
Use ftello/fseeko to properly handle large files.
Carl Byington <carl@five-ten-sg.com>
parents:
73
diff
changeset
|
144 #ifdef _WIN32 |
|
987aa872294e
Use ftello/fseeko to properly handle large files.
Carl Byington <carl@five-ten-sg.com>
parents:
73
diff
changeset
|
145 // vsnprintf trick doesn't work on msvc. |
|
987aa872294e
Use ftello/fseeko to properly handle large files.
Carl Byington <carl@five-ten-sg.com>
parents:
73
diff
changeset
|
146 g = 2000; |
|
987aa872294e
Use ftello/fseeko to properly handle large files.
Carl Byington <carl@five-ten-sg.com>
parents:
73
diff
changeset
|
147 f = -1; |
|
987aa872294e
Use ftello/fseeko to properly handle large files.
Carl Byington <carl@five-ten-sg.com>
parents:
73
diff
changeset
|
148 while (f < 0) { |
|
987aa872294e
Use ftello/fseeko to properly handle large files.
Carl Byington <carl@five-ten-sg.com>
parents:
73
diff
changeset
|
149 buf = realloc(buf, g+1); |
|
987aa872294e
Use ftello/fseeko to properly handle large files.
Carl Byington <carl@five-ten-sg.com>
parents:
73
diff
changeset
|
150 va_start(ap, fmt); |
|
987aa872294e
Use ftello/fseeko to properly handle large files.
Carl Byington <carl@five-ten-sg.com>
parents:
73
diff
changeset
|
151 f = vsnprintf(buf, g, fmt, ap); |
|
987aa872294e
Use ftello/fseeko to properly handle large files.
Carl Byington <carl@five-ten-sg.com>
parents:
73
diff
changeset
|
152 va_end(ap); |
|
987aa872294e
Use ftello/fseeko to properly handle large files.
Carl Byington <carl@five-ten-sg.com>
parents:
73
diff
changeset
|
153 g += g/2; |
|
987aa872294e
Use ftello/fseeko to properly handle large files.
Carl Byington <carl@five-ten-sg.com>
parents:
73
diff
changeset
|
154 } |
|
987aa872294e
Use ftello/fseeko to properly handle large files.
Carl Byington <carl@five-ten-sg.com>
parents:
73
diff
changeset
|
155 free(buf); |
|
987aa872294e
Use ftello/fseeko to properly handle large files.
Carl Byington <carl@five-ten-sg.com>
parents:
73
diff
changeset
|
156 #else |
|
987aa872294e
Use ftello/fseeko to properly handle large files.
Carl Byington <carl@five-ten-sg.com>
parents:
73
diff
changeset
|
157 // according to glibc 2.1, this should return the req. number of bytes for |
|
987aa872294e
Use ftello/fseeko to properly handle large files.
Carl Byington <carl@five-ten-sg.com>
parents:
73
diff
changeset
|
158 // the string |
|
987aa872294e
Use ftello/fseeko to properly handle large files.
Carl Byington <carl@five-ten-sg.com>
parents:
73
diff
changeset
|
159 va_start(ap, fmt); |
|
987aa872294e
Use ftello/fseeko to properly handle large files.
Carl Byington <carl@five-ten-sg.com>
parents:
73
diff
changeset
|
160 f = vsnprintf(x, 1, fmt, ap); |
|
987aa872294e
Use ftello/fseeko to properly handle large files.
Carl Byington <carl@five-ten-sg.com>
parents:
73
diff
changeset
|
161 va_end(ap); |
|
987aa872294e
Use ftello/fseeko to properly handle large files.
Carl Byington <carl@five-ten-sg.com>
parents:
73
diff
changeset
|
162 #endif |
| 16 | 163 |
| 46 | 164 if (f > 0 && f < MAX_MESSAGE_SIZE) { |
| 165 info_ptr->text = (char*) xmalloc(f+1); | |
| 166 va_start(ap, fmt); | |
| 167 if ((g = vsnprintf(info_ptr->text, f, fmt, ap)) == -1) { | |
|
75
987aa872294e
Use ftello/fseeko to properly handle large files.
Carl Byington <carl@five-ten-sg.com>
parents:
73
diff
changeset
|
168 fprintf(stderr, "_debug_msg: Dying! vsnprintf returned -1 for format \"%s\"\n", fmt); |
| 46 | 169 exit(-2); |
| 170 } | |
| 171 va_end(ap); | |
| 172 info_ptr->text[g] = '\0'; | |
| 173 if (f != g) { | |
| 174 fprintf(stderr, "_debug_msg: f != g\n"); | |
| 175 } | |
| 176 } else if (f > 0) { // it is over the max_message_size then | |
| 177 f += strlen(info_ptr->file)+strlen(info_ptr->function); | |
| 178 temp = info_ptr; | |
| 179 pst_debug_write(); // dump the current messages | |
| 180 info_ptr = temp; | |
| 181 va_start(ap, fmt); | |
| 182 pst_debug_write_msg(info_ptr, fmt, &ap, f); | |
| 183 va_end(ap); | |
| 184 free(info_ptr->function); | |
| 185 free(info_ptr->file); | |
| 186 free(info_ptr); | |
| 187 info_ptr = NULL; | |
| 188 return; | |
| 189 } else { | |
| 190 fprintf(stderr, "_debug_msg: error getting requested size of debug message\n"); | |
| 191 info_ptr->text = "ERROR Saving\n"; | |
| 192 } | |
| 16 | 193 |
| 46 | 194 if (!item_head) |
| 195 item_head = info_ptr; | |
| 16 | 196 |
| 46 | 197 info_ptr->next = NULL; |
| 198 if (item_tail) item_tail->next = info_ptr; | |
| 199 item_tail = info_ptr; | |
| 16 | 200 |
| 46 | 201 if (++curr_items == max_items) { |
| 202 // here we will jump off and save the contents | |
| 203 pst_debug_write(); | |
| 204 info_ptr = NULL; | |
| 205 } | |
| 16 | 206 } |
| 207 | |
|
33
12cac756bc05
enable -d option, but if not specified, don't generate a debug file
carl
parents:
31
diff
changeset
|
208 |
|
73
3cb02cb1e6cd
Patch from Robert Simpson to fix doubly-linked list in the cache_ptr code, and allow arrays of unicode strings (without converting them).
Carl Byington <carl@five-ten-sg.com>
parents:
70
diff
changeset
|
209 void pst_debug_hexdump(char *x, size_t y, int cols, int delta) { |
| 46 | 210 struct pst_debug_item *temp; |
| 211 if (!debug_fp) return; // no file | |
| 212 info_ptr = temp_list; | |
| 213 if (info_ptr) temp_list = info_ptr->next; | |
| 214 temp = info_ptr; | |
| 215 pst_debug_write(); | |
| 216 info_ptr = temp; | |
| 217 pst_debug_write_hex(info_ptr, x, y, cols); | |
| 218 free(info_ptr->function); | |
| 219 free(info_ptr->file); | |
| 220 free(info_ptr); | |
| 221 info_ptr = NULL; | |
| 16 | 222 } |
| 223 | |
|
33
12cac756bc05
enable -d option, but if not specified, don't generate a debug file
carl
parents:
31
diff
changeset
|
224 |
|
73
3cb02cb1e6cd
Patch from Robert Simpson to fix doubly-linked list in the cache_ptr code, and allow arrays of unicode strings (without converting them).
Carl Byington <carl@five-ten-sg.com>
parents:
70
diff
changeset
|
225 void pst_debug_func(const char *function) { |
| 46 | 226 func_ptr = xmalloc (sizeof(struct pst_debug_func)); |
| 227 func_ptr->name = xmalloc(strlen(function)+1); | |
| 228 strcpy(func_ptr->name, function); | |
| 229 func_ptr->next = func_head; | |
| 230 func_head = func_ptr; | |
| 16 | 231 } |
| 232 | |
|
33
12cac756bc05
enable -d option, but if not specified, don't generate a debug file
carl
parents:
31
diff
changeset
|
233 |
| 46 | 234 void pst_debug_func_ret() { |
| 235 //remove the head item | |
| 236 func_ptr = func_head; | |
| 237 if (func_head) { | |
| 238 func_head = func_head->next; | |
| 239 free(func_ptr->name); | |
| 240 free(func_ptr); | |
| 241 } else { | |
| 242 DIE(("function list is empty!\n")); | |
| 243 } | |
| 16 | 244 } |
| 245 | |
|
33
12cac756bc05
enable -d option, but if not specified, don't generate a debug file
carl
parents:
31
diff
changeset
|
246 |
| 46 | 247 void pst_debug_close(void) { |
| 248 pst_debug_write(); | |
| 249 while (func_head) { | |
| 250 func_ptr = func_head; | |
| 251 func_head = func_head->next; | |
| 252 free(func_ptr->name); | |
| 253 free(func_ptr); | |
| 254 } | |
| 255 if (debug_fp) fclose(debug_fp); | |
| 256 debug_fp = NULL; | |
|
33
12cac756bc05
enable -d option, but if not specified, don't generate a debug file
carl
parents:
31
diff
changeset
|
257 } |
| 16 | 258 |
| 259 | |
| 46 | 260 void pst_debug_write() { |
| 261 size_t size, ptr, funcname, filename, text, end; | |
| 262 char *buf = NULL, rec_type; | |
| 263 if (!debug_fp) return; // no file | |
|
75
987aa872294e
Use ftello/fseeko to properly handle large files.
Carl Byington <carl@five-ten-sg.com>
parents:
73
diff
changeset
|
264 off_t index_pos = ftello(debug_fp); |
| 43 | 265 off_t file_pos = index_pos; |
| 46 | 266 // add 2. One for the pointer to the next index, |
| 267 // one for the count of this index | |
| 268 int index_size = ((curr_items+2) * sizeof(off_t)); | |
| 269 off_t *index; | |
| 270 int index_ptr = 0; | |
| 271 struct pst_debug_file_rec_m mfile_rec; | |
| 272 struct pst_debug_file_rec_l lfile_rec; | |
| 16 | 273 |
| 46 | 274 if (curr_items == 0) return; // no items to write. |
|
33
12cac756bc05
enable -d option, but if not specified, don't generate a debug file
carl
parents:
31
diff
changeset
|
275 |
| 46 | 276 index = (off_t*)xmalloc(index_size); |
| 277 memset(index, 0, index_size); // valgrind, avoid writing uninitialized data | |
| 278 file_pos += index_size; | |
| 279 // write the index first, we will re-write it later, but | |
| 280 // we want to allocate the space | |
|
73
3cb02cb1e6cd
Patch from Robert Simpson to fix doubly-linked list in the cache_ptr code, and allow arrays of unicode strings (without converting them).
Carl Byington <carl@five-ten-sg.com>
parents:
70
diff
changeset
|
281 pst_debug_fwrite(index, index_size, 1, debug_fp); |
| 46 | 282 index[index_ptr++] = curr_items; |
| 16 | 283 |
| 46 | 284 item_ptr = item_head; |
| 285 while (item_ptr) { | |
|
75
987aa872294e
Use ftello/fseeko to properly handle large files.
Carl Byington <carl@five-ten-sg.com>
parents:
73
diff
changeset
|
286 file_pos = ftello(debug_fp); |
| 46 | 287 index[index_ptr++] = file_pos; |
| 288 size = strlen(item_ptr->function) + | |
| 289 strlen(item_ptr->file) + | |
| 290 strlen(item_ptr->text) + 3; //for the three \0s | |
| 291 if (buf) free(buf); | |
| 292 buf = xmalloc(size+1); | |
| 293 ptr = 0; | |
| 294 funcname=ptr; | |
| 295 ptr += sprintf(&(buf[ptr]), "%s", item_ptr->function)+1; | |
| 296 filename=ptr; | |
| 297 ptr += sprintf(&(buf[ptr]), "%s", item_ptr->file)+1; | |
| 298 text=ptr; | |
| 299 ptr += sprintf(&(buf[ptr]), "%s", item_ptr->text)+1; | |
| 300 end=ptr; | |
| 301 if (end > USHRT_MAX) { // bigger than can be stored in a short | |
| 302 rec_type = 'L'; | |
|
73
3cb02cb1e6cd
Patch from Robert Simpson to fix doubly-linked list in the cache_ptr code, and allow arrays of unicode strings (without converting them).
Carl Byington <carl@five-ten-sg.com>
parents:
70
diff
changeset
|
303 pst_debug_fwrite(&rec_type, 1, sizeof(char), debug_fp); |
| 46 | 304 lfile_rec.type = item_ptr->type; |
| 305 lfile_rec.line = item_ptr->line; | |
| 306 lfile_rec.funcname = funcname; | |
| 307 lfile_rec.filename = filename; | |
| 308 lfile_rec.text = text; | |
| 309 lfile_rec.end = end; | |
|
73
3cb02cb1e6cd
Patch from Robert Simpson to fix doubly-linked list in the cache_ptr code, and allow arrays of unicode strings (without converting them).
Carl Byington <carl@five-ten-sg.com>
parents:
70
diff
changeset
|
310 pst_debug_fwrite(&lfile_rec, sizeof(lfile_rec), 1, debug_fp); |
| 46 | 311 } else { |
| 312 rec_type = 'M'; | |
|
73
3cb02cb1e6cd
Patch from Robert Simpson to fix doubly-linked list in the cache_ptr code, and allow arrays of unicode strings (without converting them).
Carl Byington <carl@five-ten-sg.com>
parents:
70
diff
changeset
|
313 pst_debug_fwrite(&rec_type, 1, sizeof(char), debug_fp); |
| 46 | 314 mfile_rec.type = item_ptr->type; |
| 315 mfile_rec.line = item_ptr->line; | |
| 316 mfile_rec.funcname = funcname; | |
| 317 mfile_rec.filename = filename; | |
| 318 mfile_rec.text = text; | |
| 319 mfile_rec.end = end; | |
|
73
3cb02cb1e6cd
Patch from Robert Simpson to fix doubly-linked list in the cache_ptr code, and allow arrays of unicode strings (without converting them).
Carl Byington <carl@five-ten-sg.com>
parents:
70
diff
changeset
|
320 pst_debug_fwrite(&mfile_rec, sizeof(mfile_rec), 1, debug_fp); |
| 46 | 321 } |
|
73
3cb02cb1e6cd
Patch from Robert Simpson to fix doubly-linked list in the cache_ptr code, and allow arrays of unicode strings (without converting them).
Carl Byington <carl@five-ten-sg.com>
parents:
70
diff
changeset
|
322 pst_debug_fwrite(buf, 1, ptr, debug_fp); |
| 46 | 323 if (buf) free(buf); buf = NULL; |
| 324 item_head = item_ptr->next; | |
| 325 free(item_ptr->function); | |
| 326 free(item_ptr->file); | |
| 327 free(item_ptr->text); | |
| 328 free(item_ptr); | |
| 329 item_ptr = item_head; | |
| 330 } | |
| 331 curr_items = 0; | |
|
75
987aa872294e
Use ftello/fseeko to properly handle large files.
Carl Byington <carl@five-ten-sg.com>
parents:
73
diff
changeset
|
332 index[index_ptr] = ftello(debug_fp); |
| 16 | 333 |
| 46 | 334 // we should now have a complete index |
|
75
987aa872294e
Use ftello/fseeko to properly handle large files.
Carl Byington <carl@five-ten-sg.com>
parents:
73
diff
changeset
|
335 fseeko(debug_fp, index_pos, SEEK_SET); |
|
73
3cb02cb1e6cd
Patch from Robert Simpson to fix doubly-linked list in the cache_ptr code, and allow arrays of unicode strings (without converting them).
Carl Byington <carl@five-ten-sg.com>
parents:
70
diff
changeset
|
336 pst_debug_fwrite(index, index_size, 1, debug_fp); |
|
75
987aa872294e
Use ftello/fseeko to properly handle large files.
Carl Byington <carl@five-ten-sg.com>
parents:
73
diff
changeset
|
337 fseeko(debug_fp, 0, SEEK_END); |
| 46 | 338 item_ptr = item_head = item_tail = NULL; |
| 339 free(index); | |
| 340 if (buf) free(buf); | |
| 16 | 341 } |
| 342 | |
|
33
12cac756bc05
enable -d option, but if not specified, don't generate a debug file
carl
parents:
31
diff
changeset
|
343 |
|
73
3cb02cb1e6cd
Patch from Robert Simpson to fix doubly-linked list in the cache_ptr code, and allow arrays of unicode strings (without converting them).
Carl Byington <carl@five-ten-sg.com>
parents:
70
diff
changeset
|
344 void pst_debug_write_msg(struct pst_debug_item *item, const char *fmt, va_list *ap, int size) { |
| 46 | 345 struct pst_debug_file_rec_l lfile_rec; |
| 346 struct pst_debug_file_rec_m mfile_rec; | |
| 347 unsigned char rec_type; | |
| 348 int index_size = 3 * sizeof(off_t); | |
| 349 off_t index[3]; | |
| 350 off_t index_pos, file_pos; | |
| 351 char zero='\0'; | |
| 352 unsigned int end; | |
| 353 if (!debug_fp) return; // no file | |
| 354 index[0] = 1; //only one item in this index | |
|
75
987aa872294e
Use ftello/fseeko to properly handle large files.
Carl Byington <carl@five-ten-sg.com>
parents:
73
diff
changeset
|
355 index_pos = ftello(debug_fp); |
|
73
3cb02cb1e6cd
Patch from Robert Simpson to fix doubly-linked list in the cache_ptr code, and allow arrays of unicode strings (without converting them).
Carl Byington <carl@five-ten-sg.com>
parents:
70
diff
changeset
|
356 pst_debug_fwrite(index, index_size, 1, debug_fp); |
|
33
12cac756bc05
enable -d option, but if not specified, don't generate a debug file
carl
parents:
31
diff
changeset
|
357 |
|
75
987aa872294e
Use ftello/fseeko to properly handle large files.
Carl Byington <carl@five-ten-sg.com>
parents:
73
diff
changeset
|
358 index[1] = ftello(debug_fp); |
| 16 | 359 |
| 46 | 360 if (size > USHRT_MAX) { // bigger than can be stored in a short |
| 361 rec_type = 'L'; | |
|
73
3cb02cb1e6cd
Patch from Robert Simpson to fix doubly-linked list in the cache_ptr code, and allow arrays of unicode strings (without converting them).
Carl Byington <carl@five-ten-sg.com>
parents:
70
diff
changeset
|
362 pst_debug_fwrite(&rec_type, 1, sizeof(char), debug_fp); |
| 46 | 363 lfile_rec.type = item->type; |
| 364 lfile_rec.line = item->line; | |
| 365 lfile_rec.funcname = 0; | |
| 366 lfile_rec.filename = strlen(item->function)+1; | |
| 367 lfile_rec.text = lfile_rec.filename+strlen(item->file)+1; | |
|
73
3cb02cb1e6cd
Patch from Robert Simpson to fix doubly-linked list in the cache_ptr code, and allow arrays of unicode strings (without converting them).
Carl Byington <carl@five-ten-sg.com>
parents:
70
diff
changeset
|
368 pst_debug_fwrite(&lfile_rec, sizeof(lfile_rec), 1, debug_fp); |
| 46 | 369 } else { |
| 370 rec_type = 'M'; | |
|
73
3cb02cb1e6cd
Patch from Robert Simpson to fix doubly-linked list in the cache_ptr code, and allow arrays of unicode strings (without converting them).
Carl Byington <carl@five-ten-sg.com>
parents:
70
diff
changeset
|
371 pst_debug_fwrite(&rec_type, 1, sizeof(char), debug_fp); |
| 46 | 372 mfile_rec.type = item->type; |
| 373 mfile_rec.line = item->line; | |
| 374 mfile_rec.funcname = 0; | |
| 375 mfile_rec.filename = strlen(item->function)+1; | |
| 376 mfile_rec.text = mfile_rec.filename+strlen(item->file)+1; | |
|
73
3cb02cb1e6cd
Patch from Robert Simpson to fix doubly-linked list in the cache_ptr code, and allow arrays of unicode strings (without converting them).
Carl Byington <carl@five-ten-sg.com>
parents:
70
diff
changeset
|
377 pst_debug_fwrite(&mfile_rec, sizeof(mfile_rec), 1, debug_fp); |
| 46 | 378 } |
|
75
987aa872294e
Use ftello/fseeko to properly handle large files.
Carl Byington <carl@five-ten-sg.com>
parents:
73
diff
changeset
|
379 file_pos = ftello(debug_fp); |
|
73
3cb02cb1e6cd
Patch from Robert Simpson to fix doubly-linked list in the cache_ptr code, and allow arrays of unicode strings (without converting them).
Carl Byington <carl@five-ten-sg.com>
parents:
70
diff
changeset
|
380 pst_debug_fwrite(item->function, strlen(item->function)+1, 1, debug_fp); |
|
3cb02cb1e6cd
Patch from Robert Simpson to fix doubly-linked list in the cache_ptr code, and allow arrays of unicode strings (without converting them).
Carl Byington <carl@five-ten-sg.com>
parents:
70
diff
changeset
|
381 pst_debug_fwrite(item->file, strlen(item->file)+1, 1, debug_fp); |
| 46 | 382 vfprintf(debug_fp, fmt, *ap); |
|
73
3cb02cb1e6cd
Patch from Robert Simpson to fix doubly-linked list in the cache_ptr code, and allow arrays of unicode strings (without converting them).
Carl Byington <carl@five-ten-sg.com>
parents:
70
diff
changeset
|
383 pst_debug_fwrite(&zero, 1, 1, debug_fp); |
| 16 | 384 |
|
75
987aa872294e
Use ftello/fseeko to properly handle large files.
Carl Byington <carl@five-ten-sg.com>
parents:
73
diff
changeset
|
385 end = (unsigned int) (ftello(debug_fp) - file_pos); |
| 16 | 386 |
|
75
987aa872294e
Use ftello/fseeko to properly handle large files.
Carl Byington <carl@five-ten-sg.com>
parents:
73
diff
changeset
|
387 index[2] = ftello(debug_fp); |
|
987aa872294e
Use ftello/fseeko to properly handle large files.
Carl Byington <carl@five-ten-sg.com>
parents:
73
diff
changeset
|
388 fseeko(debug_fp, index_pos, SEEK_SET); |
|
73
3cb02cb1e6cd
Patch from Robert Simpson to fix doubly-linked list in the cache_ptr code, and allow arrays of unicode strings (without converting them).
Carl Byington <carl@five-ten-sg.com>
parents:
70
diff
changeset
|
389 pst_debug_fwrite(index, index_size, 1, debug_fp); |
| 46 | 390 if (size > USHRT_MAX) { |
|
73
3cb02cb1e6cd
Patch from Robert Simpson to fix doubly-linked list in the cache_ptr code, and allow arrays of unicode strings (without converting them).
Carl Byington <carl@five-ten-sg.com>
parents:
70
diff
changeset
|
391 pst_debug_fwrite(&rec_type, 1, sizeof(char), debug_fp); |
| 46 | 392 lfile_rec.end = end; |
|
73
3cb02cb1e6cd
Patch from Robert Simpson to fix doubly-linked list in the cache_ptr code, and allow arrays of unicode strings (without converting them).
Carl Byington <carl@five-ten-sg.com>
parents:
70
diff
changeset
|
393 pst_debug_fwrite(&lfile_rec, sizeof(lfile_rec), 1, debug_fp); |
| 46 | 394 } else { |
|
73
3cb02cb1e6cd
Patch from Robert Simpson to fix doubly-linked list in the cache_ptr code, and allow arrays of unicode strings (without converting them).
Carl Byington <carl@five-ten-sg.com>
parents:
70
diff
changeset
|
395 pst_debug_fwrite(&rec_type, 1, sizeof(char), debug_fp); |
| 46 | 396 mfile_rec.end = end; |
|
73
3cb02cb1e6cd
Patch from Robert Simpson to fix doubly-linked list in the cache_ptr code, and allow arrays of unicode strings (without converting them).
Carl Byington <carl@five-ten-sg.com>
parents:
70
diff
changeset
|
397 pst_debug_fwrite(&mfile_rec, sizeof(mfile_rec), 1, debug_fp); |
| 46 | 398 } |
|
75
987aa872294e
Use ftello/fseeko to properly handle large files.
Carl Byington <carl@five-ten-sg.com>
parents:
73
diff
changeset
|
399 fseeko(debug_fp, 0, SEEK_END); |
| 16 | 400 } |
| 401 | |
|
33
12cac756bc05
enable -d option, but if not specified, don't generate a debug file
carl
parents:
31
diff
changeset
|
402 |
|
73
3cb02cb1e6cd
Patch from Robert Simpson to fix doubly-linked list in the cache_ptr code, and allow arrays of unicode strings (without converting them).
Carl Byington <carl@five-ten-sg.com>
parents:
70
diff
changeset
|
403 void pst_debug_write_hex(struct pst_debug_item *item, char *buf, size_t size, int col) { |
| 46 | 404 struct pst_debug_file_rec_l lfile_rec; |
| 405 unsigned char rec_type; | |
| 406 int index_size = 3 * sizeof(off_t); | |
| 407 off_t index_pos, file_pos, index[3]; | |
| 408 char zero='\0'; | |
| 409 if (!debug_fp) return; // no file | |
| 410 index[0] = 1; // only one item in this index run | |
| 411 index[1] = 0; // valgrind, avoid writing uninitialized data | |
| 412 index[2] = 0; // "" | |
|
75
987aa872294e
Use ftello/fseeko to properly handle large files.
Carl Byington <carl@five-ten-sg.com>
parents:
73
diff
changeset
|
413 index_pos = ftello(debug_fp); |
|
73
3cb02cb1e6cd
Patch from Robert Simpson to fix doubly-linked list in the cache_ptr code, and allow arrays of unicode strings (without converting them).
Carl Byington <carl@five-ten-sg.com>
parents:
70
diff
changeset
|
414 pst_debug_fwrite(index, index_size, 1, debug_fp); |
|
75
987aa872294e
Use ftello/fseeko to properly handle large files.
Carl Byington <carl@five-ten-sg.com>
parents:
73
diff
changeset
|
415 index[1] = ftello(debug_fp); |
| 16 | 416 |
| 46 | 417 // always use the long |
| 418 rec_type = 'L'; | |
|
73
3cb02cb1e6cd
Patch from Robert Simpson to fix doubly-linked list in the cache_ptr code, and allow arrays of unicode strings (without converting them).
Carl Byington <carl@five-ten-sg.com>
parents:
70
diff
changeset
|
419 pst_debug_fwrite(&rec_type, 1, sizeof(char), debug_fp); |
| 46 | 420 lfile_rec.funcname = 0; |
| 421 lfile_rec.filename = strlen(item->function)+1; | |
| 422 lfile_rec.text = lfile_rec.filename+strlen(item->file)+1; | |
| 423 lfile_rec.end = 0; // valgrind, avoid writing uninitialized data | |
| 424 lfile_rec.line = item->line; | |
| 425 lfile_rec.type = item->type; | |
|
73
3cb02cb1e6cd
Patch from Robert Simpson to fix doubly-linked list in the cache_ptr code, and allow arrays of unicode strings (without converting them).
Carl Byington <carl@five-ten-sg.com>
parents:
70
diff
changeset
|
426 pst_debug_fwrite(&lfile_rec, sizeof(lfile_rec), 1, debug_fp); |
| 16 | 427 |
|
75
987aa872294e
Use ftello/fseeko to properly handle large files.
Carl Byington <carl@five-ten-sg.com>
parents:
73
diff
changeset
|
428 file_pos = ftello(debug_fp); |
|
73
3cb02cb1e6cd
Patch from Robert Simpson to fix doubly-linked list in the cache_ptr code, and allow arrays of unicode strings (without converting them).
Carl Byington <carl@five-ten-sg.com>
parents:
70
diff
changeset
|
429 pst_debug_fwrite(item->function, strlen(item->function)+1, 1, debug_fp); |
|
3cb02cb1e6cd
Patch from Robert Simpson to fix doubly-linked list in the cache_ptr code, and allow arrays of unicode strings (without converting them).
Carl Byington <carl@five-ten-sg.com>
parents:
70
diff
changeset
|
430 pst_debug_fwrite(item->file, strlen(item->file)+1, 1, debug_fp); |
|
33
12cac756bc05
enable -d option, but if not specified, don't generate a debug file
carl
parents:
31
diff
changeset
|
431 |
| 46 | 432 pst_debug_hexdumper(debug_fp, buf, size, col, 0); |
|
73
3cb02cb1e6cd
Patch from Robert Simpson to fix doubly-linked list in the cache_ptr code, and allow arrays of unicode strings (without converting them).
Carl Byington <carl@five-ten-sg.com>
parents:
70
diff
changeset
|
433 pst_debug_fwrite(&zero, 1, 1, debug_fp); |
|
75
987aa872294e
Use ftello/fseeko to properly handle large files.
Carl Byington <carl@five-ten-sg.com>
parents:
73
diff
changeset
|
434 lfile_rec.end = ftello(debug_fp) - file_pos; |
|
33
12cac756bc05
enable -d option, but if not specified, don't generate a debug file
carl
parents:
31
diff
changeset
|
435 |
|
75
987aa872294e
Use ftello/fseeko to properly handle large files.
Carl Byington <carl@five-ten-sg.com>
parents:
73
diff
changeset
|
436 index[2] = ftello(debug_fp); |
|
987aa872294e
Use ftello/fseeko to properly handle large files.
Carl Byington <carl@five-ten-sg.com>
parents:
73
diff
changeset
|
437 fseeko(debug_fp, index_pos, SEEK_SET); |
|
73
3cb02cb1e6cd
Patch from Robert Simpson to fix doubly-linked list in the cache_ptr code, and allow arrays of unicode strings (without converting them).
Carl Byington <carl@five-ten-sg.com>
parents:
70
diff
changeset
|
438 pst_debug_fwrite(index, index_size, 1, debug_fp); |
|
3cb02cb1e6cd
Patch from Robert Simpson to fix doubly-linked list in the cache_ptr code, and allow arrays of unicode strings (without converting them).
Carl Byington <carl@five-ten-sg.com>
parents:
70
diff
changeset
|
439 pst_debug_fwrite(&rec_type, 1, sizeof(char), debug_fp); |
|
3cb02cb1e6cd
Patch from Robert Simpson to fix doubly-linked list in the cache_ptr code, and allow arrays of unicode strings (without converting them).
Carl Byington <carl@five-ten-sg.com>
parents:
70
diff
changeset
|
440 pst_debug_fwrite(&lfile_rec, sizeof(lfile_rec), 1, debug_fp); |
|
75
987aa872294e
Use ftello/fseeko to properly handle large files.
Carl Byington <carl@five-ten-sg.com>
parents:
73
diff
changeset
|
441 fseeko(debug_fp, 0, SEEK_END); |
| 16 | 442 } |
| 443 | |
|
33
12cac756bc05
enable -d option, but if not specified, don't generate a debug file
carl
parents:
31
diff
changeset
|
444 |
| 36 | 445 void *xmalloc(size_t size) { |
| 46 | 446 void *mem = malloc(size); |
| 447 if (!mem) { | |
| 448 fprintf(stderr, "xMalloc: Out Of memory [req: %ld]\n", (long)size); | |
| 449 exit(1); | |
| 450 } | |
| 451 return mem; | |
|
33
12cac756bc05
enable -d option, but if not specified, don't generate a debug file
carl
parents:
31
diff
changeset
|
452 } |
|
12cac756bc05
enable -d option, but if not specified, don't generate a debug file
carl
parents:
31
diff
changeset
|
453 |