- size_t a = psi_t_alignment(t);
- return ((s - 1) | (a - 1)) + 1;
-}
-
-static impl_val *iterate(impl_val *val, token_t t, unsigned i, impl_val *tmp)
-{
- size_t size = psi_t_size(t);
-
- memset(tmp, 0, sizeof(*tmp));
- memcpy(tmp, val->ptr + size * i, size);
- return tmp;
-}
-
-void psi_from_zval(impl_val *mem, decl_arg *spec, zval *zv, void **tmp)
-{
- decl_type *type = real_decl_type(spec->type);
-
- switch (type->type) {
- case PSI_T_FLOAT:
- mem->fval = (float) zval_get_double(zv);
- break;
- case PSI_T_DOUBLE:
- mem->dval = zval_get_double(zv);
- break;
- case PSI_T_CHAR:
- case PSI_T_SINT8:
- case PSI_T_UINT8:
- if (spec->var->pointer_level) {
- zend_string *zs = zval_get_string(zv);
- *tmp = mem->ptr = estrndup(zs->val, zs->len);
- zend_string_release(zs);
- break;
- }
- default:
- mem->zend.lval = zval_get_long(zv);
- break;
- }
-}
-
-void *psi_array_to_struct(decl_struct *s, HashTable *arr)
-{
- size_t i, j = 0, size = decl_struct_size(s);
- char *mem = ecalloc(1, size + s->args->count * sizeof(void *));
-
- for (i = 0; i < s->args->count; ++i) {
- decl_struct_layout *layout = &s->layout[i];
- decl_arg *darg = s->args->args[i];
- zval *entry = zend_hash_str_find_ind(arr, darg->var->name, strlen(darg->var->name));
-
- if (entry) {
- impl_val val;
- void *tmp = NULL;
-
- memset(&tmp, 0, sizeof(tmp));
- psi_from_zval(&val, darg, entry, &tmp);
- memcpy(mem + layout->pos, &val, layout->len);
- if (tmp) {
- ((void **)(mem + size))[j++] = tmp;
- }
- }
- }
- return mem;
-}
-
-void psi_to_array(zval *return_value, token_t t, impl_val *ret_val, decl_var *var)
-{
- zval ele;
- unsigned i;
- impl_val tmp;
-
- array_init(return_value);
-
- if (t == PSI_T_STRUCT) {
- decl_struct *s = real_decl_type(var->arg->type)->strct;
- ret_val = deref_impl_val(ret_val, var);
-
- ZEND_ASSERT(s);
- for (i = 0; i < s->args->count; ++i) {
- decl_arg *darg = s->args->args[i];
- decl_struct_layout layout = s->layout[i];
- impl_val tmp;
- zval ztmp;
- char *ptr = (char *) ret_val + layout.pos;
-
- memset(&tmp, 0, sizeof(tmp));
- memcpy(&tmp, ptr, layout.len);
- switch (real_decl_type(darg->type)->type) {
- case PSI_T_CHAR:
- if (darg->var->pointer_level) {
- psi_to_string(&ztmp, real_decl_type(darg->type)->type, &tmp, darg->var);
- break;
- }
- /* nobreak */
- case PSI_T_INT:
- case PSI_T_LONG:
- psi_to_int(&ztmp, real_decl_type(darg->type)->type, &tmp, darg->var);
- break;
- default:
- printf("t=%d\n", real_decl_type(darg->type)->type);
- abort();
- }
- add_assoc_zval(return_value, darg->var->name, &ztmp);
- }
- return;
- }
- ret_val = deref_impl_val(ret_val, var);
- for (i = 0; i < var->arg->var->array_size; ++i) {
- impl_val *ptr = iterate(ret_val, t, i, &tmp);
-
- switch (t) {
- case PSI_T_FLOAT:
- ZVAL_DOUBLE(&ele, (double) ptr->fval);
- break;
- case PSI_T_DOUBLE:
- ZVAL_DOUBLE(&ele, ptr->dval);
- break;
- default:
- ZVAL_LONG(&ele, ptr->lval);
- break;
- }
-
- add_next_index_zval(return_value, &ele);
- }
-}
-
-ZEND_RESULT_CODE psi_parse_args(zend_execute_data *execute_data, impl *impl)
-{
- impl_arg *iarg;
-
- if (!impl->func->args->count) {
- return zend_parse_parameters_none();
- }
-
- ZEND_PARSE_PARAMETERS_START(psi_num_min_args(impl), impl->func->args->count)
- nextarg:
- iarg = impl->func->args->args[_i];
- if (iarg->def) {
- Z_PARAM_OPTIONAL;
- }
- if (PSI_T_BOOL == iarg->type->type) {
- if (iarg->def) {
- iarg->val.zend.bval = iarg->def->type == PSI_T_TRUE ? 1 : 0;
- }
- Z_PARAM_BOOL(iarg->val.zend.bval);
- } else if (PSI_T_INT == iarg->type->type || PSI_T_LONG == iarg->type->type) {
- if (iarg->def) {
- iarg->val.zend.lval = zend_atol(iarg->def->text, strlen(iarg->def->text));
- }
- Z_PARAM_LONG(iarg->val.zend.lval);
- } else if (PSI_T_FLOAT == iarg->type->type || PSI_T_DOUBLE == iarg->type->type) {
- if (iarg->def) {
- iarg->val.dval = zend_strtod(iarg->def->text, NULL);
- }
- Z_PARAM_DOUBLE(iarg->val.dval);
- } else if (PSI_T_STRING == iarg->type->type) {
- struct {char *val; size_t len;} str;
- if (iarg->def) {
- /* FIXME */
- str.len = strlen(iarg->def->text) - 2;
- str.val = &iarg->def->text[1];
- }
- Z_PARAM_STR_EX(iarg->val.zend.str, 1, 0);
- if (iarg->val.zend.str) {
- zend_string_addref(iarg->val.zend.str);
- } else if (iarg->def) {
- iarg->val.zend.str = zend_string_init(str.val, str.len, 0);
- }
- } else if (PSI_T_ARRAY == iarg->type->type) {
- /* handled as _zv in let or set */
- Z_PARAM_PROLOGUE(0);
- } else {
- error_code = ZPP_ERROR_FAILURE;
- break;
- }
- iarg->_zv = _arg;
- if (_i < _max_num_args) {
- goto nextarg;
- }
- ZEND_PARSE_PARAMETERS_END_EX(return FAILURE);