--- parser3/src/classes/reflection.C	2020/12/31 12:08:34	1.88
+++ parser3/src/classes/reflection.C	2024/10/27 17:50:59	1.93
@@ -1,8 +1,8 @@
 /** @file
 	Parser: @b reflection parser class.
 
-	Copyright (c) 2001-2020 Art. Lebedev Studio (http://www.artlebedev.com)
-	Author: Alexandr Petrosian <paf@design.ru> (http://paf.design.ru)
+	Copyright (c) 2001-2023 Art. Lebedev Studio (http://www.artlebedev.com)
+	Authors: Konstantin Morshnev <moko@design.ru>, Alexandr Petrosian <paf@design.ru>
 */
 
 #include "pa_vmethod_frame.h"
@@ -10,7 +10,7 @@
 #include "pa_vbool.h"
 #include "pa_vobject.h"
 
-volatile const char * IDENT_REFLECTION_C="$Id: reflection.C,v 1.88 2020/12/31 12:08:34 moko Exp $";
+volatile const char * IDENT_REFLECTION_C="$Id: reflection.C,v 1.93 2024/10/27 17:50:59 moko Exp $";
 
 static const String class_type_methoded("methoded");
 
@@ -163,6 +163,15 @@ static void _class_by_name(Request& r, M
 	r.write(r.get_class_ref(class_name));
 }
 
+static void _class_alias(Request& r, MethodParams& params) {
+	const String& src_class_name=params.as_string(0, "source class_name must be string");
+	const String& new_class_name=params.as_string(1, "alias class_name must be string");
+
+	VStateless_class &src_class=r.get_class_ref(src_class_name);
+	if(!r.add_class(new_class_name.cstr(), &src_class))
+		throw Exception(PARSER_RUNTIME, &new_class_name, "class is already defined");
+}
+
 static void _base(Request& r, MethodParams& params) {
 	if(VStateless_class* vclass=params[0].get_class())
 		if(Value* base=vclass->base()){
@@ -188,7 +197,7 @@ static void _def(Request& r, MethodParam
 		// can't use get_class because it will call @autouse[] if the class wasn't loaded
 		r.write(VBool::get(r.classes().get(name)!=0));
 	} else {
-		throw Exception(PARSER_RUNTIME, &type, "is invalid type, must be '%s'", def_class.cstr());
+		throw Exception(PARSER_RUNTIME, &type, "is an invalid type, must be '%s'", def_class.cstr());
 	}
 }
 
@@ -356,7 +365,7 @@ static void _method_info(Request& r, Met
 
 		if(method->params_names)
 			for(size_t i=0; i<method->params_names->count(); i++)
-				hash->put(String::Body::Format(i), new VString(*method->params_names->get(i)));
+				hash->put(pa_uitoa(i), new VString(*method->params_names->get(i)));
 
 		if(method->extra_params)
 			hash->put(method_extra_param, new VString(*method->extra_params));
@@ -643,7 +652,7 @@ static void _stack(Request& r, MethodPar
 				}
 			}
 
-			result->put(format(index, 0), &vcurrent);
+			result->put(pa_uitoa(index), &vcurrent);
 		}
 		caller=caller->caller();
 		index++;
@@ -670,6 +679,9 @@ MReflection::MReflection(): Methoded("re
 	// ^reflection:class_by_name[class_name]
 	add_native_method("class_by_name", Method::CT_STATIC, _class_by_name, 1, 1);
 
+	// ^reflection:class_alias[class_name;new_class_name]
+	add_native_method("class_alias", Method::CT_STATIC, _class_alias, 2, 2);
+
 	// ^reflection:base_class[object]
 	add_native_method("base", Method::CT_STATIC, _base, 1, 1);