Added get_debug_type as new function

ext/standard/basic_functions.c

@@ -487,6 +487,7 @@ static const zend_function_entry basic_functions[] = { /* {{{ */
 	PHP_FE(strval,															arginfo_strval)
 	PHP_FE(boolval,															arginfo_boolval)
 	PHP_FE(gettype,															arginfo_gettype)
+	PHP_FE(get_debug_type,													arginfo_get_debug_type)
 	PHP_FE(settype,															arginfo_settype)
 	PHP_FE(is_null,															arginfo_is_null)
 	PHP_FE(is_resource,														arginfo_is_resource)

ext/standard/basic_functions.stub.php

@@ -1366,6 +1366,9 @@ function socket_set_timeout($socket, int $seconds, int $microseconds = 0): bool
 /** @param mixed $var */
 function gettype($var): string {}
 
+/** @param mixed $var */
+function get_debug_type($var): string {}
+
 function settype(&$var, string $type): bool {}
 
 /** @param mixed $value */

ext/standard/basic_functions_arginfo.h

@@ -2061,6 +2061,8 @@ ZEND_BEGIN_ARG_WITH_RETURN_TYPE_INFO_EX(arginfo_gettype, 0, 1, IS_STRING, 0)
 	ZEND_ARG_INFO(0, var)
 ZEND_END_ARG_INFO()
 
+#define arginfo_get_debug_type arginfo_gettype
+
 ZEND_BEGIN_ARG_WITH_RETURN_TYPE_INFO_EX(arginfo_settype, 0, 2, _IS_BOOL, 0)
 	ZEND_ARG_INFO(1, var)
 	ZEND_ARG_TYPE_INFO(0, type, IS_STRING, 0)

ext/standard/php_type.h

@@ -22,6 +22,7 @@ PHP_FUNCTION(floatval);
 PHP_FUNCTION(strval);
 PHP_FUNCTION(boolval);
 PHP_FUNCTION(gettype);
+PHP_FUNCTION(get_debug_type);
 PHP_FUNCTION(settype);
 PHP_FUNCTION(is_null);
 PHP_FUNCTION(is_resource);

ext/standard/tests/general_functions/get_debug_type_basic.phpt

@@ -0,0 +1,57 @@
+--TEST--
+Test get_debug_type() class reading
+--FILE--
+<?php
+
+namespace Demo {
+    class ClassInNamespace {
+
+    }
+}
+
+namespace {
+    class ClassInGlobal { }
+
+    class ToBeExtended {  }
+    interface ToBeImplemented { }
+
+    $fp = fopen(__FILE__, 'r');
+
+    $fp_closed = fopen(__FILE__, 'r');
+    fclose($fp_closed);
+
+    /* tests against an object type */
+    echo get_debug_type(new ClassInGlobal()) . "\n";
+    echo get_debug_type(new Demo\ClassInNamespace()) . "\n";
+    echo get_debug_type(new class {}) . "\n";
+    echo get_debug_type(new class extends ToBeExtended {}) . "\n";
+    echo get_debug_type(new class implements ToBeImplemented {}) . "\n";
+
+    /* scalars */
+    echo get_debug_type("foo") . "\n";
+    echo get_debug_type(false) . "\n";
+    echo get_debug_type(true) . "\n";
+    echo get_debug_type(1) . "\n";
+    echo get_debug_type(1.1) . "\n";
+    echo get_debug_type([]) . "\n";
+    echo get_debug_type(null) . "\n";
+    echo get_debug_type($fp) . "\n";
+    echo get_debug_type($fp_closed) . "\n";
+
+}
+
+--EXPECT--
+ClassInGlobal
+Demo\ClassInNamespace
+class@anonymous
+ToBeExtended@anonymous
+ToBeImplemented@anonymous
+string
+bool
+bool
+int
+float
+array
+null
+resource (stream)
+resource (closed)

ext/standard/type.c

@@ -37,6 +37,52 @@ PHP_FUNCTION(gettype)
 }
 /* }}} */
 
+/* {{{ proto string get_debug_type(mixed var)
+   Returns the type of the variable resolving class names */
+PHP_FUNCTION(get_debug_type)
+{
+	zval *arg;
+	const char *name;
+
+	ZEND_PARSE_PARAMETERS_START(1, 1)
+		Z_PARAM_ZVAL(arg)
+	ZEND_PARSE_PARAMETERS_END();
+
+	switch (Z_TYPE_P(arg)) {
+		case IS_NULL:
+			RETURN_INTERNED_STR(ZSTR_KNOWN(ZEND_STR_NULL_LOWERCASE));
+		case IS_FALSE:
+		case IS_TRUE:
+			RETURN_INTERNED_STR(ZSTR_KNOWN(ZEND_STR_BOOL));
+		case IS_LONG:
+			RETURN_INTERNED_STR(ZSTR_KNOWN(ZEND_STR_INT));
+		case IS_DOUBLE:
+			RETURN_INTERNED_STR(ZSTR_KNOWN(ZEND_STR_FLOAT));
+		case IS_STRING:
+			RETURN_INTERNED_STR(ZSTR_KNOWN(ZEND_STR_STRING));
+		case IS_ARRAY:
+			RETURN_INTERNED_STR(ZSTR_KNOWN(ZEND_STR_ARRAY));
+		case IS_OBJECT:
+			if (Z_OBJ_P(arg)->ce->ce_flags & ZEND_ACC_ANON_CLASS) {
+				name = ZSTR_VAL(Z_OBJ_P(arg)->ce->name);
+				RETURN_NEW_STR(zend_string_init(name, strlen(name), 0));
+			} else {
+				RETURN_STR_COPY(Z_OBJ_P(arg)->ce->name);
+			}
+		case IS_RESOURCE:
+			name = zend_rsrc_list_get_rsrc_type(Z_RES_P(arg));
+			if (name) {
+				RETURN_NEW_STR(zend_strpprintf(0, "resource (%s)", name));
+			} else {
+				RETURN_INTERNED_STR(ZSTR_KNOWN(ZEND_STR_CLOSED_RESOURCE));
+			}
+		default:
+			RETURN_INTERNED_STR(ZSTR_KNOWN(ZEND_STR_UNKNOWN));
+	}
+}
+/* }}} */
+
+
 /* {{{ proto bool settype(mixed &var, string type)
    Set the type of the variable */
 PHP_FUNCTION(settype)