1 /*
2 +----------------------------------------------------------------------+
3 | PHP Version 7 |
4 +----------------------------------------------------------------------+
5 | Copyright (c) 1997-2018 The PHP Group |
6 +----------------------------------------------------------------------+
7 | This source file is subject to version 3.01 of the PHP 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.php.net/license/3_01.txt |
11 | If you did not receive a copy of the PHP license and are unable to |
12 | obtain it through the world-wide-web, please send a note to |
13 | license@php.net so we can mail you a copy immediately. |
14 +----------------------------------------------------------------------+
15 | Authors: Felipe Pena <felipe@php.net> |
16 | Authors: Joe Watkins <joe.watkins@live.co.uk> |
17 | Authors: Bob Weinand <bwoebi@php.net> |
18 +----------------------------------------------------------------------+
19 */
20
21 #include "zend.h"
22
23 #include "php.h"
24 #include "phpdbg.h"
25 #include "phpdbg_opcode.h"
26 #include "phpdbg_utils.h"
27 #include "ext/standard/php_string.h"
28
29 /* FASYNC under Solaris */
30 #ifdef HAVE_SYS_FILE_H
31 # include <sys/file.h>
32 #endif
33
34 #ifdef HAVE_SYS_IOCTL_H
35 # include "sys/ioctl.h"
36 # ifndef GWINSZ_IN_SYS_IOCTL
37 # include <termios.h>
38 # endif
39 #endif
40
41 ZEND_EXTERN_MODULE_GLOBALS(phpdbg)
42
43 /* {{{ color structures */
44 const static phpdbg_color_t colors[] = {
45 PHPDBG_COLOR_D("none", "0;0"),
46
47 PHPDBG_COLOR_D("white", "0;64"),
48 PHPDBG_COLOR_D("white-bold", "1;64"),
49 PHPDBG_COLOR_D("white-underline", "4;64"),
50 PHPDBG_COLOR_D("red", "0;31"),
51 PHPDBG_COLOR_D("red-bold", "1;31"),
52 PHPDBG_COLOR_D("red-underline", "4;31"),
53 PHPDBG_COLOR_D("green", "0;32"),
54 PHPDBG_COLOR_D("green-bold", "1;32"),
55 PHPDBG_COLOR_D("green-underline", "4;32"),
56 PHPDBG_COLOR_D("yellow", "0;33"),
57 PHPDBG_COLOR_D("yellow-bold", "1;33"),
58 PHPDBG_COLOR_D("yellow-underline", "4;33"),
59 PHPDBG_COLOR_D("blue", "0;34"),
60 PHPDBG_COLOR_D("blue-bold", "1;34"),
61 PHPDBG_COLOR_D("blue-underline", "4;34"),
62 PHPDBG_COLOR_D("purple", "0;35"),
63 PHPDBG_COLOR_D("purple-bold", "1;35"),
64 PHPDBG_COLOR_D("purple-underline", "4;35"),
65 PHPDBG_COLOR_D("cyan", "0;36"),
66 PHPDBG_COLOR_D("cyan-bold", "1;36"),
67 PHPDBG_COLOR_D("cyan-underline", "4;36"),
68 PHPDBG_COLOR_D("black", "0;30"),
69 PHPDBG_COLOR_D("black-bold", "1;30"),
70 PHPDBG_COLOR_D("black-underline", "4;30"),
71 PHPDBG_COLOR_END
72 }; /* }}} */
73
74 /* {{{ */
75 const static phpdbg_element_t elements[] = {
76 PHPDBG_ELEMENT_D("prompt", PHPDBG_COLOR_PROMPT),
77 PHPDBG_ELEMENT_D("error", PHPDBG_COLOR_ERROR),
78 PHPDBG_ELEMENT_D("notice", PHPDBG_COLOR_NOTICE),
79 PHPDBG_ELEMENT_END
80 }; /* }}} */
81
phpdbg_is_numeric(const char * str)82 PHPDBG_API int phpdbg_is_numeric(const char *str) /* {{{ */
83 {
84 if (!str)
85 return 0;
86
87 for (; *str; str++) {
88 if (isspace(*str) || *str == '-') {
89 continue;
90 }
91 return isdigit(*str);
92 }
93 return 0;
94 } /* }}} */
95
phpdbg_is_empty(const char * str)96 PHPDBG_API int phpdbg_is_empty(const char *str) /* {{{ */
97 {
98 if (!str)
99 return 1;
100
101 for (; *str; str++) {
102 if (isspace(*str)) {
103 continue;
104 }
105 return 0;
106 }
107 return 1;
108 } /* }}} */
109
phpdbg_is_addr(const char * str)110 PHPDBG_API int phpdbg_is_addr(const char *str) /* {{{ */
111 {
112 return str[0] && str[1] && memcmp(str, "0x", 2) == 0;
113 } /* }}} */
114
phpdbg_is_class_method(const char * str,size_t len,char ** class,char ** method)115 PHPDBG_API int phpdbg_is_class_method(const char *str, size_t len, char **class, char **method) /* {{{ */
116 {
117 char *sep = NULL;
118
119 if (strstr(str, "#") != NULL)
120 return 0;
121
122 if (strstr(str, " ") != NULL)
123 return 0;
124
125 sep = strstr(str, "::");
126
127 if (!sep || sep == str || sep+2 == str+len-1) {
128 return 0;
129 }
130
131 if (class != NULL) {
132
133 if (str[0] == '\\') {
134 str++;
135 len--;
136 }
137
138 *class = estrndup(str, sep - str);
139 (*class)[sep - str] = 0;
140 }
141
142 if (method != NULL) {
143 *method = estrndup(sep+2, str + len - (sep + 2));
144 }
145
146 return 1;
147 } /* }}} */
148
phpdbg_resolve_path(const char * path)149 PHPDBG_API char *phpdbg_resolve_path(const char *path) /* {{{ */
150 {
151 char resolved_name[MAXPATHLEN];
152
153 if (expand_filepath(path, resolved_name) == NULL) {
154 return NULL;
155 }
156
157 return estrdup(resolved_name);
158 } /* }}} */
159
phpdbg_current_file(void)160 PHPDBG_API const char *phpdbg_current_file(void) /* {{{ */
161 {
162 const char *file = zend_get_executed_filename();
163
164 if (memcmp(file, "[no active file]", sizeof("[no active file]")) == 0) {
165 return PHPDBG_G(exec);
166 }
167
168 return file;
169 } /* }}} */
170
phpdbg_get_function(const char * fname,const char * cname)171 PHPDBG_API const zend_function *phpdbg_get_function(const char *fname, const char *cname) /* {{{ */
172 {
173 zend_function *func = NULL;
174 zend_string *lfname = zend_string_init(fname, strlen(fname), 0);
175 zend_string *tmp = zend_string_tolower(lfname);
176 zend_string_release(lfname);
177 lfname = tmp;
178
179 if (cname) {
180 zend_class_entry *ce;
181 zend_string *lcname = zend_string_init(cname, strlen(cname), 0);
182 tmp = zend_string_tolower(lcname);
183 zend_string_release(lcname);
184 lcname = tmp;
185 ce = zend_lookup_class(lcname);
186
187 zend_string_release(lcname);
188
189 if (ce) {
190 func = zend_hash_find_ptr(&ce->function_table, lfname);
191 }
192 } else {
193 func = zend_hash_find_ptr(EG(function_table), lfname);
194 }
195
196 zend_string_release(lfname);
197 return func;
198 } /* }}} */
199
phpdbg_trim(const char * str,size_t len,size_t * new_len)200 PHPDBG_API char *phpdbg_trim(const char *str, size_t len, size_t *new_len) /* {{{ */
201 {
202 const char *p = str;
203 char *new = NULL;
204
205 while (p && isspace(*p)) {
206 ++p;
207 --len;
208 }
209
210 while (*p && isspace(*(p + len -1))) {
211 --len;
212 }
213
214 if (len == 0) {
215 new = estrndup("", sizeof(""));
216 *new_len = 0;
217 } else {
218 new = estrndup(p, len);
219 *(new + len) = '\0';
220
221 if (new_len) {
222 *new_len = len;
223 }
224 }
225
226 return new;
227
228 } /* }}} */
229
phpdbg_get_color(const char * name,size_t name_length)230 PHPDBG_API const phpdbg_color_t *phpdbg_get_color(const char *name, size_t name_length) /* {{{ */
231 {
232 const phpdbg_color_t *color = colors;
233
234 while (color && color->name) {
235 if (name_length == color->name_length &&
236 memcmp(name, color->name, name_length) == SUCCESS) {
237 phpdbg_debug("phpdbg_get_color(%s, %lu): %s", name, name_length, color->code);
238 return color;
239 }
240 ++color;
241 }
242
243 phpdbg_debug("phpdbg_get_color(%s, %lu): failed", name, name_length);
244
245 return NULL;
246 } /* }}} */
247
phpdbg_set_color(int element,const phpdbg_color_t * color)248 PHPDBG_API void phpdbg_set_color(int element, const phpdbg_color_t *color) /* {{{ */
249 {
250 PHPDBG_G(colors)[element] = color;
251 } /* }}} */
252
phpdbg_set_color_ex(int element,const char * name,size_t name_length)253 PHPDBG_API void phpdbg_set_color_ex(int element, const char *name, size_t name_length) /* {{{ */
254 {
255 const phpdbg_color_t *color = phpdbg_get_color(name, name_length);
256
257 if (color) {
258 phpdbg_set_color(element, color);
259 } else PHPDBG_G(colors)[element] = colors;
260 } /* }}} */
261
phpdbg_get_colors(void)262 PHPDBG_API const phpdbg_color_t* phpdbg_get_colors(void) /* {{{ */
263 {
264 return colors;
265 } /* }}} */
266
phpdbg_get_element(const char * name,size_t len)267 PHPDBG_API int phpdbg_get_element(const char *name, size_t len) {
268 const phpdbg_element_t *element = elements;
269
270 while (element && element->name) {
271 if (len == element->name_length) {
272 if (strncasecmp(name, element->name, len) == SUCCESS) {
273 return element->id;
274 }
275 }
276 element++;
277 }
278
279 return PHPDBG_COLOR_INVALID;
280 }
281
phpdbg_set_prompt(const char * prompt)282 PHPDBG_API void phpdbg_set_prompt(const char *prompt) /* {{{ */
283 {
284 /* free formatted prompt */
285 if (PHPDBG_G(prompt)[1]) {
286 free(PHPDBG_G(prompt)[1]);
287 PHPDBG_G(prompt)[1] = NULL;
288 }
289 /* free old prompt */
290 if (PHPDBG_G(prompt)[0]) {
291 free(PHPDBG_G(prompt)[0]);
292 PHPDBG_G(prompt)[0] = NULL;
293 }
294
295 /* copy new prompt */
296 PHPDBG_G(prompt)[0] = strdup(prompt);
297 } /* }}} */
298
phpdbg_get_prompt(void)299 PHPDBG_API const char *phpdbg_get_prompt(void) /* {{{ */
300 {
301 /* find cached prompt */
302 if (PHPDBG_G(prompt)[1]) {
303 return PHPDBG_G(prompt)[1];
304 }
305
306 /* create cached prompt */
307 #ifndef HAVE_LIBEDIT
308 /* TODO: libedit doesn't seems to support coloured prompt */
309 if ((PHPDBG_G(flags) & PHPDBG_IS_COLOURED)) {
310 ZEND_IGNORE_VALUE(asprintf(&PHPDBG_G(prompt)[1], "\033[%sm%s\033[0m ",
311 PHPDBG_G(colors)[PHPDBG_COLOR_PROMPT]->code,
312 PHPDBG_G(prompt)[0]));
313 } else
314 #endif
315 {
316 ZEND_IGNORE_VALUE(asprintf(&PHPDBG_G(prompt)[1], "%s ", PHPDBG_G(prompt)[0]));
317 }
318
319 return PHPDBG_G(prompt)[1];
320 } /* }}} */
321
phpdbg_rebuild_symtable(void)322 int phpdbg_rebuild_symtable(void) {
323 if (!EG(current_execute_data) || !EG(current_execute_data)->func) {
324 phpdbg_error("inactive", "type=\"op_array\"", "No active op array!");
325 return FAILURE;
326 }
327
328 if (!zend_rebuild_symbol_table()) {
329 phpdbg_error("inactive", "type=\"symbol_table\"", "No active symbol table!");
330 return FAILURE;
331 }
332
333 return SUCCESS;
334 }
335
phpdbg_get_terminal_width(void)336 PHPDBG_API int phpdbg_get_terminal_width(void) /* {{{ */
337 {
338 int columns;
339 #ifdef _WIN32
340 CONSOLE_SCREEN_BUFFER_INFO csbi;
341
342 GetConsoleScreenBufferInfo(GetStdHandle(STD_OUTPUT_HANDLE), &csbi);
343 columns = csbi.srWindow.Right - csbi.srWindow.Left + 1;
344 #elif defined(HAVE_SYS_IOCTL_H) && defined(TIOCGWINSZ)
345 struct winsize w;
346
347 columns = ioctl(fileno(stdout), TIOCGWINSZ, &w) == 0 ? w.ws_col : 80;
348 #else
349 columns = 80;
350 #endif
351 return columns;
352 } /* }}} */
353
phpdbg_get_terminal_height(void)354 PHPDBG_API int phpdbg_get_terminal_height(void) /* {{{ */
355 {
356 int lines;
357 #ifdef _WIN32
358 CONSOLE_SCREEN_BUFFER_INFO csbi;
359
360 GetConsoleScreenBufferInfo(GetStdHandle(STD_OUTPUT_HANDLE), &csbi);
361 lines = csbi.srWindow.Bottom - csbi.srWindow.Top + 1;
362 #elif defined(HAVE_SYS_IOCTL_H) && defined(TIOCGWINSZ)
363 struct winsize w;
364
365 lines = ioctl(fileno(stdout), TIOCGWINSZ, &w) == 0 ? w.ws_row : 40;
366 #else
367 lines = 40;
368 #endif
369 return lines;
370 } /* }}} */
371
phpdbg_set_async_io(int fd)372 PHPDBG_API void phpdbg_set_async_io(int fd) {
373 #if !defined(_WIN32) && defined(FASYNC)
374 int flags;
375 fcntl(STDIN_FILENO, F_SETOWN, getpid());
376 flags = fcntl(STDIN_FILENO, F_GETFL);
377 fcntl(STDIN_FILENO, F_SETFL, flags | FASYNC);
378 #endif
379 }
380
phpdbg_safe_class_lookup(const char * name,int name_length,zend_class_entry ** ce)381 int phpdbg_safe_class_lookup(const char *name, int name_length, zend_class_entry **ce) {
382 if (PHPDBG_G(flags) & PHPDBG_IN_SIGNAL_HANDLER) {
383 char *lc_name, *lc_free;
384 int lc_length;
385
386 if (name == NULL || !name_length) {
387 return FAILURE;
388 }
389
390 lc_free = lc_name = emalloc(name_length + 1);
391 zend_str_tolower_copy(lc_name, name, name_length);
392 lc_length = name_length + 1;
393
394 if (lc_name[0] == '\\') {
395 lc_name += 1;
396 lc_length -= 1;
397 }
398
399 phpdbg_try_access {
400 *ce = zend_hash_str_find_ptr(EG(class_table), lc_name, lc_length);
401 } phpdbg_catch_access {
402 phpdbg_error("signalsegv", "class=\"%.*s\"", "Could not fetch class %.*s, invalid data source", name_length, name);
403 } phpdbg_end_try_access();
404
405 efree(lc_free);
406 } else {
407 zend_string *str_name = zend_string_init(name, name_length, 0);
408 *ce = zend_lookup_class(str_name);
409 efree(str_name);
410 }
411
412 return *ce ? SUCCESS : FAILURE;
413 }
414
phpdbg_get_property_key(char * key)415 char *phpdbg_get_property_key(char *key) {
416 if (*key != 0) {
417 return key;
418 }
419 return strchr(key + 1, 0) + 1;
420 }
421
phpdbg_parse_variable_arg_wrapper(char * name,size_t len,char * keyname,size_t keylen,HashTable * parent,zval * zv,phpdbg_parse_var_func callback)422 static int phpdbg_parse_variable_arg_wrapper(char *name, size_t len, char *keyname, size_t keylen, HashTable *parent, zval *zv, phpdbg_parse_var_func callback) {
423 return callback(name, len, keyname, keylen, parent, zv);
424 }
425
phpdbg_parse_variable(char * input,size_t len,HashTable * parent,size_t i,phpdbg_parse_var_func callback,zend_bool silent)426 PHPDBG_API int phpdbg_parse_variable(char *input, size_t len, HashTable *parent, size_t i, phpdbg_parse_var_func callback, zend_bool silent) {
427 return phpdbg_parse_variable_with_arg(input, len, parent, i, (phpdbg_parse_var_with_arg_func) phpdbg_parse_variable_arg_wrapper, NULL, silent, callback);
428 }
429
phpdbg_parse_variable_with_arg(char * input,size_t len,HashTable * parent,size_t i,phpdbg_parse_var_with_arg_func callback,phpdbg_parse_var_with_arg_func step_cb,zend_bool silent,void * arg)430 PHPDBG_API int phpdbg_parse_variable_with_arg(char *input, size_t len, HashTable *parent, size_t i, phpdbg_parse_var_with_arg_func callback, phpdbg_parse_var_with_arg_func step_cb, zend_bool silent, void *arg) {
431 int ret = FAILURE;
432 zend_bool new_index = 1;
433 char *last_index;
434 size_t index_len = 0;
435 zval *zv;
436
437 if (len < 2 || *input != '$') {
438 goto error;
439 }
440
441 while (i++ < len) {
442 if (i == len) {
443 new_index = 1;
444 } else {
445 switch (input[i]) {
446 case '[':
447 new_index = 1;
448 break;
449 case ']':
450 break;
451 case '>':
452 if (last_index[index_len - 1] == '-') {
453 new_index = 1;
454 index_len--;
455 }
456 break;
457
458 default:
459 if (new_index) {
460 last_index = input + i;
461 new_index = 0;
462 }
463 if (input[i - 1] == ']') {
464 goto error;
465 }
466 index_len++;
467 }
468 }
469
470 if (new_index && index_len == 0) {
471 zend_ulong numkey;
472 zend_string *strkey;
473 ZEND_HASH_FOREACH_KEY_PTR(parent, numkey, strkey, zv) {
474 while (Z_TYPE_P(zv) == IS_INDIRECT) {
475 zv = Z_INDIRECT_P(zv);
476 }
477
478 if (i == len || (i == len - 1 && input[len - 1] == ']')) {
479 char *key, *propkey;
480 size_t namelen, keylen;
481 char *name;
482 char *keyname = estrndup(last_index, index_len);
483 if (strkey) {
484 key = ZSTR_VAL(strkey);
485 keylen = ZSTR_LEN(strkey);
486 } else {
487 keylen = spprintf(&key, 0, ZEND_ULONG_FMT, numkey);
488 }
489 propkey = phpdbg_get_property_key(key);
490 name = emalloc(i + keylen + 2);
491 namelen = sprintf(name, "%.*s%.*s%s", (int) i, input, (int) (keylen - (propkey - key)), propkey, input[len - 1] == ']'?"]":"");
492 if (!strkey) {
493 efree(key);
494 }
495
496 ret = callback(name, namelen, keyname, index_len, parent, zv, arg) == SUCCESS || ret == SUCCESS?SUCCESS:FAILURE;
497 } else retry_ref: if (Z_TYPE_P(zv) == IS_OBJECT) {
498 if (step_cb) {
499 char *name = estrndup(input, i);
500 char *keyname = estrndup(last_index, index_len);
501
502 ret = step_cb(name, i, keyname, index_len, parent, zv, arg) == SUCCESS || ret == SUCCESS?SUCCESS:FAILURE;
503 }
504
505 phpdbg_parse_variable_with_arg(input, len, Z_OBJPROP_P(zv), i, callback, step_cb, silent, arg);
506 } else if (Z_TYPE_P(zv) == IS_ARRAY) {
507 if (step_cb) {
508 char *name = estrndup(input, i);
509 char *keyname = estrndup(last_index, index_len);
510
511 ret = step_cb(name, i, keyname, index_len, parent, zv, arg) == SUCCESS || ret == SUCCESS?SUCCESS:FAILURE;
512 }
513
514 phpdbg_parse_variable_with_arg(input, len, Z_ARRVAL_P(zv), i, callback, step_cb, silent, arg);
515 } else if (Z_ISREF_P(zv)) {
516 if (step_cb) {
517 char *name = estrndup(input, i);
518 char *keyname = estrndup(last_index, index_len);
519
520 ret = step_cb(name, i, keyname, index_len, parent, zv, arg) == SUCCESS || ret == SUCCESS?SUCCESS:FAILURE;
521 }
522
523 ZVAL_DEREF(zv);
524 goto retry_ref;
525 } else {
526 /* Ignore silently */
527 }
528 } ZEND_HASH_FOREACH_END();
529 return ret;
530 } else if (new_index) {
531 char last_chr = last_index[index_len];
532 last_index[index_len] = 0;
533 if (!(zv = zend_symtable_str_find(parent, last_index, index_len))) {
534 if (!silent) {
535 phpdbg_error("variable", "type=\"undefined\" variable=\"%.*s\"", "%.*s is undefined", (int) input[i] == ']' ? i + 1 : i, input);
536 }
537 return FAILURE;
538 }
539 while (Z_TYPE_P(zv) == IS_INDIRECT) {
540 zv = Z_INDIRECT_P(zv);
541 }
542
543 last_index[index_len] = last_chr;
544 if (i == len) {
545 char *name = estrndup(input, i);
546 char *keyname = estrndup(last_index, index_len);
547
548 ret = callback(name, i, keyname, index_len, parent, zv, arg) == SUCCESS || ret == SUCCESS?SUCCESS:FAILURE;
549 } else retry_ref_end: if (Z_TYPE_P(zv) == IS_OBJECT) {
550 if (step_cb) {
551 char *name = estrndup(input, i);
552 char *keyname = estrndup(last_index, index_len);
553
554 ret = step_cb(name, i, keyname, index_len, parent, zv, arg) == SUCCESS || ret == SUCCESS?SUCCESS:FAILURE;
555 }
556
557 parent = Z_OBJPROP_P(zv);
558 } else if (Z_TYPE_P(zv) == IS_ARRAY) {
559 if (step_cb) {
560 char *name = estrndup(input, i);
561 char *keyname = estrndup(last_index, index_len);
562
563 ret = step_cb(name, i, keyname, index_len, parent, zv, arg) == SUCCESS || ret == SUCCESS?SUCCESS:FAILURE;
564 }
565
566 parent = Z_ARRVAL_P(zv);
567 } else if (Z_ISREF_P(zv)) {
568 if (step_cb) {
569 char *name = estrndup(input, i);
570 char *keyname = estrndup(last_index, index_len);
571
572 ret = step_cb(name, i, keyname, index_len, parent, zv, arg) == SUCCESS || ret == SUCCESS?SUCCESS:FAILURE;
573 }
574
575 ZVAL_DEREF(zv);
576 goto retry_ref_end;
577 } else {
578 phpdbg_error("variable", "type=\"notiterable\" variable=\"%.*s\"", "%.*s is nor an array nor an object", (int) (input[i] == '>' ? i - 1 : i), input);
579 return FAILURE;
580 }
581 index_len = 0;
582 }
583 }
584
585 return ret;
586 error:
587 phpdbg_error("variable", "type=\"invalidinput\"", "Malformed input");
588 return FAILURE;
589 }
590
phpdbg_is_auto_global(char * name,int len)591 int phpdbg_is_auto_global(char *name, int len) {
592 return zend_is_auto_global_str(name, len);
593 }
594
phpdbg_xml_array_element_dump(zval * zv,zend_string * key,zend_ulong num)595 static int phpdbg_xml_array_element_dump(zval *zv, zend_string *key, zend_ulong num) {
596 phpdbg_xml("<element");
597
598 phpdbg_try_access {
599 if (key) { /* string key */
600 phpdbg_xml(" name=\"%.*s\"", (int) ZSTR_LEN(key), ZSTR_VAL(key));
601 } else { /* numeric key */
602 phpdbg_xml(" name=\"%ld\"", num);
603 }
604 } phpdbg_catch_access {
605 phpdbg_xml(" severity=\"error\" ></element>");
606 return 0;
607 } phpdbg_end_try_access();
608
609 phpdbg_xml(">");
610
611 phpdbg_xml_var_dump(zv);
612
613 phpdbg_xml("</element>");
614
615 return 0;
616 }
617
phpdbg_xml_object_property_dump(zval * zv,zend_string * key,zend_ulong num)618 static int phpdbg_xml_object_property_dump(zval *zv, zend_string *key, zend_ulong num) {
619 phpdbg_xml("<property");
620
621 phpdbg_try_access {
622 if (key) { /* string key */
623 const char *prop_name, *class_name;
624 int unmangle = zend_unmangle_property_name(key, &class_name, &prop_name);
625
626 if (class_name && unmangle == SUCCESS) {
627 phpdbg_xml(" name=\"%s\"", prop_name);
628 if (class_name[0] == '*') {
629 phpdbg_xml(" protection=\"protected\"");
630 } else {
631 phpdbg_xml(" class=\"%s\" protection=\"private\"", class_name);
632 }
633 } else {
634 phpdbg_xml(" name=\"%.*s\" protection=\"public\"", (int) ZSTR_LEN(key), ZSTR_VAL(key));
635 }
636 } else { /* numeric key */
637 phpdbg_xml(" name=\"%ld\" protection=\"public\"", num);
638 }
639 } phpdbg_catch_access {
640 phpdbg_xml(" severity=\"error\" ></property>");
641 return 0;
642 } phpdbg_end_try_access();
643
644 phpdbg_xml(">");
645
646 phpdbg_xml_var_dump(zv);
647
648 phpdbg_xml("</property>");
649
650 return 0;
651 }
652
653 #define COMMON (is_ref ? "&" : "")
654
phpdbg_xml_var_dump(zval * zv)655 PHPDBG_API void phpdbg_xml_var_dump(zval *zv) {
656 HashTable *myht;
657 zend_string *class_name, *key;
658 zend_ulong num;
659 zval *val;
660 int (*element_dump_func)(zval *zv, zend_string *key, zend_ulong num);
661 zend_bool is_ref = 0;
662
663 int is_temp;
664
665 phpdbg_try_access {
666 is_ref = Z_ISREF_P(zv) && GC_REFCOUNT(Z_COUNTED_P(zv)) > 1;
667 ZVAL_DEREF(zv);
668
669 switch (Z_TYPE_P(zv)) {
670 case IS_TRUE:
671 phpdbg_xml("<bool refstatus=\"%s\" value=\"true\" />", COMMON);
672 break;
673 case IS_FALSE:
674 phpdbg_xml("<bool refstatus=\"%s\" value=\"false\" />", COMMON);
675 break;
676 case IS_NULL:
677 phpdbg_xml("<null refstatus=\"%s\" />", COMMON);
678 break;
679 case IS_LONG:
680 phpdbg_xml("<int refstatus=\"%s\" value=\"" ZEND_LONG_FMT "\" />", COMMON, Z_LVAL_P(zv));
681 break;
682 case IS_DOUBLE:
683 phpdbg_xml("<float refstatus=\"%s\" value=\"%.*G\" />", COMMON, (int) EG(precision), Z_DVAL_P(zv));
684 break;
685 case IS_STRING:
686 phpdbg_xml("<string refstatus=\"%s\" length=\"%zd\" value=\"%.*s\" />", COMMON, Z_STRLEN_P(zv), (int) Z_STRLEN_P(zv), Z_STRVAL_P(zv));
687 break;
688 case IS_ARRAY:
689 myht = Z_ARRVAL_P(zv);
690 if (!(GC_FLAGS(myht) & GC_IMMUTABLE)) {
691 if (GC_IS_RECURSIVE(myht)) {
692 phpdbg_xml("<recursion />");
693 break;
694 }
695 GC_PROTECT_RECURSION(myht);
696 }
697 phpdbg_xml("<array refstatus=\"%s\" num=\"%d\">", COMMON, zend_hash_num_elements(myht));
698 element_dump_func = phpdbg_xml_array_element_dump;
699 is_temp = 0;
700 goto head_done;
701 case IS_OBJECT:
702 myht = Z_OBJDEBUG_P(zv, is_temp);
703 if (myht && GC_IS_RECURSIVE(myht)) {
704 phpdbg_xml("<recursion />");
705 break;
706 }
707
708 class_name = Z_OBJ_HANDLER_P(zv, get_class_name)(Z_OBJ_P(zv));
709 phpdbg_xml("<object refstatus=\"%s\" class=\"%.*s\" id=\"%d\" num=\"%d\">", COMMON, (int) ZSTR_LEN(class_name), ZSTR_VAL(class_name), Z_OBJ_HANDLE_P(zv), myht ? zend_hash_num_elements(myht) : 0);
710 zend_string_release(class_name);
711
712 element_dump_func = phpdbg_xml_object_property_dump;
713 head_done:
714 if (myht) {
715 ZEND_HASH_FOREACH_KEY_VAL_IND(myht, num, key, val) {
716 element_dump_func(val, key, num);
717 } ZEND_HASH_FOREACH_END();
718 zend_hash_apply_with_arguments(myht, (apply_func_args_t) element_dump_func, 0);
719 GC_UNPROTECT_RECURSION(myht);
720 if (is_temp) {
721 zend_hash_destroy(myht);
722 efree(myht);
723 }
724 }
725 if (Z_TYPE_P(zv) == IS_ARRAY) {
726 phpdbg_xml("</array>");
727 } else {
728 phpdbg_xml("</object>");
729 }
730 break;
731 case IS_RESOURCE: {
732 const char *type_name = zend_rsrc_list_get_rsrc_type(Z_RES_P(zv));
733 phpdbg_xml("<resource refstatus=\"%s\" id=\"%pd\" type=\"%s\" />", COMMON, Z_RES_P(zv)->handle, type_name ? type_name : "unknown");
734 break;
735 }
736 default:
737 break;
738 }
739 } phpdbg_end_try_access();
740 }
741
phpdbg_check_caught_ex(zend_execute_data * execute_data,zend_object * exception)742 PHPDBG_API zend_bool phpdbg_check_caught_ex(zend_execute_data *execute_data, zend_object *exception) {
743 const zend_op *op;
744 zend_op *cur;
745 uint32_t op_num, i;
746 zend_op_array *op_array = &execute_data->func->op_array;
747
748 if (execute_data->opline >= EG(exception_op) && execute_data->opline < EG(exception_op) + 3) {
749 op = EG(opline_before_exception);
750 } else {
751 op = execute_data->opline;
752 }
753
754 op_num = op - op_array->opcodes;
755
756 for (i = 0; i < op_array->last_try_catch && op_array->try_catch_array[i].try_op <= op_num; i++) {
757 uint32_t catch = op_array->try_catch_array[i].catch_op, finally = op_array->try_catch_array[i].finally_op;
758 if (op_num <= catch || op_num <= finally) {
759 if (finally) {
760 return 1;
761 }
762
763 cur = &op_array->opcodes[catch];
764 while (1) {
765 zend_class_entry *ce;
766
767 if (!(ce = CACHED_PTR(cur->extended_value & ~ZEND_LAST_CATCH))) {
768 ce = zend_fetch_class_by_name(Z_STR_P(RT_CONSTANT(cur, cur->op1)), RT_CONSTANT(cur, cur->op1) + 1, ZEND_FETCH_CLASS_NO_AUTOLOAD);
769 CACHE_PTR(cur->extended_value & ~ZEND_LAST_CATCH, ce);
770 }
771
772 if (ce == exception->ce || (ce && instanceof_function(exception->ce, ce))) {
773 return 1;
774 }
775
776 if (cur->extended_value & ZEND_LAST_CATCH) {
777 return 0;
778 }
779
780 cur = OP_JMP_ADDR(cur, cur->op2);
781 }
782
783 return 0;
784 }
785 }
786
787 return op->opcode == ZEND_CATCH;
788 }
789
phpdbg_short_zval_print(zval * zv,int maxlen)790 char *phpdbg_short_zval_print(zval *zv, int maxlen) /* {{{ */
791 {
792 char *decode = NULL;
793
794 switch (Z_TYPE_P(zv)) {
795 case IS_UNDEF:
796 decode = estrdup("");
797 break;
798 case IS_NULL:
799 decode = estrdup("null");
800 break;
801 case IS_FALSE:
802 decode = estrdup("false");
803 break;
804 case IS_TRUE:
805 decode = estrdup("true");
806 break;
807 case IS_LONG:
808 spprintf(&decode, 0, ZEND_LONG_FMT, Z_LVAL_P(zv));
809 break;
810 case IS_DOUBLE:
811 spprintf(&decode, 0, "%.*G", 14, Z_DVAL_P(zv));
812
813 /* Make sure it looks like a float */
814 if (zend_finite(Z_DVAL_P(zv)) && !strchr(decode, '.')) {
815 size_t len = strlen(decode);
816 char *decode2 = emalloc(len + strlen(".0") + 1);
817 memcpy(decode2, decode, len);
818 decode2[len] = '.';
819 decode2[len+1] = '0';
820 decode2[len+2] = '\0';
821 efree(decode);
822 decode = decode2;
823 }
824 break;
825 case IS_STRING: {
826 int i;
827 zend_string *str = php_addcslashes(Z_STR_P(zv), "\\\"\n\t\0", 5);
828 for (i = 0; i < ZSTR_LEN(str); i++) {
829 if (ZSTR_VAL(str)[i] < 32) {
830 ZSTR_VAL(str)[i] = ' ';
831 }
832 }
833 spprintf(&decode, 0, "\"%.*s\"%c",
834 ZSTR_LEN(str) <= maxlen - 2 ? (int) ZSTR_LEN(str) : (maxlen - 3),
835 ZSTR_VAL(str), ZSTR_LEN(str) <= maxlen - 2 ? 0 : '+');
836 zend_string_release(str);
837 } break;
838 case IS_RESOURCE:
839 spprintf(&decode, 0, "Rsrc #%d", Z_RES_HANDLE_P(zv));
840 break;
841 case IS_ARRAY:
842 spprintf(&decode, 0, "array(%d)", zend_hash_num_elements(Z_ARR_P(zv)));
843 break;
844 case IS_OBJECT: {
845 zend_string *str = Z_OBJCE_P(zv)->name;
846 spprintf(&decode, 0, "%.*s%c",
847 ZSTR_LEN(str) <= maxlen ? (int) ZSTR_LEN(str) : maxlen - 1,
848 ZSTR_VAL(str), ZSTR_LEN(str) <= maxlen ? 0 : '+');
849 break;
850 }
851 case IS_CONSTANT_AST: {
852 zend_ast *ast = Z_ASTVAL_P(zv);
853
854 if (ast->kind == ZEND_AST_CONSTANT
855 || ast->kind == ZEND_AST_CONSTANT_CLASS) {
856 decode = estrdup("<constant>");
857 } else {
858 decode = estrdup("<ast>");
859 }
860 break;
861 }
862 default:
863 spprintf(&decode, 0, "unknown type: %d", Z_TYPE_P(zv));
864 break;
865 }
866
867 return decode;
868 } /* }}} */
869
