-static int apply_to_param_from_array(void *p TSRMLS_DC, int argc, va_list argv, zend_hash_key *key)
-{
- zval **zparam = p;
- unsigned j, *i = va_arg(argv, unsigned *);
- smart_str *s = va_arg(argv, smart_str *);
- char *tmp;
- size_t len;
- int tmp_len;
-
- if ((*i)++) {
- smart_str_appendc(s, ',');
- }
-
- switch (Z_TYPE_PP(zparam)) {
- case IS_NULL:
- smart_str_appends(s, "NULL");
- break;
-
- case IS_BOOL:
- smart_str_appends(s, Z_BVAL_PP(zparam) ? "t" : "f");
- break;
-
- case IS_LONG:
- smart_str_append_long(s, Z_LVAL_PP(zparam));
- break;
-
- case IS_DOUBLE:
- len = spprintf(&tmp, 0, "%F", Z_DVAL_PP(zparam));
- smart_str_appendl(s, tmp, len);
- efree(tmp);
- break;
-
- case IS_ARRAY:
- j = 0;
- smart_str_appendc(s, '{');
- zend_hash_apply_with_arguments(Z_ARRVAL_PP(zparam) TSRMLS_CC, apply_to_param_from_array, 2, &j, s);
- smart_str_appendc(s, '}');
- break;
-
- default:
- {
- SEPARATE_ZVAL(zparam);
- if (Z_TYPE_PP(zparam) != IS_STRING) {
- convert_to_string(*zparam);
- }
-
- tmp = php_addslashes(Z_STRVAL_PP(zparam), Z_STRLEN_PP(zparam), &tmp_len, 0 TSRMLS_CC);
- smart_str_appendc(s, '"');
- smart_str_appendl(s, tmp, tmp_len);
- smart_str_appendc(s, '"');
-
- if (*zparam != *((zval **) p)) {
- zval_ptr_dtor(zparam);
- }
- break;
- }
- }
-
- ++(*i);
- return ZEND_HASH_APPLY_KEEP;
-}