--- parser3/src/classes/hash.C	2021/01/13 22:21:29	1.149
+++ parser3/src/classes/hash.C	2021/11/04 21:31:46	1.152
@@ -17,7 +17,7 @@
 #include "pa_vbool.h"
 #include "pa_vmethod_frame.h"
 
-volatile const char * IDENT_HASH_C="$Id: hash.C,v 1.149 2021/01/13 22:21:29 moko Exp $";
+volatile const char * IDENT_HASH_C="$Id: hash.C,v 1.152 2021/11/04 21:31:46 moko Exp $";
 
 // class
 
@@ -719,6 +719,24 @@ static void _reverse(Request& r, MethodP
 	r.write(result);
 }
 
+
+static void _rename(Request& r, MethodParams& params) {
+	HashStringValue& hash=GET_SELF(r, VHashBase).hash();
+
+	if(params.count()>1){
+		const String& key_from=params.as_string(0, "from key must be string");
+		const String& key_to=params.as_string(1, "to key must be string");
+
+		hash.rename(key_from, key_to);
+	} else {
+		HashStringValue* names=params.as_hash(0);
+
+		for(HashStringValue::Iterator i(*names); i; i.next())
+			hash.rename(i.key(), i.value()->as_string());
+	}
+}
+
+
 // constructor
 
 MHash::MHash(): Methoded("hash") 
@@ -770,6 +788,10 @@ MHash::MHash(): Methoded("hash")
 	// ^hash._at([-+]offset)[['key'|'value'|'hash']]
 	add_native_method("_at", Method::CT_DYNAMIC, _at, 1, 2);
 
+	// ^hash.rename[from;to]
+	// ^hash.rename[ $.from[to] ... ]
+	add_native_method("rename", Method::CT_DYNAMIC, _rename, 1, 2);
+
 #ifdef FEATURE_GET_ELEMENT4CALL
 	// aliases without "_"
 	add_native_method("keys", Method::CT_DYNAMIC, _keys, 0, 1);