array.c

PHP_FUNCTION(array_to_associative) {

    zval *array;

    char *key_name;

    uint key_len;

    HashPosition pos;

    zval **operand;

    char *string_key;

    uint string_key_len;

    zval **entry;

    uint data_type;

    ulong num_key;

    HashPosition data_pos;

    zval **data;

    zend_fcall_info fci = empty_fcall_info;

    zend_fcall_info_cache fci_cache = empty_fcall_info_cache;

    zend_bool have_callback = 0;

    zval *retval = NULL;

    if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "as|f", &array, &key_name, &key_len, &fci, &fci_cache) == FAILURE) {

        return;

    }

    array_init(return_value);

    /*

                    array_init(retval);

     */

    if (ZEND_NUM_ARGS() > 2) {

        have_callback = 1;

        fci.no_separation = 0;

        fci.retval_ptr_ptr = &retval;

        fci.param_count = 1;

    }

    for (zend_hash_internal_pointer_reset_ex(Z_ARRVAL_P(array), &pos);

            zend_hash_get_current_data_ex(Z_ARRVAL_P(array), (void **) &operand, &pos) == SUCCESS;

            zend_hash_move_forward_ex(Z_ARRVAL_P(array), &pos)

            ) {

        zval_add_ref(operand);

        if (Z_TYPE_PP(operand) != IS_ARRAY) {

            php_error_docref(NULL TSRMLS_CC, E_WARNING, "An error occurred the second dimensional must be array!");

            return;

        }

        /*******callback*******/

        if (have_callback == 1) {

            fci.params = &operand;

            if (zend_call_function(&fci, &fci_cache TSRMLS_CC) != SUCCESS || !retval) {

                php_error_docref(NULL TSRMLS_CC, E_WARNING, "An error occurred while invoking the associative callback");

                RETURN_NULL();

            }

        } else {

            retval = *operand;

        }

        for (zend_hash_internal_pointer_reset_ex(Z_ARRVAL_P(*operand), &data_pos);

                zend_hash_get_current_data_ex(Z_ARRVAL_P(*operand), (void **) &entry, &data_pos) == SUCCESS;

                zend_hash_move_forward_ex(Z_ARRVAL_P(*operand), &data_pos)

                ) {

            zval_add_ref(entry);

            zend_hash_get_current_key_ex(Z_ARRVAL_P(*operand), &string_key, &string_key_len, &num_key, 0, &data_pos);

            /*

                        php_printf("%s/n", string_key);

             */

            zend_hash_get_current_data_ex(Z_ARRVAL_P(*entry), (void **) &data, &data_pos);

            data_type = Z_TYPE_PP(data);

            /*

                        php_printf("%d/n", data_type);

             */

            if (strcmp(string_key, key_name) == 0) {

                switch (data_type) {

                    case IS_STRING:

                        /*

                                                php_printf("%s/n", Z_STRVAL_PP(data));

                         */

                        zend_hash_update(Z_ARRVAL_P(return_value), Z_STRVAL_PP(data), Z_STRLEN_PP(data) + 1, &retval, sizeof (zval *), NULL);

                        break;

                    case IS_LONG:

                        /*

                                                php_printf("%d/n", Z_LVAL_PP(data));

                         */

                        zend_hash_index_update(Z_ARRVAL_P(return_value), Z_LVAL_PP(data), &retval, sizeof (zval *), NULL);

                        break;

                    case IS_DOUBLE:

                        /*

                                                php_printf("%5.5f/n", Z_DVAL_PP(data));

                         */

                        zend_hash_index_update(Z_ARRVAL_P(return_value), Z_DVAL_PP(data), &retval, sizeof (zval *), NULL);

                        break;

                }

                break;

            }

        }

    }

}

basic_functions.c

PHP_FE(array_to_associative,arginfo_array_to_associative)

ZEND_BEGIN_ARG_INFO(arginfo_array_to_associative, 0)

ZEND_ARG_INFO(0, arg) /* ARRAY_INFO(0, arg, 0) */

ZEND_ARG_INFO(0, key_name)

ZEND_END_ARG_INFO()

php_array.h

PHP_FUNCTION(array_to_associative);