Mercurial > hg > th-libs
annotate th_util.c @ 45:e031a062b731
Separate program "banner" printing from th_args_help() to th_print_banner().
| author | Matti Hamalainen <ccr@tnsp.org> |
|---|---|
| date | Mon, 03 Oct 2011 15:37:53 +0300 |
| parents | 5b1e38a41bac |
| children | 55e36ec05881 |
| rev | line source |
|---|---|
|
0
bd61a80a6c54
Initial import into Mercurial repository. Discarding old cvs/svn history
Matti Hamalainen <ccr@tnsp.org>
parents:
diff
changeset
|
1 /* |
|
bd61a80a6c54
Initial import into Mercurial repository. Discarding old cvs/svn history
Matti Hamalainen <ccr@tnsp.org>
parents:
diff
changeset
|
2 * Generic utility-functions, macros and defaults |
|
bd61a80a6c54
Initial import into Mercurial repository. Discarding old cvs/svn history
Matti Hamalainen <ccr@tnsp.org>
parents:
diff
changeset
|
3 * Programmed and designed by Matti 'ccr' Hamalainen |
| 16 | 4 * (C) Copyright 2002-2010 Tecnic Software productions (TNSP) |
|
0
bd61a80a6c54
Initial import into Mercurial repository. Discarding old cvs/svn history
Matti Hamalainen <ccr@tnsp.org>
parents:
diff
changeset
|
5 * |
|
bd61a80a6c54
Initial import into Mercurial repository. Discarding old cvs/svn history
Matti Hamalainen <ccr@tnsp.org>
parents:
diff
changeset
|
6 * Please read file 'COPYING' for information on license and distribution. |
|
bd61a80a6c54
Initial import into Mercurial repository. Discarding old cvs/svn history
Matti Hamalainen <ccr@tnsp.org>
parents:
diff
changeset
|
7 */ |
|
bd61a80a6c54
Initial import into Mercurial repository. Discarding old cvs/svn history
Matti Hamalainen <ccr@tnsp.org>
parents:
diff
changeset
|
8 #ifdef HAVE_CONFIG_H |
|
bd61a80a6c54
Initial import into Mercurial repository. Discarding old cvs/svn history
Matti Hamalainen <ccr@tnsp.org>
parents:
diff
changeset
|
9 #include "config.h" |
|
bd61a80a6c54
Initial import into Mercurial repository. Discarding old cvs/svn history
Matti Hamalainen <ccr@tnsp.org>
parents:
diff
changeset
|
10 #endif |
|
bd61a80a6c54
Initial import into Mercurial repository. Discarding old cvs/svn history
Matti Hamalainen <ccr@tnsp.org>
parents:
diff
changeset
|
11 #include "th_util.h" |
|
bd61a80a6c54
Initial import into Mercurial repository. Discarding old cvs/svn history
Matti Hamalainen <ccr@tnsp.org>
parents:
diff
changeset
|
12 #include <stdio.h> |
|
bd61a80a6c54
Initial import into Mercurial repository. Discarding old cvs/svn history
Matti Hamalainen <ccr@tnsp.org>
parents:
diff
changeset
|
13 |
|
4
67f4a4233372
Move defaults to header file.
Matti Hamalainen <ccr@tnsp.org>
parents:
0
diff
changeset
|
14 /* Default settings |
|
0
bd61a80a6c54
Initial import into Mercurial repository. Discarding old cvs/svn history
Matti Hamalainen <ccr@tnsp.org>
parents:
diff
changeset
|
15 */ |
| 10 | 16 static BOOL th_initialized = FALSE; |
| 17 int th_verbosityLevel = 2; | |
| 18 char *th_prog_name = NULL, | |
| 19 *th_prog_fullname = NULL, | |
| 20 *th_prog_version = NULL, | |
| 21 *th_prog_author = NULL, | |
| 22 *th_prog_license = NULL; | |
|
0
bd61a80a6c54
Initial import into Mercurial repository. Discarding old cvs/svn history
Matti Hamalainen <ccr@tnsp.org>
parents:
diff
changeset
|
23 |
|
bd61a80a6c54
Initial import into Mercurial repository. Discarding old cvs/svn history
Matti Hamalainen <ccr@tnsp.org>
parents:
diff
changeset
|
24 |
|
bd61a80a6c54
Initial import into Mercurial repository. Discarding old cvs/svn history
Matti Hamalainen <ccr@tnsp.org>
parents:
diff
changeset
|
25 /* Initialize th_util-library and global variables |
|
bd61a80a6c54
Initial import into Mercurial repository. Discarding old cvs/svn history
Matti Hamalainen <ccr@tnsp.org>
parents:
diff
changeset
|
26 */ |
|
bd61a80a6c54
Initial import into Mercurial repository. Discarding old cvs/svn history
Matti Hamalainen <ccr@tnsp.org>
parents:
diff
changeset
|
27 void th_init(char *progName, char *progFullName, char *progVersion, |
| 10 | 28 char *progAuthor, char *progLicense) |
|
0
bd61a80a6c54
Initial import into Mercurial repository. Discarding old cvs/svn history
Matti Hamalainen <ccr@tnsp.org>
parents:
diff
changeset
|
29 { |
| 10 | 30 th_prog_name = progName; |
| 31 th_prog_fullname = progFullName; | |
| 32 th_prog_version = progVersion; | |
|
0
bd61a80a6c54
Initial import into Mercurial repository. Discarding old cvs/svn history
Matti Hamalainen <ccr@tnsp.org>
parents:
diff
changeset
|
33 |
| 10 | 34 if (progAuthor) |
| 35 th_prog_author = progAuthor; | |
| 36 else | |
| 37 th_prog_author = TH_PROG_AUTHOR; | |
|
0
bd61a80a6c54
Initial import into Mercurial repository. Discarding old cvs/svn history
Matti Hamalainen <ccr@tnsp.org>
parents:
diff
changeset
|
38 |
| 10 | 39 if (progLicense) |
| 40 th_prog_license = progLicense; | |
| 41 else | |
| 42 th_prog_license = TH_PROG_LICENSE; | |
|
0
bd61a80a6c54
Initial import into Mercurial repository. Discarding old cvs/svn history
Matti Hamalainen <ccr@tnsp.org>
parents:
diff
changeset
|
43 |
| 10 | 44 th_initialized = TRUE; |
|
0
bd61a80a6c54
Initial import into Mercurial repository. Discarding old cvs/svn history
Matti Hamalainen <ccr@tnsp.org>
parents:
diff
changeset
|
45 } |
|
bd61a80a6c54
Initial import into Mercurial repository. Discarding old cvs/svn history
Matti Hamalainen <ccr@tnsp.org>
parents:
diff
changeset
|
46 |
|
bd61a80a6c54
Initial import into Mercurial repository. Discarding old cvs/svn history
Matti Hamalainen <ccr@tnsp.org>
parents:
diff
changeset
|
47 |
|
45
e031a062b731
Separate program "banner" printing from th_args_help() to th_print_banner().
Matti Hamalainen <ccr@tnsp.org>
parents:
40
diff
changeset
|
48 void th_print_banner(FILE *outFile, const char *binName, const char *progUsage) |
|
e031a062b731
Separate program "banner" printing from th_args_help() to th_print_banner().
Matti Hamalainen <ccr@tnsp.org>
parents:
40
diff
changeset
|
49 { |
|
e031a062b731
Separate program "banner" printing from th_args_help() to th_print_banner().
Matti Hamalainen <ccr@tnsp.org>
parents:
40
diff
changeset
|
50 fprintf(outFile, |
|
e031a062b731
Separate program "banner" printing from th_args_help() to th_print_banner().
Matti Hamalainen <ccr@tnsp.org>
parents:
40
diff
changeset
|
51 "\n%s v%s (%s)\n" |
|
e031a062b731
Separate program "banner" printing from th_args_help() to th_print_banner().
Matti Hamalainen <ccr@tnsp.org>
parents:
40
diff
changeset
|
52 "%s\n" |
|
e031a062b731
Separate program "banner" printing from th_args_help() to th_print_banner().
Matti Hamalainen <ccr@tnsp.org>
parents:
40
diff
changeset
|
53 "%s\n" |
|
e031a062b731
Separate program "banner" printing from th_args_help() to th_print_banner().
Matti Hamalainen <ccr@tnsp.org>
parents:
40
diff
changeset
|
54 "Usage: %s %s\n", |
|
e031a062b731
Separate program "banner" printing from th_args_help() to th_print_banner().
Matti Hamalainen <ccr@tnsp.org>
parents:
40
diff
changeset
|
55 th_prog_name, th_prog_version, th_prog_fullname, |
|
e031a062b731
Separate program "banner" printing from th_args_help() to th_print_banner().
Matti Hamalainen <ccr@tnsp.org>
parents:
40
diff
changeset
|
56 th_prog_author, th_prog_license, binName, progUsage); |
|
e031a062b731
Separate program "banner" printing from th_args_help() to th_print_banner().
Matti Hamalainen <ccr@tnsp.org>
parents:
40
diff
changeset
|
57 } |
|
e031a062b731
Separate program "banner" printing from th_args_help() to th_print_banner().
Matti Hamalainen <ccr@tnsp.org>
parents:
40
diff
changeset
|
58 |
|
e031a062b731
Separate program "banner" printing from th_args_help() to th_print_banner().
Matti Hamalainen <ccr@tnsp.org>
parents:
40
diff
changeset
|
59 |
|
0
bd61a80a6c54
Initial import into Mercurial repository. Discarding old cvs/svn history
Matti Hamalainen <ccr@tnsp.org>
parents:
diff
changeset
|
60 /* Print formatted error, warning and information messages |
|
bd61a80a6c54
Initial import into Mercurial repository. Discarding old cvs/svn history
Matti Hamalainen <ccr@tnsp.org>
parents:
diff
changeset
|
61 * TODO: Implement th_vfprintf() and friends? |
|
bd61a80a6c54
Initial import into Mercurial repository. Discarding old cvs/svn history
Matti Hamalainen <ccr@tnsp.org>
parents:
diff
changeset
|
62 */ |
| 11 | 63 void THERR_V(const char *fmt, va_list ap) |
| 64 { | |
| 65 assert(th_initialized == TRUE); | |
| 66 | |
| 67 fprintf(stderr, "%s: ", th_prog_name); | |
| 68 vfprintf(stderr, fmt, ap); | |
| 69 } | |
| 70 | |
| 71 | |
| 72 void THMSG_V(int level, const char *fmt, va_list ap) | |
| 73 { | |
| 74 assert(th_initialized == TRUE); | |
| 75 | |
| 76 if (th_verbosityLevel >= level) { | |
| 77 fprintf(stderr, "%s: ", th_prog_name); | |
| 78 vfprintf(stderr, fmt, ap); | |
| 79 } | |
| 80 } | |
| 81 | |
| 82 | |
| 83 void THPRINT_V(int level, const char *fmt, va_list ap) | |
| 84 { | |
| 85 assert(th_initialized == TRUE); | |
| 86 | |
| 87 if (th_verbosityLevel >= level) { | |
| 88 vfprintf(stderr, fmt, ap); | |
| 89 } | |
| 90 } | |
| 91 | |
| 92 | |
| 93 void THERR(const char *fmt, ...) | |
|
0
bd61a80a6c54
Initial import into Mercurial repository. Discarding old cvs/svn history
Matti Hamalainen <ccr@tnsp.org>
parents:
diff
changeset
|
94 { |
| 10 | 95 va_list ap; |
| 11 | 96 assert(th_initialized == TRUE); |
|
0
bd61a80a6c54
Initial import into Mercurial repository. Discarding old cvs/svn history
Matti Hamalainen <ccr@tnsp.org>
parents:
diff
changeset
|
97 |
| 11 | 98 va_start(ap, fmt); |
| 99 THERR_V(fmt, ap); | |
| 10 | 100 va_end(ap); |
|
0
bd61a80a6c54
Initial import into Mercurial repository. Discarding old cvs/svn history
Matti Hamalainen <ccr@tnsp.org>
parents:
diff
changeset
|
101 } |
|
bd61a80a6c54
Initial import into Mercurial repository. Discarding old cvs/svn history
Matti Hamalainen <ccr@tnsp.org>
parents:
diff
changeset
|
102 |
|
bd61a80a6c54
Initial import into Mercurial repository. Discarding old cvs/svn history
Matti Hamalainen <ccr@tnsp.org>
parents:
diff
changeset
|
103 |
| 11 | 104 void THMSG(int level, const char *fmt, ...) |
|
0
bd61a80a6c54
Initial import into Mercurial repository. Discarding old cvs/svn history
Matti Hamalainen <ccr@tnsp.org>
parents:
diff
changeset
|
105 { |
| 10 | 106 va_list ap; |
| 11 | 107 assert(th_initialized == TRUE); |
|
0
bd61a80a6c54
Initial import into Mercurial repository. Discarding old cvs/svn history
Matti Hamalainen <ccr@tnsp.org>
parents:
diff
changeset
|
108 |
| 11 | 109 va_start(ap, fmt); |
| 110 THMSG_V(level, fmt, ap); | |
| 111 va_end(ap); | |
|
0
bd61a80a6c54
Initial import into Mercurial repository. Discarding old cvs/svn history
Matti Hamalainen <ccr@tnsp.org>
parents:
diff
changeset
|
112 } |
|
bd61a80a6c54
Initial import into Mercurial repository. Discarding old cvs/svn history
Matti Hamalainen <ccr@tnsp.org>
parents:
diff
changeset
|
113 |
|
bd61a80a6c54
Initial import into Mercurial repository. Discarding old cvs/svn history
Matti Hamalainen <ccr@tnsp.org>
parents:
diff
changeset
|
114 |
| 11 | 115 void THPRINT(int level, const char *fmt, ...) |
|
0
bd61a80a6c54
Initial import into Mercurial repository. Discarding old cvs/svn history
Matti Hamalainen <ccr@tnsp.org>
parents:
diff
changeset
|
116 { |
| 10 | 117 va_list ap; |
| 11 | 118 assert(th_initialized == TRUE); |
|
0
bd61a80a6c54
Initial import into Mercurial repository. Discarding old cvs/svn history
Matti Hamalainen <ccr@tnsp.org>
parents:
diff
changeset
|
119 |
| 11 | 120 va_start(ap, fmt); |
| 121 THPRINT_V(level, fmt, ap); | |
| 122 va_end(ap); | |
|
0
bd61a80a6c54
Initial import into Mercurial repository. Discarding old cvs/svn history
Matti Hamalainen <ccr@tnsp.org>
parents:
diff
changeset
|
123 } |
|
bd61a80a6c54
Initial import into Mercurial repository. Discarding old cvs/svn history
Matti Hamalainen <ccr@tnsp.org>
parents:
diff
changeset
|
124 |
|
bd61a80a6c54
Initial import into Mercurial repository. Discarding old cvs/svn history
Matti Hamalainen <ccr@tnsp.org>
parents:
diff
changeset
|
125 |
|
bd61a80a6c54
Initial import into Mercurial repository. Discarding old cvs/svn history
Matti Hamalainen <ccr@tnsp.org>
parents:
diff
changeset
|
126 /* Memory handling routines |
|
bd61a80a6c54
Initial import into Mercurial repository. Discarding old cvs/svn history
Matti Hamalainen <ccr@tnsp.org>
parents:
diff
changeset
|
127 */ |
|
bd61a80a6c54
Initial import into Mercurial repository. Discarding old cvs/svn history
Matti Hamalainen <ccr@tnsp.org>
parents:
diff
changeset
|
128 void *th_malloc(size_t l) |
|
bd61a80a6c54
Initial import into Mercurial repository. Discarding old cvs/svn history
Matti Hamalainen <ccr@tnsp.org>
parents:
diff
changeset
|
129 { |
| 10 | 130 return malloc(l); |
|
0
bd61a80a6c54
Initial import into Mercurial repository. Discarding old cvs/svn history
Matti Hamalainen <ccr@tnsp.org>
parents:
diff
changeset
|
131 } |
|
bd61a80a6c54
Initial import into Mercurial repository. Discarding old cvs/svn history
Matti Hamalainen <ccr@tnsp.org>
parents:
diff
changeset
|
132 |
|
bd61a80a6c54
Initial import into Mercurial repository. Discarding old cvs/svn history
Matti Hamalainen <ccr@tnsp.org>
parents:
diff
changeset
|
133 |
|
bd61a80a6c54
Initial import into Mercurial repository. Discarding old cvs/svn history
Matti Hamalainen <ccr@tnsp.org>
parents:
diff
changeset
|
134 void *th_calloc(size_t n, size_t l) |
|
bd61a80a6c54
Initial import into Mercurial repository. Discarding old cvs/svn history
Matti Hamalainen <ccr@tnsp.org>
parents:
diff
changeset
|
135 { |
| 10 | 136 return calloc(n, l); |
|
0
bd61a80a6c54
Initial import into Mercurial repository. Discarding old cvs/svn history
Matti Hamalainen <ccr@tnsp.org>
parents:
diff
changeset
|
137 } |
|
bd61a80a6c54
Initial import into Mercurial repository. Discarding old cvs/svn history
Matti Hamalainen <ccr@tnsp.org>
parents:
diff
changeset
|
138 |
|
bd61a80a6c54
Initial import into Mercurial repository. Discarding old cvs/svn history
Matti Hamalainen <ccr@tnsp.org>
parents:
diff
changeset
|
139 |
|
bd61a80a6c54
Initial import into Mercurial repository. Discarding old cvs/svn history
Matti Hamalainen <ccr@tnsp.org>
parents:
diff
changeset
|
140 void *th_realloc(void *p, size_t l) |
|
bd61a80a6c54
Initial import into Mercurial repository. Discarding old cvs/svn history
Matti Hamalainen <ccr@tnsp.org>
parents:
diff
changeset
|
141 { |
| 10 | 142 return realloc(p, l); |
|
0
bd61a80a6c54
Initial import into Mercurial repository. Discarding old cvs/svn history
Matti Hamalainen <ccr@tnsp.org>
parents:
diff
changeset
|
143 } |
|
bd61a80a6c54
Initial import into Mercurial repository. Discarding old cvs/svn history
Matti Hamalainen <ccr@tnsp.org>
parents:
diff
changeset
|
144 |
|
bd61a80a6c54
Initial import into Mercurial repository. Discarding old cvs/svn history
Matti Hamalainen <ccr@tnsp.org>
parents:
diff
changeset
|
145 |
|
bd61a80a6c54
Initial import into Mercurial repository. Discarding old cvs/svn history
Matti Hamalainen <ccr@tnsp.org>
parents:
diff
changeset
|
146 void th_free(void *p) |
|
bd61a80a6c54
Initial import into Mercurial repository. Discarding old cvs/svn history
Matti Hamalainen <ccr@tnsp.org>
parents:
diff
changeset
|
147 { |
| 10 | 148 /* Check for NULL pointers for portability due to some libc |
| 149 * implementations not handling free(NULL) too well. | |
| 150 */ | |
| 151 if (p) free(p); | |
|
0
bd61a80a6c54
Initial import into Mercurial repository. Discarding old cvs/svn history
Matti Hamalainen <ccr@tnsp.org>
parents:
diff
changeset
|
152 } |
|
bd61a80a6c54
Initial import into Mercurial repository. Discarding old cvs/svn history
Matti Hamalainen <ccr@tnsp.org>
parents:
diff
changeset
|
153 |
|
bd61a80a6c54
Initial import into Mercurial repository. Discarding old cvs/svn history
Matti Hamalainen <ccr@tnsp.org>
parents:
diff
changeset
|
154 |
|
bd61a80a6c54
Initial import into Mercurial repository. Discarding old cvs/svn history
Matti Hamalainen <ccr@tnsp.org>
parents:
diff
changeset
|
155 #ifndef HAVE_MEMSET |
|
bd61a80a6c54
Initial import into Mercurial repository. Discarding old cvs/svn history
Matti Hamalainen <ccr@tnsp.org>
parents:
diff
changeset
|
156 void *th_memset(void *p, int c, size_t n) |
|
bd61a80a6c54
Initial import into Mercurial repository. Discarding old cvs/svn history
Matti Hamalainen <ccr@tnsp.org>
parents:
diff
changeset
|
157 { |
| 10 | 158 unsigned char *dp = (unsigned char *) p; |
| 159 | |
| 160 while (n--) | |
| 161 *(dp++) = c; | |
|
0
bd61a80a6c54
Initial import into Mercurial repository. Discarding old cvs/svn history
Matti Hamalainen <ccr@tnsp.org>
parents:
diff
changeset
|
162 |
| 10 | 163 return p; |
|
0
bd61a80a6c54
Initial import into Mercurial repository. Discarding old cvs/svn history
Matti Hamalainen <ccr@tnsp.org>
parents:
diff
changeset
|
164 } |
|
bd61a80a6c54
Initial import into Mercurial repository. Discarding old cvs/svn history
Matti Hamalainen <ccr@tnsp.org>
parents:
diff
changeset
|
165 #endif |
| 16 | 166 |
| 167 /* Doubly linked list handling | |
| 168 * | |
| 169 * In this implementation first node's prev points to last node of the list, | |
| 170 * and last node's next is NULL. This way we can semi-efficiently traverse to | |
| 171 * beginning and end of the list, assuming user does not do weird things. | |
| 172 */ | |
| 173 qlist_t * th_llist_new(void *data) | |
| 174 { | |
| 175 qlist_t *res = th_calloc(sizeof(qlist_t), 1); | |
| 176 res->data = data; | |
| 177 return res; | |
| 178 } | |
| 179 | |
| 180 void th_llist_free_func(qlist_t *list, void (*freefunc)(void *data)) | |
| 181 { | |
| 182 qlist_t *curr = list; | |
| 183 | |
| 40 | 184 while (curr != NULL) |
| 185 { | |
| 16 | 186 qlist_t *next = curr->next; |
| 187 if (freefunc != NULL && curr->data != NULL) | |
| 188 freefunc(curr->data); | |
| 189 th_free(curr); | |
| 190 curr = next; | |
| 191 } | |
| 192 } | |
| 193 | |
| 194 | |
| 195 void th_llist_free(qlist_t *list) | |
| 196 { | |
| 197 th_llist_free_func(list, NULL); | |
| 198 } | |
| 199 | |
| 200 void th_llist_append_node(qlist_t **list, qlist_t *node) | |
| 201 { | |
| 40 | 202 if (*list != NULL) |
| 203 { | |
| 16 | 204 node->prev = (*list)->prev; |
| 205 (*list)->prev->next = node; | |
| 206 (*list)->prev = node; | |
| 207 (*list)->num++; | |
| 40 | 208 } |
| 209 else | |
| 210 { | |
| 16 | 211 *list = node; |
| 212 node->prev = *list; | |
| 213 (*list)->num = 1; | |
| 214 } | |
| 215 | |
| 216 node->next = NULL; | |
| 217 } | |
| 218 | |
| 219 | |
| 220 qlist_t *th_llist_append(qlist_t **list, void *data) | |
| 221 { | |
| 222 qlist_t *node = th_llist_new(data); | |
| 223 | |
| 224 th_llist_append_node(list, node); | |
| 225 | |
| 226 return node; | |
| 227 } | |
| 228 | |
| 229 | |
| 230 void th_llist_prepend_node(qlist_t **list, qlist_t *node) | |
| 231 { | |
| 40 | 232 if (*list != NULL) |
| 233 { | |
| 16 | 234 node->prev = (*list)->prev; |
| 235 node->next = *list; | |
| 236 (*list)->prev = node; | |
| 237 node->num = (*list)->num + 1; | |
| 238 *list = node; | |
| 40 | 239 } |
| 240 else | |
| 241 { | |
| 16 | 242 *list = node->prev = node; |
| 243 node->next = NULL; | |
| 244 (*list)->num = 1; | |
| 245 } | |
| 246 | |
| 247 } | |
| 248 | |
| 249 | |
| 250 qlist_t *th_llist_prepend(qlist_t **list, void *data) | |
| 251 { | |
| 252 qlist_t *node = th_llist_new(data); | |
| 253 | |
| 254 th_llist_prepend_node(list, node); | |
| 255 | |
| 256 return node; | |
| 257 } | |
| 258 | |
| 259 /* | |
| 260 1) Remove a middle node | |
| 261 | |
| 262 node0->prev->next = node->next (node1) | |
| 263 node0->next->prev = node->prev (list) | |
| 264 | |
| 265 node2 <- list <=> node0 <=> node1 <=> node2 -> NULL | |
| 266 node2 <- list <=> node1 <=> node2 -> NULL | |
| 267 | |
| 268 2) Remove first node when many items | |
| 269 | |
| 270 | |
| 271 node2 <- list <=> node0 <=> node1 <=> node2 -> NULL | |
| 272 node2 <- node0 <=> node1 <=> node2 -> NULL | |
| 273 | |
| 274 *list = node0 | |
| 275 | |
| 276 3) Remove last node in list | |
| 277 | |
| 278 if (node->next == NULL) { | |
| 279 list->prev = node->prev; | |
| 280 node->prev->next = NULL; | |
| 281 } | |
| 282 | |
| 283 node2 <- list <=> node0 <=> node1 <=> node2 -> NULL | |
| 284 node1 <- list <=> node0 <=> node1 -> NULL | |
| 285 | |
| 286 4) Remove last | |
| 287 | |
| 288 list <- list -> NULL | |
| 289 | |
| 290 | |
| 291 */ | |
| 292 static void th_llist_delete_node_fast(qlist_t **list, qlist_t *node) | |
| 293 { | |
| 40 | 294 if (node == *list) |
| 295 { | |
| 16 | 296 /* First node in list */ |
| 297 qlist_t *tmp = (*list)->next; | |
| 40 | 298 if (tmp != NULL) |
| 299 { | |
| 16 | 300 tmp->num = (*list)->num - 1; |
| 301 tmp->prev = (*list)->prev; | |
| 302 } | |
| 303 *list = tmp; | |
| 40 | 304 } |
| 305 else | |
| 306 { | |
| 16 | 307 /* Somewhere in middle or end */ |
| 308 if (node->prev != NULL) | |
| 309 node->prev->next = node->next; | |
| 310 | |
| 311 if (node->next != NULL) | |
| 312 node->next->prev = node->prev; | |
| 313 else | |
| 314 (*list)->prev = node; /* Last node */ | |
| 315 | |
| 316 (*list)->num--; | |
| 317 } | |
| 318 | |
| 319 node->next = node->prev = NULL; | |
| 320 } | |
| 321 | |
| 322 | |
| 323 void th_llist_delete_node(qlist_t **list, qlist_t *node) | |
| 324 { | |
| 325 qlist_t *curr = *list; | |
| 326 | |
| 40 | 327 while (curr != NULL) |
| 328 { | |
| 16 | 329 qlist_t *next = curr->next; |
| 40 | 330 if (curr == node) |
| 331 { | |
| 16 | 332 th_llist_delete_node_fast(list, curr); |
| 333 th_free(node); | |
| 334 break; | |
| 335 } | |
| 336 curr = next; | |
| 337 } | |
| 338 } | |
| 339 | |
| 340 | |
| 341 void th_llist_delete(qlist_t **list, const void *data) | |
| 342 { | |
| 343 qlist_t *curr = *list; | |
| 344 | |
| 40 | 345 while (curr != NULL) |
| 346 { | |
| 16 | 347 qlist_t *next = curr->next; |
| 40 | 348 if (curr->data == data) |
| 349 { | |
| 16 | 350 th_llist_delete_node_fast(list, curr); |
| 351 th_free(curr); | |
| 352 break; | |
| 353 } | |
| 354 curr = next; | |
| 355 } | |
| 356 } | |
| 357 | |
| 358 | |
| 359 qlist_t * th_llist_get_nth(qlist_t *list, const size_t n) | |
| 360 { | |
| 361 qlist_t *curr = list; | |
| 362 size_t i; | |
| 363 | |
| 364 for (i = 0; curr != NULL && i < n; curr = curr->next, i++); | |
| 365 | |
| 366 return curr; | |
| 367 } | |
| 368 | |
| 369 | |
| 370 size_t th_llist_length(const qlist_t *list) | |
| 371 { | |
| 372 if (list == NULL) | |
| 373 return 0; | |
| 374 else | |
| 375 return list->num; | |
| 376 } | |
| 377 | |
| 378 | |
| 379 ssize_t th_llist_position(const qlist_t *list, const qlist_t *node) | |
| 380 { | |
| 381 const qlist_t *curr = list; | |
| 382 ssize_t i = 0; | |
| 383 | |
| 40 | 384 while (curr != NULL) |
| 385 { | |
| 16 | 386 if (curr == node) |
| 387 return i; | |
| 388 else | |
| 389 i++; | |
| 390 | |
| 391 curr = curr->next; | |
| 392 } | |
| 393 | |
| 394 return -1; | |
| 395 } | |
| 396 | |
| 397 | |
| 398 qlist_t * th_llist_find(qlist_t *list, const void *data) | |
| 399 { | |
| 400 qlist_t *curr = list; | |
| 401 | |
| 40 | 402 while (curr != NULL) |
| 403 { | |
| 16 | 404 if (curr->data == data) |
| 405 return curr; | |
| 406 curr = curr->next; | |
| 407 } | |
| 408 | |
| 409 return NULL; | |
| 410 } | |
| 411 | |
| 412 | |
| 413 qlist_t * th_llist_find_func(qlist_t *list, const void *userdata, int (compare)(const void *, const void *)) | |
| 414 { | |
| 415 qlist_t *curr = list; | |
| 416 | |
| 40 | 417 while (curr != NULL) |
| 418 { | |
| 16 | 419 if (compare(curr->data, userdata) == 0) |
| 420 return curr; | |
| 421 curr = curr->next; | |
| 422 } | |
| 423 | |
| 424 return NULL; | |
| 425 } | |
|
23
a4f894105953
Add ringbuffer implementation.
Matti Hamalainen <ccr@tnsp.org>
parents:
16
diff
changeset
|
426 |
|
a4f894105953
Add ringbuffer implementation.
Matti Hamalainen <ccr@tnsp.org>
parents:
16
diff
changeset
|
427 |
| 26 | 428 /* |
| 429 * Ringbuffers | |
| 430 */ | |
|
23
a4f894105953
Add ringbuffer implementation.
Matti Hamalainen <ccr@tnsp.org>
parents:
16
diff
changeset
|
431 qringbuf_t * th_ringbuf_new(const size_t size, void (*mdeallocator)(void *data)) |
|
a4f894105953
Add ringbuffer implementation.
Matti Hamalainen <ccr@tnsp.org>
parents:
16
diff
changeset
|
432 { |
|
a4f894105953
Add ringbuffer implementation.
Matti Hamalainen <ccr@tnsp.org>
parents:
16
diff
changeset
|
433 qringbuf_t *res = th_calloc(1, sizeof(qringbuf_t)); |
|
a4f894105953
Add ringbuffer implementation.
Matti Hamalainen <ccr@tnsp.org>
parents:
16
diff
changeset
|
434 |
| 33 | 435 res->data = (char **) th_calloc(size, sizeof(char *)); |
|
23
a4f894105953
Add ringbuffer implementation.
Matti Hamalainen <ccr@tnsp.org>
parents:
16
diff
changeset
|
436 res->size = size; |
|
a4f894105953
Add ringbuffer implementation.
Matti Hamalainen <ccr@tnsp.org>
parents:
16
diff
changeset
|
437 res->n = 0; |
|
a4f894105953
Add ringbuffer implementation.
Matti Hamalainen <ccr@tnsp.org>
parents:
16
diff
changeset
|
438 res->deallocator = mdeallocator; |
|
a4f894105953
Add ringbuffer implementation.
Matti Hamalainen <ccr@tnsp.org>
parents:
16
diff
changeset
|
439 |
|
a4f894105953
Add ringbuffer implementation.
Matti Hamalainen <ccr@tnsp.org>
parents:
16
diff
changeset
|
440 return res; |
|
a4f894105953
Add ringbuffer implementation.
Matti Hamalainen <ccr@tnsp.org>
parents:
16
diff
changeset
|
441 } |
|
a4f894105953
Add ringbuffer implementation.
Matti Hamalainen <ccr@tnsp.org>
parents:
16
diff
changeset
|
442 |
|
a4f894105953
Add ringbuffer implementation.
Matti Hamalainen <ccr@tnsp.org>
parents:
16
diff
changeset
|
443 |
|
a4f894105953
Add ringbuffer implementation.
Matti Hamalainen <ccr@tnsp.org>
parents:
16
diff
changeset
|
444 BOOL th_ringbuf_grow(qringbuf_t *buf, const size_t n) |
|
a4f894105953
Add ringbuffer implementation.
Matti Hamalainen <ccr@tnsp.org>
parents:
16
diff
changeset
|
445 { |
| 33 | 446 buf->data = (char **) th_realloc(buf->data, (buf->size + n) * sizeof(char *)); |
| 40 | 447 if (buf->data != NULL) |
| 448 { | |
| 449 th_memset(buf->data + buf->size, 0, sizeof(char *) * n); | |
| 33 | 450 buf->size += n; |
| 451 return TRUE; | |
| 452 } else | |
| 453 return FALSE; | |
|
23
a4f894105953
Add ringbuffer implementation.
Matti Hamalainen <ccr@tnsp.org>
parents:
16
diff
changeset
|
454 } |
|
a4f894105953
Add ringbuffer implementation.
Matti Hamalainen <ccr@tnsp.org>
parents:
16
diff
changeset
|
455 |
|
a4f894105953
Add ringbuffer implementation.
Matti Hamalainen <ccr@tnsp.org>
parents:
16
diff
changeset
|
456 |
|
a4f894105953
Add ringbuffer implementation.
Matti Hamalainen <ccr@tnsp.org>
parents:
16
diff
changeset
|
457 void th_ringbuf_free(qringbuf_t *buf) |
|
a4f894105953
Add ringbuffer implementation.
Matti Hamalainen <ccr@tnsp.org>
parents:
16
diff
changeset
|
458 { |
|
a4f894105953
Add ringbuffer implementation.
Matti Hamalainen <ccr@tnsp.org>
parents:
16
diff
changeset
|
459 int i; |
|
a4f894105953
Add ringbuffer implementation.
Matti Hamalainen <ccr@tnsp.org>
parents:
16
diff
changeset
|
460 |
| 33 | 461 for (i = 0; i < buf->size; i++) |
|
25
2f7270a9d593
Make ringbuffer deallocator function call only happen if data pointer is != NULL
Matti Hamalainen <ccr@tnsp.org>
parents:
23
diff
changeset
|
462 if (buf->data[i] != NULL) |
|
2f7270a9d593
Make ringbuffer deallocator function call only happen if data pointer is != NULL
Matti Hamalainen <ccr@tnsp.org>
parents:
23
diff
changeset
|
463 buf->deallocator(buf->data[i]); |
|
23
a4f894105953
Add ringbuffer implementation.
Matti Hamalainen <ccr@tnsp.org>
parents:
16
diff
changeset
|
464 |
|
a4f894105953
Add ringbuffer implementation.
Matti Hamalainen <ccr@tnsp.org>
parents:
16
diff
changeset
|
465 th_free(buf->data); |
|
a4f894105953
Add ringbuffer implementation.
Matti Hamalainen <ccr@tnsp.org>
parents:
16
diff
changeset
|
466 th_free(buf); |
|
a4f894105953
Add ringbuffer implementation.
Matti Hamalainen <ccr@tnsp.org>
parents:
16
diff
changeset
|
467 } |
|
a4f894105953
Add ringbuffer implementation.
Matti Hamalainen <ccr@tnsp.org>
parents:
16
diff
changeset
|
468 |
|
a4f894105953
Add ringbuffer implementation.
Matti Hamalainen <ccr@tnsp.org>
parents:
16
diff
changeset
|
469 |
|
a4f894105953
Add ringbuffer implementation.
Matti Hamalainen <ccr@tnsp.org>
parents:
16
diff
changeset
|
470 void th_ringbuf_add(qringbuf_t *buf, void *ptr) |
|
a4f894105953
Add ringbuffer implementation.
Matti Hamalainen <ccr@tnsp.org>
parents:
16
diff
changeset
|
471 { |
|
28
c47dcb8a4ffe
Change how ringbuffer actually works to be more sensible.
Matti Hamalainen <ccr@tnsp.org>
parents:
27
diff
changeset
|
472 if (buf->n < buf->size) |
|
23
a4f894105953
Add ringbuffer implementation.
Matti Hamalainen <ccr@tnsp.org>
parents:
16
diff
changeset
|
473 buf->n++; |
|
28
c47dcb8a4ffe
Change how ringbuffer actually works to be more sensible.
Matti Hamalainen <ccr@tnsp.org>
parents:
27
diff
changeset
|
474 |
|
c47dcb8a4ffe
Change how ringbuffer actually works to be more sensible.
Matti Hamalainen <ccr@tnsp.org>
parents:
27
diff
changeset
|
475 th_free(buf->data[0]); |
|
c47dcb8a4ffe
Change how ringbuffer actually works to be more sensible.
Matti Hamalainen <ccr@tnsp.org>
parents:
27
diff
changeset
|
476 memmove(&(buf->data[0]), &(buf->data[1]), (buf->size - 1) * sizeof(void *)); |
|
c47dcb8a4ffe
Change how ringbuffer actually works to be more sensible.
Matti Hamalainen <ccr@tnsp.org>
parents:
27
diff
changeset
|
477 buf->data[buf->size - 1] = ptr; |
|
23
a4f894105953
Add ringbuffer implementation.
Matti Hamalainen <ccr@tnsp.org>
parents:
16
diff
changeset
|
478 } |