1 : /*
2 : +----------------------------------------------------------------------+
3 : | Zend Engine |
4 : +----------------------------------------------------------------------+
5 : | Copyright (c) 1998-2009 Zend Technologies Ltd. (http://www.zend.com) |
6 : +----------------------------------------------------------------------+
7 : | This source file is subject to version 2.00 of the Zend license, |
8 : | that is bundled with this package in the file LICENSE, and is |
9 : | available through the world-wide-web at the following url: |
10 : | http://www.zend.com/license/2_00.txt. |
11 : | If you did not receive a copy of the Zend license and are unable to |
12 : | obtain it through the world-wide-web, please send a note to |
13 : | license@zend.com so we can mail you a copy immediately. |
14 : +----------------------------------------------------------------------+
15 : | Authors: Andi Gutmans <andi@zend.com> |
16 : | Zeev Suraski <zeev@zend.com> |
17 : +----------------------------------------------------------------------+
18 : */
19 :
20 : /* $Id: zend_list.c 272370 2008-12-31 11:15:49Z sebastian $ */
21 :
22 : /* resource lists */
23 :
24 : #include "zend.h"
25 : #include "zend_list.h"
26 : #include "zend_API.h"
27 : #include "zend_globals.h"
28 :
29 : ZEND_API int le_index_ptr;
30 :
31 : /* true global */
32 : static HashTable list_destructors;
33 :
34 :
35 : ZEND_API int zend_list_insert(void *ptr, int type)
36 509929 : {
37 : int index;
38 : zend_rsrc_list_entry le;
39 : TSRMLS_FETCH();
40 :
41 509929 : le.ptr=ptr;
42 509929 : le.type=type;
43 509929 : le.refcount=1;
44 :
45 509929 : index = zend_hash_next_free_element(&EG(regular_list));
46 :
47 509929 : zend_hash_index_update(&EG(regular_list), index, (void *) &le, sizeof(zend_rsrc_list_entry), NULL);
48 509929 : return index;
49 : }
50 :
51 : ZEND_API int _zend_list_delete(int id TSRMLS_DC)
52 1277615 : {
53 : zend_rsrc_list_entry *le;
54 :
55 1277615 : if (zend_hash_index_find(&EG(regular_list), id, (void **) &le)==SUCCESS) {
56 : /* printf("del(%d): %d->%d\n", id, le->refcount, le->refcount-1); */
57 1071832 : if (--le->refcount<=0) {
58 502806 : return zend_hash_index_del(&EG(regular_list), id);
59 : } else {
60 569026 : return SUCCESS;
61 : }
62 : } else {
63 205783 : return FAILURE;
64 : }
65 : }
66 :
67 :
68 : ZEND_API void *_zend_list_find(int id, int *type TSRMLS_DC)
69 10478783 : {
70 : zend_rsrc_list_entry *le;
71 :
72 10478783 : if (zend_hash_index_find(&EG(regular_list), id, (void **) &le)==SUCCESS) {
73 8342740 : *type = le->type;
74 8342740 : return le->ptr;
75 : } else {
76 2136043 : *type = -1;
77 2136043 : return NULL;
78 : }
79 : }
80 :
81 : ZEND_API int _zend_list_addref(int id TSRMLS_DC)
82 569083 : {
83 : zend_rsrc_list_entry *le;
84 :
85 569083 : if (zend_hash_index_find(&EG(regular_list), id, (void **) &le)==SUCCESS) {
86 : /* printf("add(%d): %d->%d\n", id, le->refcount, le->refcount+1); */
87 569046 : le->refcount++;
88 569046 : return SUCCESS;
89 : } else {
90 37 : return FAILURE;
91 : }
92 : }
93 :
94 :
95 : ZEND_API int zend_register_resource(zval *rsrc_result, void *rsrc_pointer, int rsrc_type)
96 508530 : {
97 : int rsrc_id;
98 :
99 508530 : rsrc_id = zend_list_insert(rsrc_pointer, rsrc_type);
100 :
101 508530 : if (rsrc_result) {
102 22013 : rsrc_result->value.lval = rsrc_id;
103 22013 : rsrc_result->type = IS_RESOURCE;
104 : }
105 :
106 508530 : return rsrc_id;
107 : }
108 :
109 :
110 : ZEND_API void *zend_fetch_resource(zval **passed_id TSRMLS_DC, int default_id, char *resource_type_name, int *found_resource_type, int num_resource_types, ...)
111 10204150 : {
112 : int id;
113 : int actual_resource_type;
114 : void *resource;
115 : va_list resource_types;
116 : int i;
117 : char *space;
118 : char *class_name;
119 :
120 10204150 : if (default_id==-1) { /* use id */
121 10204028 : if (!passed_id) {
122 3 : if (resource_type_name) {
123 3 : class_name = get_active_class_name(&space TSRMLS_CC);
124 3 : zend_error(E_WARNING, "%s%s%s(): no %s resource supplied", class_name, space, get_active_function_name(TSRMLS_C), resource_type_name);
125 : }
126 3 : return NULL;
127 10204025 : } else if ((*passed_id)->type != IS_RESOURCE) {
128 13 : if (resource_type_name) {
129 13 : class_name = get_active_class_name(&space TSRMLS_CC);
130 13 : zend_error(E_WARNING, "%s%s%s(): supplied argument is not a valid %s resource", class_name, space, get_active_function_name(TSRMLS_C), resource_type_name);
131 : }
132 13 : return NULL;
133 : }
134 10204012 : id = (*passed_id)->value.lval;
135 : } else {
136 122 : id = default_id;
137 : }
138 :
139 10204134 : resource = zend_list_find(id, &actual_resource_type);
140 10204134 : if (!resource) {
141 2135931 : if (resource_type_name) {
142 2135930 : class_name = get_active_class_name(&space TSRMLS_CC);
143 2135930 : zend_error(E_WARNING, "%s%s%s(): %d is not a valid %s resource", class_name, space, get_active_function_name(TSRMLS_C), id, resource_type_name);
144 : }
145 2135931 : return NULL;
146 : }
147 :
148 8068203 : va_start(resource_types, num_resource_types);
149 8068481 : for (i=0; i<num_resource_types; i++) {
150 8068366 : if (actual_resource_type == va_arg(resource_types, int)) {
151 8068088 : va_end(resource_types);
152 8068088 : if (found_resource_type) {
153 8757 : *found_resource_type = actual_resource_type;
154 : }
155 8068088 : return resource;
156 : }
157 : }
158 115 : va_end(resource_types);
159 :
160 115 : if (resource_type_name) {
161 98 : class_name = get_active_class_name(&space TSRMLS_CC);
162 98 : zend_error(E_WARNING, "%s%s%s(): supplied resource is not a valid %s resource", class_name, space, get_active_function_name(TSRMLS_C), resource_type_name);
163 : }
164 :
165 115 : return NULL;
166 : }
167 :
168 :
169 : void list_entry_destructor(void *ptr)
170 512183 : {
171 512183 : zend_rsrc_list_entry *le = (zend_rsrc_list_entry *) ptr;
172 : zend_rsrc_list_dtors_entry *ld;
173 : TSRMLS_FETCH();
174 :
175 512183 : if (zend_hash_index_find(&list_destructors, le->type, (void **) &ld)==SUCCESS) {
176 512183 : switch (ld->type) {
177 : case ZEND_RESOURCE_LIST_TYPE_STD:
178 758 : if (ld->list_dtor) {
179 758 : (ld->list_dtor)(le->ptr);
180 : }
181 758 : break;
182 : case ZEND_RESOURCE_LIST_TYPE_EX:
183 511425 : if (ld->list_dtor_ex) {
184 509382 : ld->list_dtor_ex(le TSRMLS_CC);
185 : }
186 : break;
187 : EMPTY_SWITCH_DEFAULT_CASE()
188 : }
189 : } else {
190 0 : zend_error(E_WARNING,"Unknown list entry type in request shutdown (%d)", le->type);
191 : }
192 512182 : }
193 :
194 :
195 : void plist_entry_destructor(void *ptr)
196 1338 : {
197 1338 : zend_rsrc_list_entry *le = (zend_rsrc_list_entry *) ptr;
198 : zend_rsrc_list_dtors_entry *ld;
199 : TSRMLS_FETCH();
200 :
201 1338 : if (zend_hash_index_find(&list_destructors, le->type, (void **) &ld)==SUCCESS) {
202 1338 : switch (ld->type) {
203 : case ZEND_RESOURCE_LIST_TYPE_STD:
204 0 : if (ld->plist_dtor) {
205 0 : (ld->plist_dtor)(le->ptr);
206 : }
207 0 : break;
208 : case ZEND_RESOURCE_LIST_TYPE_EX:
209 1338 : if (ld->plist_dtor_ex) {
210 1338 : ld->plist_dtor_ex(le TSRMLS_CC);
211 : }
212 : break;
213 : EMPTY_SWITCH_DEFAULT_CASE()
214 : }
215 : } else {
216 0 : zend_error(E_WARNING,"Unknown persistent list entry type in module shutdown (%d)", le->type);
217 : }
218 1338 : }
219 :
220 :
221 : int zend_init_rsrc_list(TSRMLS_D)
222 17619 : {
223 17619 : if (zend_hash_init(&EG(regular_list), 0, NULL, list_entry_destructor, 0)==SUCCESS) {
224 17619 : EG(regular_list).nNextFreeElement=1; /* we don't want resource id 0 */
225 17619 : return SUCCESS;
226 : } else {
227 0 : return FAILURE;
228 : }
229 : }
230 :
231 :
232 : int zend_init_rsrc_plist(TSRMLS_D)
233 17633 : {
234 17633 : return zend_hash_init_ex(&EG(persistent_list), 0, NULL, plist_entry_destructor, 1, 0);
235 : }
236 :
237 :
238 : void zend_destroy_rsrc_list(HashTable *ht TSRMLS_DC)
239 35316 : {
240 35316 : zend_hash_graceful_reverse_destroy(ht);
241 35316 : }
242 :
243 : static int clean_module_resource(zend_rsrc_list_entry *le, int *resource_id TSRMLS_DC)
244 0 : {
245 0 : if (le->type == *resource_id) {
246 0 : return 1;
247 : } else {
248 0 : return 0;
249 : }
250 : }
251 :
252 :
253 : static int zend_clean_module_rsrc_dtors_cb(zend_rsrc_list_dtors_entry *ld, int *module_number TSRMLS_DC)
254 0 : {
255 0 : if (ld->module_number == *module_number) {
256 0 : zend_hash_apply_with_argument(&EG(persistent_list), (apply_func_arg_t) clean_module_resource, (void *) &(ld->resource_id) TSRMLS_CC);
257 0 : return 1;
258 : } else {
259 0 : return 0;
260 : }
261 : }
262 :
263 :
264 : void zend_clean_module_rsrc_dtors(int module_number TSRMLS_DC)
265 0 : {
266 0 : zend_hash_apply_with_argument(&list_destructors, (apply_func_arg_t) zend_clean_module_rsrc_dtors_cb, (void *) &module_number TSRMLS_CC);
267 0 : }
268 :
269 :
270 : ZEND_API int zend_register_list_destructors(void (*ld)(void *), void (*pld)(void *), int module_number)
271 70532 : {
272 : zend_rsrc_list_dtors_entry lde;
273 :
274 : #if 0
275 : printf("Registering destructors %d for module %d\n", list_destructors.nNextFreeElement, module_number);
276 : #endif
277 :
278 70532 : lde.list_dtor=(void (*)(void *)) ld;
279 70532 : lde.plist_dtor=(void (*)(void *)) pld;
280 70532 : lde.list_dtor_ex = lde.plist_dtor_ex = NULL;
281 70532 : lde.module_number = module_number;
282 70532 : lde.resource_id = list_destructors.nNextFreeElement;
283 70532 : lde.type = ZEND_RESOURCE_LIST_TYPE_STD;
284 70532 : lde.type_name = NULL;
285 :
286 70532 : if (zend_hash_next_index_insert(&list_destructors, (void *) &lde, sizeof(zend_rsrc_list_dtors_entry), NULL)==FAILURE) {
287 0 : return FAILURE;
288 : }
289 70532 : return list_destructors.nNextFreeElement-1;
290 : }
291 :
292 :
293 : ZEND_API int zend_register_list_destructors_ex(rsrc_dtor_func_t ld, rsrc_dtor_func_t pld, char *type_name, int module_number)
294 1057980 : {
295 : zend_rsrc_list_dtors_entry lde;
296 :
297 : #if 0
298 : printf("Registering destructors %d for module %d\n", list_destructors.nNextFreeElement, module_number);
299 : #endif
300 :
301 1057980 : lde.list_dtor = NULL;
302 1057980 : lde.plist_dtor = NULL;
303 1057980 : lde.list_dtor_ex = ld;
304 1057980 : lde.plist_dtor_ex = pld;
305 1057980 : lde.module_number = module_number;
306 1057980 : lde.resource_id = list_destructors.nNextFreeElement;
307 1057980 : lde.type = ZEND_RESOURCE_LIST_TYPE_EX;
308 1057980 : lde.type_name = type_name;
309 :
310 1057980 : if (zend_hash_next_index_insert(&list_destructors, (void *) &lde, sizeof(zend_rsrc_list_dtors_entry), NULL)==FAILURE) {
311 0 : return FAILURE;
312 : }
313 1057980 : return list_destructors.nNextFreeElement-1;
314 : }
315 :
316 : ZEND_API int zend_fetch_list_dtor_id(char *type_name)
317 0 : {
318 : zend_rsrc_list_dtors_entry *lde;
319 : HashPosition pos;
320 :
321 0 : zend_hash_internal_pointer_reset_ex(&list_destructors, &pos);
322 0 : while (zend_hash_get_current_data_ex(&list_destructors, (void **)&lde, &pos) == SUCCESS) {
323 0 : if (lde->type_name && (strcmp(type_name, lde->type_name) == 0)) {
324 : #if 0
325 : printf("Found resource id %d for resource type %s\n", (*lde).resource_id, type_name);
326 : #endif
327 0 : return lde->resource_id;
328 : }
329 0 : zend_hash_move_forward_ex(&list_destructors, &pos);
330 : }
331 :
332 0 : return 0;
333 : }
334 :
335 : int zend_init_rsrc_list_dtors(void)
336 17633 : {
337 : int retval;
338 :
339 17633 : retval = zend_hash_init(&list_destructors, 50, NULL, NULL, 1);
340 17633 : list_destructors.nNextFreeElement=1; /* we don't want resource type 0 */
341 :
342 17633 : return retval;
343 : }
344 :
345 :
346 : void zend_destroy_rsrc_list_dtors(void)
347 17665 : {
348 17665 : zend_hash_destroy(&list_destructors);
349 17665 : }
350 :
351 :
352 : char *zend_rsrc_list_get_rsrc_type(int resource TSRMLS_DC)
353 970 : {
354 : zend_rsrc_list_dtors_entry *lde;
355 : int rsrc_type;
356 :
357 970 : if (!zend_list_find(resource, &rsrc_type))
358 79 : return NULL;
359 :
360 891 : if (zend_hash_index_find(&list_destructors, rsrc_type, (void **) &lde)==SUCCESS) {
361 891 : return lde->type_name;
362 : } else {
363 0 : return NULL;
364 : }
365 : }
366 :
367 : /*
368 : * Local variables:
369 : * tab-width: 4
370 : * c-basic-offset: 4
371 : * indent-tabs-mode: t
372 : * End:
373 : */
|
