/* {{{ proto array class_implements(mixed what [, bool autoload ])
 Return all classes and interfaces implemented by SPL */
PHP_FUNCTION(class_implements)
{
	zval *obj;
	zend_bool autoload = 1;
	zend_class_entry **ce;
	
	if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "z|b", &obj, &autoload) == FAILURE) {
		RETURN_FALSE;
	}
	if (Z_TYPE_P(obj) != IS_OBJECT && Z_TYPE_P(obj) != IS_STRING) {
		php_error_docref(NULL TSRMLS_CC, E_WARNING, "object or string expected");
		RETURN_FALSE;
	}
	if (Z_TYPE_P(obj) == IS_STRING) {
		int found;
		if (!autoload) {
			char *lc_name;

			lc_name = do_alloca(Z_STRLEN_P(obj) + 1);
			zend_str_tolower_copy(lc_name, Z_STRVAL_P(obj), Z_STRLEN_P(obj));
	
			found = zend_hash_find(EG(class_table), lc_name, Z_STRLEN_P(obj) +1, (void **) &ce);
			free_alloca(lc_name);
		} else {
	 		found = zend_lookup_class(Z_STRVAL_P(obj), Z_STRLEN_P(obj) , &ce TSRMLS_CC);
	 	}
	 	if (found != SUCCESS) {
 			php_error_docref(NULL TSRMLS_CC, E_WARNING, "Error while loading class %s", Z_STRVAL_P(obj));
			RETURN_FALSE;
		}
	} else {
		*ce = Z_OBJCE_P(obj);
	}
	
	array_init(return_value);
	spl_add_interfaces(return_value, *ce, 1, ZEND_ACC_INTERFACE TSRMLS_CC);
}
/* }}} */