parser3/src/classes/array.C - diff

Return to array.C CVS log

Up to [parser3project] / parser3 / src / classes

Diff for /parser3/src/classes/array.C between versions 1.6 and 1.7

version 1.6, 2024/09/21 01:36:32	version 1.7, 2024/09/21 15:23:23
Line 34 public:	Line 34 public:
DECLARE_CLASS_VAR(array, new MArray);	DECLARE_CLASS_VAR(array, new MArray);

const char* const PARAM_ARRAY_OR_HASH = "param must be array or hash";	const char* const PARAM_ARRAY_OR_HASH = "param must be array or hash";
const char* const PARAM_ARRAY = "param must be array";	const char* const PARAM_INDEX = "index must be integer";

// methods	// methods

enum HState {
HS_FIRST,
HS_STRING,
HS_NUMBER
};

static void _create_or_add(Request& r, MethodParams& params) {	static void _create_or_add(Request& r, MethodParams& params) {
if(params.count()) {	if(params.count()) {
Value& vsrc=params.as_no_junction(0, PARAM_ARRAY_OR_HASH);	Value& vsrc=params.as_no_junction(0, PARAM_ARRAY_OR_HASH);
Line 58 static void _create_or_add(Request& r, M	Line 52 static void _create_or_add(Request& r, M
HashStringValue* src_hash=vsrc.get_hash();	HashStringValue* src_hash=vsrc.get_hash();
if(!src_hash)	if(!src_hash)
return;	return;
HState hs=HS_FIRST;
for(HashStringValue::Iterator i(*src_hash); i; i.next()){	for(HashStringValue::Iterator i(*src_hash); i; i.next()){
if (hs==HS_STRING){	self_array.put(VArray::index(i.key()), i.value());
self_array+=i.value();
} else if(hs==HS_NUMBER){
self_array.put(VArray::index(i.key()), i.value());
} else {
try {
self_array.put(VArray::index(i.key()), i.value());
hs==HS_NUMBER;
} catch(...) {
self_array+=i.value();
hs==HS_STRING;
}
}
}	}
}	}
self.invalidate();	self.invalidate();
Line 107 static ArrayValue::Action_options get_ac	Line 88 static ArrayValue::Action_options get_ac
}	}

static void _join(Request& r, MethodParams& params) {	static void _join(Request& r, MethodParams& params) {
Value& vsrc=params.as_no_junction(0, PARAM_ARRAY);	Value& vsrc=params.as_no_junction(0, PARAM_ARRAY_OR_HASH);
ArrayValue::Action_options o=get_action_options(r, params, 1);	ArrayValue::Action_options o=get_action_options(r, params, 1);

VArray& self=GET_SELF(r, VArray);	VArray& self=GET_SELF(r, VArray);
Line 135 static void _join(Request& r, MethodPara	Line 116 static void _join(Request& r, MethodPara
self_array+=i.value();	self_array+=i.value();
}	}
}	}
self.invalidate();	} else {
} else	HashStringValue* src_hash=vsrc.get_hash();
throw Exception(PARSER_RUNTIME, 0, PARAM_ARRAY);	if(!src_hash)
	return;
	if(o.defined){
	for(HashStringValue::Iterator i(*src_hash); i; i.next()){
	if(o.offset > 0){
	o.offset--;
	continue;
	}
	if(o.limit-- == 0)
	break;
	self_array+=i.value();
	}
	} else {
	for(HashStringValue::Iterator i(*src_hash); i; i.next()){
	self_array+=i.value();
	}
	}
	}
	self.invalidate();
}	}

