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_variables.c,v 1.1.1.2 2012/05/29 12:34:36 misho Exp $ */
21:
22: #include <stdio.h>
23: #include "zend.h"
24: #include "zend_API.h"
25: #include "zend_globals.h"
26: #include "zend_constants.h"
27: #include "zend_list.h"
28:
29:
30: ZEND_API void _zval_dtor_func(zval *zvalue ZEND_FILE_LINE_DC)
31: {
32: switch (Z_TYPE_P(zvalue) & IS_CONSTANT_TYPE_MASK) {
33: case IS_STRING:
34: case IS_CONSTANT:
35: CHECK_ZVAL_STRING_REL(zvalue);
36: STR_FREE_REL(zvalue->value.str.val);
37: break;
38: case IS_ARRAY:
39: case IS_CONSTANT_ARRAY: {
40: TSRMLS_FETCH();
41:
42: if (zvalue->value.ht && (zvalue->value.ht != &EG(symbol_table))) {
43: zend_hash_destroy(zvalue->value.ht);
44: FREE_HASHTABLE(zvalue->value.ht);
45: }
46: }
47: break;
48: case IS_OBJECT:
49: {
50: TSRMLS_FETCH();
51:
52: Z_OBJ_HT_P(zvalue)->del_ref(zvalue TSRMLS_CC);
53: }
54: break;
55: case IS_RESOURCE:
56: {
57: TSRMLS_FETCH();
58:
59: /* destroy resource */
60: zend_list_delete(zvalue->value.lval);
61: }
62: break;
63: case IS_LONG:
64: case IS_DOUBLE:
65: case IS_BOOL:
66: case IS_NULL:
67: default:
68: return;
69: break;
70: }
71: }
72:
73:
74: ZEND_API void _zval_internal_dtor(zval *zvalue ZEND_FILE_LINE_DC)
75: {
76: switch (Z_TYPE_P(zvalue) & IS_CONSTANT_TYPE_MASK) {
77: case IS_STRING:
78: case IS_CONSTANT:
79: CHECK_ZVAL_STRING_REL(zvalue);
80: str_free(zvalue->value.str.val);
81: break;
82: case IS_ARRAY:
83: case IS_CONSTANT_ARRAY:
84: case IS_OBJECT:
85: case IS_RESOURCE:
86: zend_error(E_CORE_ERROR, "Internal zval's can't be arrays, objects or resources");
87: break;
88: case IS_LONG:
89: case IS_DOUBLE:
90: case IS_BOOL:
91: case IS_NULL:
92: default:
93: break;
94: }
95: }
96:
97:
98: ZEND_API void zval_add_ref(zval **p)
99: {
100: Z_ADDREF_PP(p);
101: }
102:
103:
104: ZEND_API void _zval_copy_ctor_func(zval *zvalue ZEND_FILE_LINE_DC)
105: {
106: switch (Z_TYPE_P(zvalue) & IS_CONSTANT_TYPE_MASK) {
107: case IS_RESOURCE: {
108: TSRMLS_FETCH();
109:
110: zend_list_addref(zvalue->value.lval);
111: }
112: break;
113: case IS_BOOL:
114: case IS_LONG:
115: case IS_NULL:
116: break;
117: case IS_CONSTANT:
118: case IS_STRING:
119: CHECK_ZVAL_STRING_REL(zvalue);
120: if (!IS_INTERNED(zvalue->value.str.val)) {
121: zvalue->value.str.val = (char *) estrndup_rel(zvalue->value.str.val, zvalue->value.str.len);
122: }
123: break;
124: case IS_ARRAY:
125: case IS_CONSTANT_ARRAY: {
126: zval *tmp;
127: HashTable *original_ht = zvalue->value.ht;
128: HashTable *tmp_ht = NULL;
129: TSRMLS_FETCH();
130:
131: if (zvalue->value.ht == &EG(symbol_table)) {
132: return; /* do nothing */
133: }
134: ALLOC_HASHTABLE_REL(tmp_ht);
135: zend_hash_init(tmp_ht, zend_hash_num_elements(original_ht), NULL, ZVAL_PTR_DTOR, 0);
136: zend_hash_copy(tmp_ht, original_ht, (copy_ctor_func_t) zval_add_ref, (void *) &tmp, sizeof(zval *));
137: zvalue->value.ht = tmp_ht;
138: }
139: break;
140: case IS_OBJECT:
141: {
142: TSRMLS_FETCH();
143: Z_OBJ_HT_P(zvalue)->add_ref(zvalue TSRMLS_CC);
144: }
145: break;
146: }
147: }
148:
149:
150: ZEND_API int zend_print_variable(zval *var)
151: {
152: return zend_print_zval(var, 0);
153: }
154:
155:
156: ZEND_API void _zval_dtor_wrapper(zval *zvalue)
157: {
158: TSRMLS_FETCH();
159:
160: GC_REMOVE_ZVAL_FROM_BUFFER(zvalue);
161: zval_dtor(zvalue);
162: }
163:
164:
165: #if ZEND_DEBUG
166: ZEND_API void _zval_copy_ctor_wrapper(zval *zvalue)
167: {
168: zval_copy_ctor(zvalue);
169: }
170:
171:
172: ZEND_API void _zval_internal_dtor_wrapper(zval *zvalue)
173: {
174: zval_internal_dtor(zvalue);
175: }
176:
177:
178: ZEND_API void _zval_ptr_dtor_wrapper(zval **zval_ptr)
179: {
180: zval_ptr_dtor(zval_ptr);
181: }
182:
183:
184: ZEND_API void _zval_internal_ptr_dtor_wrapper(zval **zval_ptr)
185: {
186: zval_internal_ptr_dtor(zval_ptr);
187: }
188: #endif
189:
190: ZEND_API int zval_copy_static_var(zval **p TSRMLS_DC, int num_args, va_list args, zend_hash_key *key) /* {{{ */
191: {
192: HashTable *target = va_arg(args, HashTable*);
193: zend_bool is_ref;
194: zval *tmp;
195:
196: if (Z_TYPE_PP(p) & (IS_LEXICAL_VAR|IS_LEXICAL_REF)) {
197: is_ref = Z_TYPE_PP(p) & IS_LEXICAL_REF;
198:
199: if (!EG(active_symbol_table)) {
200: zend_rebuild_symbol_table(TSRMLS_C);
201: }
202: if (zend_hash_quick_find(EG(active_symbol_table), key->arKey, key->nKeyLength, key->h, (void **) &p) == FAILURE) {
203: if (is_ref) {
204: ALLOC_INIT_ZVAL(tmp);
205: Z_SET_ISREF_P(tmp);
206: zend_hash_quick_add(EG(active_symbol_table), key->arKey, key->nKeyLength, key->h, &tmp, sizeof(zval*), (void**)&p);
207: } else {
208: tmp = EG(uninitialized_zval_ptr);
209: zend_error(E_NOTICE,"Undefined variable: %s", key->arKey);
210: }
211: } else {
212: if (is_ref) {
213: SEPARATE_ZVAL_TO_MAKE_IS_REF(p);
214: tmp = *p;
215: } else if (Z_ISREF_PP(p)) {
216: ALLOC_INIT_ZVAL(tmp);
217: ZVAL_COPY_VALUE(tmp, *p);
218: zval_copy_ctor(tmp);
219: Z_SET_REFCOUNT_P(tmp, 0);
220: Z_UNSET_ISREF_P(tmp);
221: } else {
222: tmp = *p;
223: }
224: }
225: } else {
226: tmp = *p;
227: }
228: if (zend_hash_quick_add(target, key->arKey, key->nKeyLength, key->h, &tmp, sizeof(zval*), NULL) == SUCCESS) {
229: Z_ADDREF_P(tmp);
230: }
231: return ZEND_HASH_APPLY_KEEP;
232: }
233: /* }}} */
234:
235: /*
236: * Local variables:
237: * tab-width: 4
238: * c-basic-offset: 4
239: * indent-tabs-mode: t
240: * End:
241: */
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>
![[BACK]](/icons/cvsweb/back.gif){kind=icon}
Return to zend_variables.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