Function value_set_zval

engine/value.c:76–125

Set type and value from zval. The source zval is copied and is otherwise not affected.

// Set type and value from zval. The source zval is copied and is otherwise not
// affected.
void value_set_zval(engine_value *val, zval *src) {
	int kind;

	// Determine concrete type from source zval.
	switch (Z_TYPE_P(src)) {
	case IS_NULL:   kind = KIND_NULL;   break;
	case IS_LONG:   kind = KIND_LONG;   break;
	case IS_DOUBLE: kind = KIND_DOUBLE; break;
	case CASE_BOOL: kind = KIND_BOOL;   break;
	case IS_STRING: kind = KIND_STRING; break;
	case IS_OBJECT: kind = KIND_OBJECT; break;
	case IS_ARRAY:
		kind = KIND_ARRAY;
		HashTable *h = (Z_ARRVAL_P(src));

		// Determine if array is associative or indexed. In the simplest case, a
		// associative array will have different values for the number of elements
		// and the index of the next free element. In cases where the number of
		// elements and the next free index is equal, we must iterate through
		// the hash table and check the keys themselves.
		if (h->nNumOfElements != h->nNextFreeElement) {
			kind = KIND_MAP;
			break;
		}

		unsigned long i = 0;

		for (zend_hash_internal_pointer_reset(h); i < h->nNumOfElements; i++) {
			unsigned long index;
			int type = HASH_GET_CURRENT_KEY(h, NULL, &index);

			if (type == HASH_KEY_IS_STRING || index != i) {
				kind = KIND_MAP;
				break;
			}

			zend_hash_move_forward(h);
		}

		break;
	default:
		errno = 1;
		return;
	}

	value_copy(val->internal, src);
	val->kind = kind;

	errno = 0;
}

// Set next index of array or map value.
void value_array_next_set(engine_value *arr, engine_value *val) {