static void _sql(Request& r, MethodParams& params) {}	static void _sql(Request& r, MethodParams& params) {}
Line 203 static void _insert(Request& r, MethodPa	Line 202 static void _insert(Request& r, MethodPa
ArrayValue& array=self.array();	ArrayValue& array=self.array();

int count=params.count();	int count=params.count();
size_t index=VArray::index(params.as_int(0, "index must be integer", r));	size_t index=VArray::index(params.as_int(0, PARAM_INDEX, r));

for(int i=1; i<count; i++){	for(int i=1; i<count; i++){
array.insert(index+i-1, &r.process(params[i]));	array.insert(index+i-1, &r.process(params[i]));
Line 212 static void _insert(Request& r, MethodPa	Line 211 static void _insert(Request& r, MethodPa
}	}

static void _delete(Request& r, MethodParams& params) {	static void _delete(Request& r, MethodParams& params) {
	VArray& self=GET_SELF(r, VArray);
if(params.count()>0)	if(params.count()>0)
GET_SELF(r, VArray).clear(VArray::index(params.as_int(0, "index must be integer", r)));	self.array().clear(VArray::index(params.as_int(0, PARAM_INDEX, r)));
else	else
GET_SELF(r, VArray).clear();	self.array().clear();
	self.invalidate();
	}

	static void _remove(Request& r, MethodParams& params) {
	VArray& self=GET_SELF(r, VArray);
	self.array().remove(VArray::index(params.as_int(0, PARAM_INDEX, r)));
	self.invalidate();
}	}

static void _contains(Request& r, MethodParams& params) {	static void _contains(Request& r, MethodParams& params) {
VArray& self=GET_SELF(r, VArray);	VArray& self=GET_SELF(r, VArray);
bool result=self.contains(VArray::index(params.as_int(0, "index must be integer", r)));	bool result=self.contains(VArray::index(params.as_int(0, PARAM_INDEX, r)));
r.write(VBool::get(result));	r.write(VBool::get(result));
}	}

static void _for(Request& r, MethodParams& params) {	static void _for(Request& r, MethodParams& params) {
InCycle temp(r);	InCycle temp(r);

const String* value_var_name=&params.as_string(0, "value-var name must be string");	const String* key_var_name=&params.as_string(0, "key-var name must be string");
Value* body_code=&params.as_junction(1, "body must be code");	const String* value_var_name=&params.as_string(1, "value-var name must be string");
Value* delim_maybe_code=params.count()>2?&params[2]:0;	Value* body_code=&params.as_junction(2, "body must be code");
	Value* delim_maybe_code=params.count()>3 ? &params[3] : 0;
Value& caller=*r.get_method_frame()->caller();	Value& caller=*r.get_method_frame()->caller();

	if(key_var_name->is_empty()) key_var_name=0;
if(value_var_name->is_empty()) value_var_name=0;	if(value_var_name->is_empty()) value_var_name=0;

ArrayValue& array=GET_SELF(r, VArray).array();	ArrayValue& array=GET_SELF(r, VArray).array();
Line 239 static void _for(Request& r, MethodParam	Line 248 static void _for(Request& r, MethodParam
if(delim_maybe_code){ // delimiter set	if(delim_maybe_code){ // delimiter set
bool need_delim=false;	bool need_delim=false;
for(ArrayValue::Iterator i(array); i; i.next()){	for(ArrayValue::Iterator i(array); i; i.next()){
	if(key_var_name){
	VString* vkey=new VString(*new String(i.key(), String::L_TAINTED));
	r.put_element(caller, *key_var_name, vkey);
	}

if(value_var_name)	if(value_var_name)
r.put_element(caller, *value_var_name, i.value() ? i.value() : VVoid::get());	r.put_element(caller, *value_var_name, i.value() ? i.value() : VVoid::get());

Line 260 static void _for(Request& r, MethodParam	Line 274 static void _for(Request& r, MethodParam
}	}
} else {	} else {
for(ArrayValue::Iterator i(array); i; i.next()){	for(ArrayValue::Iterator i(array); i; i.next()){
	if(key_var_name){
	VString* vkey=new VString(*new String(i.key(), String::L_TAINTED));
	r.put_element(caller, *key_var_name, vkey);
	}

if(value_var_name)	if(value_var_name)
r.put_element(caller, *value_var_name, i.value() ? i.value() : VVoid::get());	r.put_element(caller, *value_var_name, i.value() ? i.value() : VVoid::get());

Line 272 static void _for(Request& r, MethodParam	Line 291 static void _for(Request& r, MethodParam
}	}

static void _foreach(Request& r, MethodParams& params) {	static void _foreach(Request& r, MethodParams& params) {
if(params[1].get_junction())
return _for(r, params);

InCycle temp(r);	InCycle temp(r);

const String* key_var_name=&params.as_string(0, "key-var name must be string");	const String* key_var_name=&params.as_string(0, "key-var name must be string");
const String* value_var_name=&params.as_string(1, "value-var name must be string");	const String* value_var_name=&params.as_string(1, "value-var name must be string");
Value* body_code=&params.as_junction(2, "body must be code");	Value* body_code=&params.as_junction(2, "body must be code");
Value* delim_maybe_code=params.count()>3?&params[3]:0;	Value* delim_maybe_code=params.count()>3 ? &params[3] : 0;
Value& caller=*r.get_method_frame()->caller();	Value& caller=*r.get_method_frame()->caller();

if(key_var_name->is_empty()) key_var_name=0;	if(key_var_name->is_empty()) key_var_name=0;
Line 618 MArray::MArray(): Methoded(VARRAY_TYPE)	Line 634 MArray::MArray(): Methoded(VARRAY_TYPE)

// ^array.append[value;value]	// ^array.append[value;value]
add_native_method("append", Method::CT_DYNAMIC, _append, 1, 10000);	add_native_method("append", Method::CT_DYNAMIC, _append, 1, 10000);

// ^array.insert[index;value...]	// ^array.insert[index;value...]
add_native_method("insert", Method::CT_DYNAMIC, _insert, 2, 10000);	add_native_method("insert", Method::CT_DYNAMIC, _insert, 2, 10000);

// ^array.delete[index]	// ^array.delete[index]
add_native_method("delete", Method::CT_DYNAMIC, _delete, 0, 1);	add_native_method("delete", Method::CT_DYNAMIC, _delete, 0, 1);
	// ^array.remove[index]
	add_native_method("remove", Method::CT_DYNAMIC, _remove, 1, 1);

// ^array.contains[index]	// ^array.contains[index]
add_native_method("contains", Method::CT_DYNAMIC, _contains, 1, 1);	add_native_method("contains", Method::CT_DYNAMIC, _contains, 1, 1);
Line 637 MArray::MArray(): Methoded(VARRAY_TYPE)	Line 654 MArray::MArray(): Methoded(VARRAY_TYPE)
// ^array._count[[all]]	// ^array._count[[all]]
add_native_method("_count", Method::CT_DYNAMIC, _count, 0, 1);	add_native_method("_count", Method::CT_DYNAMIC, _count, 0, 1);

	// ^array.for[index;value]{code}[delim]
	add_native_method("for", Method::CT_DYNAMIC, _for, 3, 3+1);
// ^array.foreach[index;value]{code}[delim]	// ^array.foreach[index;value]{code}[delim]
add_native_method("foreach", Method::CT_DYNAMIC, _foreach, 2, 2+1+1);	add_native_method("foreach", Method::CT_DYNAMIC, _foreach, 3, 3+1);

// ^array.sort[index;value]{string-key-maker}[[asc\|desc]]	// ^array.sort[index;value]{string-key-maker}[[asc\|desc]]
// ^array.sort[index;value](numeric-key-maker)[[asc\|desc]]	// ^array.sort[index;value](numeric-key-maker)[[asc\|desc]]

E-mail:

Removed from v.1.6
changed lines
	Added in v.1.7