- size_t i, n = impl->func->args->count;
-
- for (i = 0; i < impl->func->args->count; ++i) {
- if (impl->func->args->args[i]->def) {
- --n;
- }
- }
- return n;
-}
-
-void psi_to_int(impl_val *ret_val, decl_arg *func, zval *return_value)
-{
- switch (real_decl_type(func->type)->type) {
- case PSI_T_FLOAT:
- case PSI_T_DOUBLE:
- RETVAL_DOUBLE(deref_impl_val(0, ret_val, func)->dval);
- convert_to_long(return_value);
- break;
- default:
- RETVAL_LONG(deref_impl_val(0, ret_val, func)->lval);
- }
-}
-
-void psi_to_double(impl_val *ret_val, decl_arg *func, zval *return_value)
-{
- RETVAL_DOUBLE(deref_impl_val(0, ret_val, func)->dval);
-}
-
-void psi_to_string(impl_val *ret_val, decl_arg *func, zval *return_value)
-{
- switch (real_decl_type(func->type)->type) {
- case PSI_T_CHAR:
- case PSI_T_SINT8:
- case PSI_T_UINT8:
- if (!func->var->pointer_level) {
- char chr = ret_val->lval;
- RETVAL_STRINGL(&chr, 1);
- } else {
- ret_val = deref_impl_val(1, ret_val, func);
- if (ret_val->ptr) {
- RETVAL_STRING(ret_val->ptr);
- } else {
- RETVAL_EMPTY_STRING();
- }
- }
- break;
- case PSI_T_FLOAT:
- case PSI_T_DOUBLE:
- RETVAL_DOUBLE(deref_impl_val(0, ret_val, func)->dval);
- convert_to_string(return_value);
- break;
- default:
- RETVAL_LONG(deref_impl_val(0, ret_val, func)->lval);
- convert_to_string(return_value);
- break;
- }
-}
-
-size_t psi_t_size(token_t t)
-{
- size_t size;
-
- switch (t) {
- case PSI_T_CHAR:
- size = sizeof(char);
- break;
- case PSI_T_SINT8:
- case PSI_T_UINT8:
- size = 1;
- break;
- case PSI_T_SHORT:
- size = sizeof(short);
- break;
- case PSI_T_SINT16:
- case PSI_T_UINT16:
- size = 2;
- break;
- case PSI_T_INT:
- size = sizeof(int);
- break;
- case PSI_T_SINT32:
- case PSI_T_UINT32:
- size = 4;
- break;
- case PSI_T_LONG:
- size = sizeof(long);
- break;
- case PSI_T_SINT64:
- case PSI_T_UINT64:
- size = 8;
- break;
- case PSI_T_FLOAT:
- size = sizeof(float);
- break;
- case PSI_T_DOUBLE:
- size = sizeof(double);
- break;
- EMPTY_SWITCH_DEFAULT_CASE();
- }
- return size;
-}
-
-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_to_array(impl_val *ret_val, decl_arg *func, zval *return_value)
-{
- zval ele;
- unsigned i;
- impl_val tmp;
- token_t t = real_decl_type(func->type)->type;
-
- array_init(return_value);
- ret_val = deref_impl_val(0, ret_val, func);
- for (i = 0; i < func->var->array_size; ++i) {
- impl_val *ptr = iterate(ret_val, t, i, &tmp);
-
- switch (t) {
- case PSI_T_FLOAT:
- case PSI_T_DOUBLE:
- ZVAL_DOUBLE(&ele, ptr->dval);
- break;
- default:
- ZVAL_LONG(&ele, ptr->lval);
- break;
- }
-
- add_next_index_zval(return_value, &ele);
- }