1: /*
2: +----------------------------------------------------------------------+
3: | Zend Engine |
4: +----------------------------------------------------------------------+
5: | Copyright (c) 1998-2012 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,v 1.1.1.1 2012/02/21 23:47:52 misho Exp $ */
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: {
37: int index;
38: zend_rsrc_list_entry le;
39: TSRMLS_FETCH();
40:
41: le.ptr=ptr;
42: le.type=type;
43: le.refcount=1;
44:
45: index = zend_hash_next_free_element(&EG(regular_list));
46:
47: zend_hash_index_update(&EG(regular_list), index, (void *) &le, sizeof(zend_rsrc_list_entry), NULL);
48: return index;
49: }
50:
51: ZEND_API int _zend_list_delete(ulong id TSRMLS_DC)
52: {
53: zend_rsrc_list_entry *le;
54:
55: 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: if (--le->refcount<=0) {
58: return zend_hash_index_del(&EG(regular_list), id);
59: } else {
60: return SUCCESS;
61: }
62: } else {
63: return FAILURE;
64: }
65: }
66:
67:
68: ZEND_API void *_zend_list_find(ulong id, int *type TSRMLS_DC)
69: {
70: zend_rsrc_list_entry *le;
71:
72: if (zend_hash_index_find(&EG(regular_list), id, (void **) &le)==SUCCESS) {
73: *type = le->type;
74: return le->ptr;
75: } else {
76: *type = -1;
77: return NULL;
78: }
79: }
80:
81: ZEND_API int _zend_list_addref(ulong id TSRMLS_DC)
82: {
83: zend_rsrc_list_entry *le;
84:
85: 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: le->refcount++;
88: return SUCCESS;
89: } else {
90: return FAILURE;
91: }
92: }
93:
94:
95: ZEND_API int zend_register_resource(zval *rsrc_result, void *rsrc_pointer, int rsrc_type)
96: {
97: int rsrc_id;
98:
99: rsrc_id = zend_list_insert(rsrc_pointer, rsrc_type);
100:
101: if (rsrc_result) {
102: rsrc_result->value.lval = rsrc_id;
103: rsrc_result->type = IS_RESOURCE;
104: }
105:
106: 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: {
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: if (default_id==-1) { /* use id */
121: if (!passed_id) {
122: if (resource_type_name) {
123: class_name = get_active_class_name(&space TSRMLS_CC);
124: 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: return NULL;
127: } else if ((*passed_id)->type != IS_RESOURCE) {
128: if (resource_type_name) {
129: class_name = get_active_class_name(&space TSRMLS_CC);
130: 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: return NULL;
133: }
134: id = (*passed_id)->value.lval;
135: } else {
136: id = default_id;
137: }
138:
139: resource = zend_list_find(id, &actual_resource_type);
140: if (!resource) {
141: if (resource_type_name) {
142: class_name = get_active_class_name(&space TSRMLS_CC);
143: 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: return NULL;
146: }
147:
148: va_start(resource_types, num_resource_types);
149: for (i=0; i<num_resource_types; i++) {
150: if (actual_resource_type == va_arg(resource_types, int)) {
151: va_end(resource_types);
152: if (found_resource_type) {
153: *found_resource_type = actual_resource_type;
154: }
155: return resource;
156: }
157: }
158: va_end(resource_types);
159:
160: if (resource_type_name) {
161: class_name = get_active_class_name(&space TSRMLS_CC);
162: 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: return NULL;
166: }
167:
168:
169: void list_entry_destructor(void *ptr)
170: {
171: zend_rsrc_list_entry *le = (zend_rsrc_list_entry *) ptr;
172: zend_rsrc_list_dtors_entry *ld;
173: TSRMLS_FETCH();
174:
175: if (zend_hash_index_find(&list_destructors, le->type, (void **) &ld)==SUCCESS) {
176: switch (ld->type) {
177: case ZEND_RESOURCE_LIST_TYPE_STD:
178: if (ld->list_dtor) {
179: (ld->list_dtor)(le->ptr);
180: }
181: break;
182: case ZEND_RESOURCE_LIST_TYPE_EX:
183: if (ld->list_dtor_ex) {
184: ld->list_dtor_ex(le TSRMLS_CC);
185: }
186: break;
187: EMPTY_SWITCH_DEFAULT_CASE()
188: }
189: } else {
190: zend_error(E_WARNING,"Unknown list entry type in request shutdown (%d)", le->type);
191: }
192: }
193:
194:
195: void plist_entry_destructor(void *ptr)
196: {
197: zend_rsrc_list_entry *le = (zend_rsrc_list_entry *) ptr;
198: zend_rsrc_list_dtors_entry *ld;
199: TSRMLS_FETCH();
200:
201: if (zend_hash_index_find(&list_destructors, le->type, (void **) &ld)==SUCCESS) {
202: switch (ld->type) {
203: case ZEND_RESOURCE_LIST_TYPE_STD:
204: if (ld->plist_dtor) {
205: (ld->plist_dtor)(le->ptr);
206: }
207: break;
208: case ZEND_RESOURCE_LIST_TYPE_EX:
209: if (ld->plist_dtor_ex) {
210: ld->plist_dtor_ex(le TSRMLS_CC);
211: }
212: break;
213: EMPTY_SWITCH_DEFAULT_CASE()
214: }
215: } else {
216: zend_error(E_WARNING,"Unknown persistent list entry type in module shutdown (%d)", le->type);
217: }
218: }
219:
220:
221: int zend_init_rsrc_list(TSRMLS_D)
222: {
223: if (zend_hash_init(&EG(regular_list), 0, NULL, list_entry_destructor, 0)==SUCCESS) {
224: EG(regular_list).nNextFreeElement=1; /* we don't want resource id 0 */
225: return SUCCESS;
226: } else {
227: return FAILURE;
228: }
229: }
230:
231:
232: int zend_init_rsrc_plist(TSRMLS_D)
233: {
234: 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: {
240: zend_hash_graceful_reverse_destroy(ht);
241: }
242:
243: static int clean_module_resource(zend_rsrc_list_entry *le, int *resource_id TSRMLS_DC)
244: {
245: if (le->type == *resource_id) {
246: return 1;
247: } else {
248: 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: {
255: if (ld->module_number == *module_number) {
256: zend_hash_apply_with_argument(&EG(persistent_list), (apply_func_arg_t) clean_module_resource, (void *) &(ld->resource_id) TSRMLS_CC);
257: return 1;
258: } else {
259: return 0;
260: }
261: }
262:
263:
264: void zend_clean_module_rsrc_dtors(int module_number TSRMLS_DC)
265: {
266: zend_hash_apply_with_argument(&list_destructors, (apply_func_arg_t) zend_clean_module_rsrc_dtors_cb, (void *) &module_number TSRMLS_CC);
267: }
268:
269:
270: ZEND_API int zend_register_list_destructors(void (*ld)(void *), void (*pld)(void *), int module_number)
271: {
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: lde.list_dtor=(void (*)(void *)) ld;
279: lde.plist_dtor=(void (*)(void *)) pld;
280: lde.list_dtor_ex = lde.plist_dtor_ex = NULL;
281: lde.module_number = module_number;
282: lde.resource_id = list_destructors.nNextFreeElement;
283: lde.type = ZEND_RESOURCE_LIST_TYPE_STD;
284: lde.type_name = NULL;
285:
286: if (zend_hash_next_index_insert(&list_destructors, (void *) &lde, sizeof(zend_rsrc_list_dtors_entry), NULL)==FAILURE) {
287: return FAILURE;
288: }
289: 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: {
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: lde.list_dtor = NULL;
302: lde.plist_dtor = NULL;
303: lde.list_dtor_ex = ld;
304: lde.plist_dtor_ex = pld;
305: lde.module_number = module_number;
306: lde.resource_id = list_destructors.nNextFreeElement;
307: lde.type = ZEND_RESOURCE_LIST_TYPE_EX;
308: lde.type_name = type_name;
309:
310: if (zend_hash_next_index_insert(&list_destructors, (void *) &lde, sizeof(zend_rsrc_list_dtors_entry), NULL)==FAILURE) {
311: return FAILURE;
312: }
313: return list_destructors.nNextFreeElement-1;
314: }
315:
316: ZEND_API int zend_fetch_list_dtor_id(char *type_name)
317: {
318: zend_rsrc_list_dtors_entry *lde;
319: HashPosition pos;
320:
321: zend_hash_internal_pointer_reset_ex(&list_destructors, &pos);
322: while (zend_hash_get_current_data_ex(&list_destructors, (void **)&lde, &pos) == SUCCESS) {
323: 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: return lde->resource_id;
328: }
329: zend_hash_move_forward_ex(&list_destructors, &pos);
330: }
331:
332: return 0;
333: }
334:
335: int zend_init_rsrc_list_dtors(void)
336: {
337: int retval;
338:
339: retval = zend_hash_init(&list_destructors, 50, NULL, NULL, 1);
340: list_destructors.nNextFreeElement=1; /* we don't want resource type 0 */
341:
342: return retval;
343: }
344:
345:
346: void zend_destroy_rsrc_list_dtors(void)
347: {
348: zend_hash_destroy(&list_destructors);
349: }
350:
351:
352: char *zend_rsrc_list_get_rsrc_type(ulong resource TSRMLS_DC)
353: {
354: zend_rsrc_list_dtors_entry *lde;
355: int rsrc_type;
356:
357: if (!zend_list_find(resource, &rsrc_type))
358: return NULL;
359:
360: if (zend_hash_index_find(&list_destructors, rsrc_type, (void **) &lde)==SUCCESS) {
361: return lde->type_name;
362: } else {
363: 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: */
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>
![[BACK]](/icons/cvsweb/back.gif){kind=icon}
Return to zend_list.c CVS log ![[TXT]](/icons/cvsweb/text.gif){kind=icon}
![[DIR]](/icons/cvsweb/dir.gif){kind=icon}
Up to [ELWIX - Embedded LightWeight unIX -] / embedaddon / php / Zend