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.5 and 1.7

version 1.5, 2024/09/20 01:13:50	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_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 50 static void _create_or_add(Request& r, M	Line 45 static void _create_or_add(Request& r, M
ArrayValue& self_array=self.array();	ArrayValue& self_array=self.array();

if(VArray* src=dynamic_cast<VArray*>(&vsrc)) {	if(VArray* src=dynamic_cast<VArray*>(&vsrc)) {
if(src==&self) // same: doing nothing	if(src==&self)
return;	throw Exception(PARSER_RUNTIME, 0, "source and destination are the same array");
self_array.append(src->array());	self_array.append(src->array());
} else {	} else {
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());	self.invalidate();
} else {	}
try {	}
self_array.put(VArray::index(i.key()), i.value());
hs==HS_NUMBER;	static ArrayValue::Action_options get_action_options(Request& r, MethodParams& params, size_t options_index) {
} catch(...) {	ArrayValue::Action_options result;
self_array+=i.value();	if(params.count() <= options_index)
hs==HS_STRING;	return result;

	HashStringValue* options=params.as_hash(options_index);
	if(!options)
	return result;

	result.defined=true;
	int valid_options=0;

	if(Value* voffset=options->get(sql_offset_name)) {
	valid_options++;
	result.offset=r.process(*voffset).as_int();
	}
	if(Value* vlimit=options->get(sql_limit_name)) {
	valid_options++;
	result.limit=r.process(*vlimit).as_int();
	}

	if(valid_options!=options->count())
	throw Exception(PARSER_RUNTIME, 0, CALLED_WITH_INVALID_OPTION);

	return result;
	}

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

	VArray& self=GET_SELF(r, VArray);
	ArrayValue& self_array=self.array();

	if(VArray* src=dynamic_cast<VArray*>(&vsrc)) {
	if(src==&self)
	throw Exception(PARSER_RUNTIME, 0, "source and destination are the same array");

	if(o.defined){
	for(ArrayValue::Iterator i(src->array()); i; i.next()){
	if(i.value()){
	if(o.offset > 0){
	o.offset--;
	continue;
}	}
	if(o.limit-- == 0)
	break;
	self_array+=i.value();
}	}
}	}
	} else {
	for(ArrayValue::Iterator i(src->array()); i; i.next()){
	if(i.value())
	self_array+=i.value();
	}
	}
	} else {
	HashStringValue* src_hash=vsrc.get_hash();
	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();
}	}
	self.invalidate();
}	}

static void _sql(Request& r, MethodParams& params) {}	static void _sql(Request& r, MethodParams& params) {}
Line 141 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 150 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 177 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 198 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 210 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 542 MArray::MArray(): Methoded(VARRAY_TYPE)	Line 620 MArray::MArray(): Methoded(VARRAY_TYPE)
add_native_method("create", Method::CT_DYNAMIC, _create_or_add, 0, 1);	add_native_method("create", Method::CT_DYNAMIC, _create_or_add, 0, 1);
// ^array.add[add_from]	// ^array.add[add_from]
add_native_method("add", Method::CT_DYNAMIC, _create_or_add, 1, 1);	add_native_method("add", Method::CT_DYNAMIC, _create_or_add, 1, 1);
	// ^array.join[join_from[;options]]
	add_native_method("join", Method::CT_DYNAMIC, _join, 1, 2);

// ^array.sub[sub_from]	// ^array.sub[sub_from]
add_native_method("sub", Method::CT_DYNAMIC, _sub, 1, 1);	add_native_method("sub", Method::CT_DYNAMIC, _sub, 1, 1);
Line 554 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 573 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.5
changed lines
	Added in v.1.7