--- parser3/src/classes/array.C	2024/10/26 00:21:02	1.24
+++ parser3/src/classes/array.C	2024/10/26 18:53:36	1.26
@@ -17,7 +17,7 @@
 #include "pa_vbool.h"
 #include "pa_vmethod_frame.h"
 
-volatile const char * IDENT_ARRAY_C="$Id: array.C,v 1.24 2024/10/26 00:21:02 moko Exp $";
+volatile const char * IDENT_ARRAY_C="$Id: array.C,v 1.26 2024/10/26 18:53:36 moko Exp $";
 
 // class
 
@@ -38,7 +38,7 @@ const char* const PARAM_INDEX = "index m
 
 // methods
 
-static void _create_or_add(Request& r, MethodParams& params) {
+static void _copy_or_add(Request& r, MethodParams& params) {
 	if(params.count()) {
 		Value& vsrc=params.as_no_junction(0, PARAM_ARRAY_OR_HASH);
 		VArray& self=GET_SELF(r, VArray);
@@ -608,15 +608,20 @@ static void _count(Request& r, MethodPar
 	r.write(*new VInt(array.used()));
 }
 
-static void _append(Request& r, MethodParams& params) {
+static void _create_or_append(Request& r, MethodParams& params) {
 	ArrayValue& array=GET_SELF(r, VArray).array();
 
 	int count=params.count();
 
-	for(int i=0; i<count; i++){
-		array+=&r.process(params[i]);
+	if(array.count()){
+		for(int i=0; i<count; i++)
+			array+=&r.process(params[i]);
+		array.invalidate();
+	} else {
+		for(int i=0; i<count; i++)
+			array+=&r.process(params[i]);
+		array.confirm_all_used();
 	}
-	array.invalidate();
 }
 
 static void _insert(Request& r, MethodParams& params) {
@@ -856,7 +861,7 @@ static void _sort(Request& r, MethodPara
 		for(pos=0; pos<count; pos++)
 			array+=seq[pos].array_data;
 
-	array.invalidate();
+	array.confirm_all_used();
 	delete[] seq;
 }
 
@@ -873,8 +878,7 @@ static Value& SingleElementHash(String::
 }
 
 static void _at(Request& r, MethodParams& params) {
-	VArray& self=GET_SELF(r, VArray);
-	ArrayValue& array=self.array();
+	ArrayValue& array=GET_SELF(r, VArray).array();
 	size_t count=array.used(); // not array.count()
 
 	int pos=0;
@@ -910,10 +914,10 @@ static void _at(Request& r, MethodParams
 					r.write(*new VString(*new String(pa_uitoa(pos), String::L_TAINTED)));
 					break;
 				case AtResultTypeValue:
-					r.write(*array[pos]);
+					r.write(*array.get(pos));
 					break;
 				case AtResultTypeHash:
-					r.write(SingleElementHash(pa_uitoa(pos), array[pos]));
+					r.write(SingleElementHash(pa_uitoa(pos), array.get(pos)));
 					break;
 			}
 		} else {
@@ -1044,7 +1048,9 @@ static void _compact(Request& r, MethodP
 			compact_undef=true;
 		}
 	}
-	GET_SELF(r, VArray).array().compact(compact_undef);
+	ArrayValue& array=GET_SELF(r, VArray).array();
+	array.compact(compact_undef);
+	array.confirm_all_used();
 }
 
 
@@ -1053,16 +1059,16 @@ static void _compact(Request& r, MethodP
 MArray::MArray(): Methoded(VARRAY_TYPE) {
 
 	// ^array::copy[[copy_from]]
-	add_native_method("copy", Method::CT_DYNAMIC, _create_or_add, 0, 1);
+	add_native_method("copy", Method::CT_DYNAMIC, _copy_or_add, 0, 1);
 	// ^array.add[add_from]
-	add_native_method("add", Method::CT_DYNAMIC, _create_or_add, 1, 1);
+	add_native_method("add", Method::CT_DYNAMIC, _copy_or_add, 1, 1);
 	// ^array.join[join_from[;options]]
 	add_native_method("join", Method::CT_DYNAMIC, _join, 1, 2);
 
 	// ^array::create[value;value]
-	add_native_method("create", Method::CT_DYNAMIC, _append, 0, 10000);
+	add_native_method("create", Method::CT_DYNAMIC, _create_or_append, 0, 10000);
 	// ^array.append[value;value]
-	add_native_method("append", Method::CT_DYNAMIC, _append, 1, 10000);
+	add_native_method("append", Method::CT_DYNAMIC, _create_or_append, 1, 10000);
 	// ^array.insert[index;value...]
 	add_native_method("insert", Method::CT_DYNAMIC, _insert, 2, 10000);