bool express_calcu(string express) {
trim(express);
if (execute_calculation_express(express)) {
copy_variant(JAVASCRIPT_VARIANT_KEYNAME_CALCULATION_RESULT,JAVASCRIPT_VARIANT_KEYNAME_FUNCTION_RESULT);
return true;
} else if (execute_function_call(express)) {
copy_variant(JAVASCRIPT_VARIANT_KEYNAME_CALCULATION_RESULT,JAVASCRIPT_VARIANT_KEYNAME_FUNCTION_RESULT);
return true;
}/* else if (execute_calculation_term(express)) { // WARNING ,it will crash because of STL lib ..
copy_variant(JAVASCRIPT_VARIANT_KEYNAME_CALCULATION_RESULT,JAVASCRIPT_VARIANT_KEYNAME_FUNCTION_RESULT);
return true;
}*/
express_type express_type_=get_express_type(express);
if (EXPRESSION_UNKNOW!=express_type_) {
if (EXPRESSION_NUMBER_DECIMAL==express_type_) {
set_variant(JAVASCRIPT_VARIANT_KEYNAME_CALCULATION_RESULT,(void*)atoi(express.c_str()),NUMBER);
} else if (EXPRESSION_NUMBER_HEX==express_type_) {
set_variant(JAVASCRIPT_VARIANT_KEYNAME_CALCULATION_RESULT,(void*)hex_string_to_number(express),NUMBER);
} else if (EXPRESSION_STRING==express_type_) {
set_variant(JAVASCRIPT_VARIANT_KEYNAME_CALCULATION_RESULT,(void*)(express.substr(1,express.length()-2)).c_str(),STRING);
} else if (EXPRESSION_ARRAY==express_type_) {
string variant_name(express.substr(0,express.find('[')));
express_calcu(express.substr(express.find('[')+1,express.find(']')-express.find('[')-1));
unsigned long array_index=0;
support_javascript_variant_type array_type=NONE;
get_variant(JAVASCRIPT_VARIANT_KEYNAME_CALCULATION_RESULT,(void*)&array_index,&array_type);
if (NUMBER!=array_index)
return false;
get_variant_array(variant_name,array_index,&array_index,&array_type);
set_variant(JAVASCRIPT_VARIANT_KEYNAME_CALCULATION_RESULT,(void*)array_index,array_type);
}
return true;
}
return false;
}
void read_argument(arg_t* arg)
{
assert(arg != NULL);
int as_value = 0;
unsigned int t1 = 0;
variant_t v1;
unsigned int t2 = 0;
init_variant(&v1);
read_token();
if (token == LEFT_BRAKET_TOKEN)
{
as_value = 1;
read_token();
}
else
{
as_value = 0;
}
if (is_value_token(token))
{
t1 = token;
copy_variant(&v1, &value);
}
else
{
fprintf(stderr, "%s:%d: error: Expected identifier or integer but got %s.\n", get_scan_file(), get_scan_line(), get_token_name(token));
result = -1;
return;
}
if (next_token == PLUS_TOKEN)
{
read_token();
assert(token == PLUS_TOKEN);
read_token();
if (is_value_token(token))
{
t2 = token;
}
else
{
fprintf(stderr, "%s:%d: error: Expected identifier or integer but got %s.\n", get_scan_file(), get_scan_line(), get_token_name(token));
result = -1;
return;
}
}
if (as_value == 1)
{
read_token();
if (token != RIGHT_BRAKET_TOKEN)
{
fprintf(stderr, "%s:%d: error: Missmatched braket.\n", get_scan_file(), get_scan_line());
result = -1;
return;
}
}
/*
0x00-0x07: register (A, B, C, X, Y, Z, I or J, in that order)
0x08-0x0f: [register]
0x10-0x17: [next word + register]
0x18: POP / [SP++]
0x19: PEEK / [SP]
0x1a: PUSH / [--SP]
0x1b: SP
0x1c: PC
0x1d: O
0x1e: [next word]
0x1f: next word (literal)
0x20-0x3f: literal value 0x00-0x1f (literal)
*/
if (is_symbolic(t1))
{
switch (t1)
{
case A_TOKEN:
if (as_value)
arg->value = 0x08;
else
arg->value = 0x00;
break;
case B_TOKEN:
if (as_value)
arg->value = 0x09;
else
arg->value = 0x01;
break;
case C_TOKEN:
if (as_value)
arg->value = 0x0A;
else
arg->value = 0x02;
break;
case X_TOKEN:
if (as_value)
arg->value = 0x0B;
else
arg->value = 0x03;
break;
case Y_TOKEN:
if (as_value)
arg->value = 0x0C;
else
arg->value = 0x04;
break;
case Z_TOKEN:
if (as_value)
arg->value = 0x0D;
else
arg->value = 0x05;
break;
case I_TOKEN:
if (as_value)
arg->value = 0x0E;
else
arg->value = 0x06;
break;
case J_TOKEN:
if (as_value)
arg->value = 0x0F;
else
arg->value = 0x07;
break;
case POP_TOKEN:
arg->value = 0x18;
break;
case PEEK_TOKEN:
arg->value = 0x19;
break;
case PUSH_TOKEN:
arg->value = 0x1A;
break;
case SP_TOKEN:
arg->value = 0x1B;
break;
case PC_TOKEN:
arg->value = 0x1C;
break;
case O_TOKEN:
arg->value = 0x1D;
break;
}
/* TODO validate that there is no offset */
}
else if (t1 == IDENTIFIER_TOKEN)
{
// for jumps we encode alwas next word
// this is since we can't resolve the target at this point
arg->value = 0x1F;
copy_variant(&arg->extra, &v1);
/* TODO validate that there is no offset */
}
else
{
assert(t1 == INTEGER_TOKEN);
assert(v1.type == UINT_TYPE);
if (as_value && t2 == 0)
{
arg->value = 0x1E;
copy_variant(&arg->extra, &v1);
}
if (!as_value && t2 == 0)
{
if (v1.ui <= 0x1F)
{
arg->value = 0x20 + v1.ui;
}
else
{
arg->value = 0x1F;
copy_variant(&arg->extra, &v1);
}
}
if (t2 != 0)
{
assert(as_value == 1);
switch (t2)
{
case A_TOKEN:
arg->value = 0x10;
break;
case B_TOKEN:
arg->value = 0x11;
break;
case C_TOKEN:
arg->value = 0x12;
break;
case X_TOKEN:
arg->value = 0x13;
break;
case Y_TOKEN:
arg->value = 0x14;
break;
case Z_TOKEN:
arg->value = 0x15;
break;
case I_TOKEN:
arg->value = 0x16;
break;
case J_TOKEN:
arg->value = 0x17;
break;
default:
assert(0 && "should never happen");
break;
}
copy_variant(&arg->extra, &v1);
}
}
}
static bool execute_calculation_express(string& express) {
long next_calculation_flag=get_next_calculation_flag(express);
if ('+'==express[next_calculation_flag]) {
string left_express(express.substr(0,next_calculation_flag));
trim(left_express);
express_type left_express_type=get_express_type(left_express);
unsigned long left_express_calcu_value=0;
support_javascript_variant_type left_express_calcu_value_type=NONE;
if (EXPRESSION_UNKNOW==left_express_type) // 12kk4+321 or +321
return false;
if (EXPRESSION_VARIANT==left_express_type) {
get_variant(left_express,(void*)&left_express_calcu_value,&left_express_calcu_value_type);
} else if (EXPRESSION_EXPRESS==left_express_type) { // (123+321)+1
if (!execute_calculation_express(left_express))
return false;
get_variant(JAVASCRIPT_VARIANT_KEYNAME_FUNCTION_RESULT,(void*)&left_express_calcu_value,&left_express_calcu_value_type);
} else if (EXPRESSION_STRING==left_express_type) { // 'AAA'+'A'
left_express=left_express.substr(1,left_express.length()-2);
}
if (NUMBER==left_express_calcu_value_type ||
EXPRESSION_NUMBER_DECIMAL==left_express_type || EXPRESSION_NUMBER_HEX==left_express_type) {
left_express_type=EXPRESSION_NUMBER_DECIMAL;
} else {
left_express_type=EXPRESSION_STRING;
}
string right_express(express.substr(next_calculation_flag+1));
trim(right_express);
express_type right_express_type=get_express_type(right_express);
unsigned long right_express_calcu_value=0;
support_javascript_variant_type right_express_calcu_value_type=NONE;
if (EXPRESSION_UNKNOW==right_express_type) // 321+12kk4 or 321+
return false;
if (EXPRESSION_VARIANT==right_express_type) {
get_variant(right_express,(void*)&right_express_calcu_value,&right_express_calcu_value_type);
} else if (EXPRESSION_EXPRESS==right_express_type) { // 123+123+123
if (!execute_calculation_express(right_express))
return false;
get_variant(JAVASCRIPT_VARIANT_KEYNAME_FUNCTION_RESULT,(void*)&right_express_calcu_value,&right_express_calcu_value_type);
} else if (EXPRESSION_STRING==right_express_type) { // 'AAA'+'A'
right_express=right_express.substr(1,right_express.length()-2);
}
if (NUMBER==right_express_calcu_value_type ||
EXPRESSION_NUMBER_DECIMAL==right_express_type || EXPRESSION_NUMBER_HEX==right_express_type) {
right_express_type=EXPRESSION_NUMBER_DECIMAL;
} else {
right_express_type=EXPRESSION_STRING;
}
// 123+123 or (123+321)+123+123 or '123'+'123' or '123'+123
if (EXPRESSION_STRING==left_express_type && EXPRESSION_STRING!=right_express_type) {
if (NONE!=right_express_calcu_value_type) {
string connect_string(left_express);
connect_string+=right_express;
set_variant(JAVASCRIPT_VARIANT_KEYNAME_FUNCTION_RESULT,(void*)connect_string.c_str(),STRING);
} else {
char conver_buffer[0x20]={0};
sprintf(conver_buffer,"%d",right_express_calcu_value);
string connect_string(left_express);
connect_string+=conver_buffer;
set_variant(JAVASCRIPT_VARIANT_KEYNAME_FUNCTION_RESULT,(void*)connect_string.c_str(),STRING);
}
} else if (EXPRESSION_STRING!=left_express_type && EXPRESSION_STRING==right_express_type) {
if (NONE==left_express_calcu_value_type) {
string connect_string(left_express);
connect_string+=right_express;
set_variant(JAVASCRIPT_VARIANT_KEYNAME_FUNCTION_RESULT,(void*)connect_string.c_str(),STRING);
} else {
char conver_buffer[0x20]={0};
sprintf(conver_buffer,"%d",left_express_calcu_value);
string connect_string(conver_buffer);
connect_string+=right_express;
set_variant(JAVASCRIPT_VARIANT_KEYNAME_FUNCTION_RESULT,(void*)connect_string.c_str(),STRING);
}
} else if (EXPRESSION_STRING==left_express_type && EXPRESSION_STRING==right_express_type) { // alloc in heap ..
//string connect_string;
unsigned long connect_string_length=0;
if (NONE!=left_express_calcu_value_type)
connect_string_length=strlen((char*)left_express_calcu_value);
else
connect_string_length=left_express.length();
if (NONE!=right_express_calcu_value_type)
connect_string_length+=strlen((char*)right_express_calcu_value);
else
connect_string_length+=right_express.length();
char* connect_string=(char*)alloc_memory(connect_string_length+1);
unsigned long copy_offset=0;
if (NONE!=left_express_calcu_value_type) {
copy_offset=strlen((char*)left_express_calcu_value);
memcpy(connect_string,(const void*)left_express_calcu_value,copy_offset);
} else {
copy_offset=left_express.length();
memcpy(connect_string,left_express.c_str(),copy_offset);
}
if (NONE!=right_express_calcu_value_type)
memcpy((void*)((unsigned long)connect_string+copy_offset),(const void*)right_express_calcu_value,strlen((char*)right_express_calcu_value));
else
memcpy((void*)((unsigned long)connect_string+copy_offset),right_express.c_str(),right_express.length());
set_variant(JAVASCRIPT_VARIANT_KEYNAME_FUNCTION_RESULT,(void*)connect_string,STRING);
} else {
long left_express_value=0;
if (NONE!=left_express_calcu_value_type) {
left_express_value=left_express_calcu_value;
} else {
if (EXPRESSION_NUMBER_HEX==left_express_calcu_value_type)
left_express_value=hex_string_to_number(left_express);
else
left_express_value=atoi(left_express.c_str());
}
long right_express_value=0;
if (NONE!=right_express_calcu_value_type) {
right_express_value=right_express_calcu_value;
} else {
if (EXPRESSION_NUMBER_HEX==right_express_calcu_value_type)
right_express_value=hex_string_to_number(right_express);
else
right_express_value=atoi(right_express.c_str());
}
left_express_value+=right_express_value;
set_variant(JAVASCRIPT_VARIANT_KEYNAME_FUNCTION_RESULT,(void*)left_express_value,NUMBER);
}
return true;
} else if ('-'==express[next_calculation_flag]) {
string left_express(express.substr(0,next_calculation_flag));
trim(left_express);
express_type left_express_type=get_express_type(left_express);
unsigned long left_express_calcu_value=0;
support_javascript_variant_type left_express_calcu_value_type=NONE;
if (EXPRESSION_UNKNOW==left_express_type)
return false;
if (EXPRESSION_EXPRESS==left_express_type || EXPRESSION_VARIANT==left_express_type) {
if (!execute_calculation_express(left_express))
return false;
get_variant(JAVASCRIPT_VARIANT_KEYNAME_FUNCTION_RESULT,(void*)&left_express_calcu_value,&left_express_calcu_value_type);
if (NUMBER==left_express_calcu_value_type)
left_express_type=EXPRESSION_NUMBER_DECIMAL;
} else if (EXPRESSION_NUMBER_HEX==left_express_type) {
left_express_calcu_value=hex_string_to_number(left_express);
} else if (EXPRESSION_NUMBER_DECIMAL==left_express_type) {
left_express_calcu_value=atoi(left_express.c_str());
}
string right_express(express.substr(next_calculation_flag+1));
trim(right_express);
express_type right_express_type=get_express_type(right_express);
unsigned long right_express_calcu_value=0;
support_javascript_variant_type right_express_calcu_value_type=NONE;
if (EXPRESSION_UNKNOW==right_express_type)
return false;
if (EXPRESSION_EXPRESS==right_express_type || EXPRESSION_VARIANT==right_express_type) {
if (!execute_calculation_express(right_express))
return false;
get_variant(JAVASCRIPT_VARIANT_KEYNAME_FUNCTION_RESULT,(void*)&right_express_calcu_value,&right_express_calcu_value_type);
if (NUMBER==right_express_calcu_value_type)
right_express_type=EXPRESSION_NUMBER_DECIMAL;
} else if (EXPRESSION_NUMBER_HEX==right_express_type) {
right_express_calcu_value=hex_string_to_number(right_express);
} else if (EXPRESSION_NUMBER_DECIMAL==right_express_type) {
right_express_calcu_value=atoi(right_express.c_str());
}
left_express_calcu_value-=right_express_calcu_value;
set_variant(JAVASCRIPT_VARIANT_KEYNAME_FUNCTION_RESULT,(void*)left_express_calcu_value,NUMBER);
return true;
} else if ('*'==express[next_calculation_flag]) {
string left_express(express.substr(0,next_calculation_flag));
trim(left_express);
express_type left_express_type=get_express_type(left_express);
unsigned long left_express_calcu_value=0;
support_javascript_variant_type left_express_calcu_value_type=NONE;
if (EXPRESSION_UNKNOW==left_express_type)
return false;
if (EXPRESSION_EXPRESS==left_express_type || EXPRESSION_VARIANT==left_express_type) {
if (!execute_calculation_express(left_express))
return false;
get_variant(JAVASCRIPT_VARIANT_KEYNAME_FUNCTION_RESULT,(void*)&left_express_calcu_value,&left_express_calcu_value_type);
if (NUMBER==left_express_calcu_value_type)
left_express_type=EXPRESSION_NUMBER_DECIMAL;
} else if (EXPRESSION_NUMBER_HEX==left_express_type) {
left_express_calcu_value=hex_string_to_number(left_express);
} else if (EXPRESSION_NUMBER_DECIMAL==left_express_type) {
left_express_calcu_value=atoi(left_express.c_str());
}
string right_express(express.substr(next_calculation_flag+1));
trim(right_express);
express_type right_express_type=get_express_type(right_express);
unsigned long right_express_calcu_value=0;
support_javascript_variant_type right_express_calcu_value_type=NONE;
if (EXPRESSION_UNKNOW==right_express_type)
return false;
if (EXPRESSION_EXPRESS==right_express_type || EXPRESSION_VARIANT==right_express_type) {
if (!execute_calculation_express(right_express))
return false;
get_variant(JAVASCRIPT_VARIANT_KEYNAME_FUNCTION_RESULT,(void*)&right_express_calcu_value,&right_express_calcu_value_type);
if (NUMBER==right_express_calcu_value_type)
right_express_type=EXPRESSION_NUMBER_DECIMAL;
} else if (EXPRESSION_NUMBER_HEX==right_express_type) {
right_express_calcu_value=hex_string_to_number(right_express);
} else if (EXPRESSION_NUMBER_DECIMAL==right_express_type) {
right_express_calcu_value=atoi(right_express.c_str());
}
left_express_calcu_value*=right_express_calcu_value;
set_variant(JAVASCRIPT_VARIANT_KEYNAME_FUNCTION_RESULT,(void*)left_express_calcu_value,NUMBER);
return true;
} else if ('/'==express[next_calculation_flag]) {
string left_express(express.substr(0,next_calculation_flag));
trim(left_express);
express_type left_express_type=get_express_type(left_express);
unsigned long left_express_calcu_value=0;
support_javascript_variant_type left_express_calcu_value_type=NONE;
if (EXPRESSION_UNKNOW==left_express_type)
return false;
if (EXPRESSION_EXPRESS==left_express_type || EXPRESSION_VARIANT==left_express_type) {
if (!execute_calculation_express(left_express))
return false;
get_variant(JAVASCRIPT_VARIANT_KEYNAME_FUNCTION_RESULT,(void*)&left_express_calcu_value,&left_express_calcu_value_type);
if (NUMBER==left_express_calcu_value_type)
left_express_type=EXPRESSION_NUMBER_DECIMAL;
} else if (EXPRESSION_NUMBER_HEX==left_express_type) {
left_express_calcu_value=hex_string_to_number(left_express);
} else if (EXPRESSION_NUMBER_DECIMAL==left_express_type) {
left_express_calcu_value=atoi(left_express.c_str());
}
string right_express(express.substr(next_calculation_flag+1));
trim(right_express);
express_type right_express_type=get_express_type(right_express);
unsigned long right_express_calcu_value=0;
support_javascript_variant_type right_express_calcu_value_type=NONE;
if (EXPRESSION_UNKNOW==right_express_type)
return false;
if (EXPRESSION_EXPRESS==right_express_type || EXPRESSION_VARIANT==right_express_type) {
if (!execute_calculation_express(right_express))
return false;
get_variant(JAVASCRIPT_VARIANT_KEYNAME_FUNCTION_RESULT,(void*)&right_express_calcu_value,&right_express_calcu_value_type);
if (NUMBER==right_express_calcu_value_type)
right_express_type=EXPRESSION_NUMBER_DECIMAL;
} else if (EXPRESSION_NUMBER_HEX==right_express_type) {
right_express_calcu_value=hex_string_to_number(right_express);
} else if (EXPRESSION_NUMBER_DECIMAL==right_express_type) {
right_express_calcu_value=atoi(right_express.c_str());
}
left_express_calcu_value/=right_express_calcu_value;
set_variant(JAVASCRIPT_VARIANT_KEYNAME_FUNCTION_RESULT,(void*)left_express_calcu_value,NUMBER);
return true;
} else if ('('==express[next_calculation_flag]) {
string resolve_express(express);
for (unsigned long left_bracket_index=resolve_express.find('(');
left_bracket_index!=INVALID_VALUE;
left_bracket_index=resolve_express.find('(')) {
unsigned long next_right_bracket=get_matching_outside_right_bracket(express,0);
if (!next_right_bracket)
return false;
if (!execute_calculation_express(resolve_express.substr(left_bracket_index+1,next_right_bracket-left_bracket_index-1)))
return false;
unsigned long express_calcu_result_value=0;
support_javascript_variant_type express_calcu_result_value_type=NONE;
get_variant(JAVASCRIPT_VARIANT_KEYNAME_FUNCTION_RESULT,(void*)&express_calcu_result_value,&express_calcu_result_value_type);
resolve_express=express.substr(0,left_bracket_index);
if (NUMBER==express_calcu_result_value_type) {
char conver_buffer[0x20]={0};
sprintf(conver_buffer,"%d",express_calcu_result_value);
resolve_express+=conver_buffer;
} else {
resolve_express+="\'";
resolve_express+=(const char*)express_calcu_result_value;
resolve_express+="\'";
}
resolve_express+=express.substr(next_right_bracket+1);
}
if (!execute_calculation_express(resolve_express))
return false;
return true;
}
if (is_exist_variant(express)) { // test_var
copy_variant(JAVASCRIPT_VARIANT_KEYNAME_FUNCTION_RESULT,express);
return true;
} else if (INVALID_VALUE!=express.find('[') && INVALID_VALUE!=express.find(']')) { // test_array
unsigned long left_brcket_index=express.find('[');
unsigned long right_brcket_index=express.find(']');
string array_name(express.substr(0,left_brcket_index));
trim(array_name);
string array_index_string(express.substr(left_brcket_index+1,right_brcket_index-left_brcket_index-1));
trim(array_index_string);
if (!express_calcu(array_index_string))
return false;
unsigned long array_index=0;
support_javascript_variant_type array_index_type=NONE;
get_variant(JAVASCRIPT_VARIANT_KEYNAME_CALCULATION_RESULT,(void*)&array_index,&array_index_type);
unsigned long array_index_data=0;
support_javascript_variant_type array_index_data_type=NONE;
get_variant_array(array_name,array_index,(void*)&array_index_data,&array_index_data_type);
set_variant(JAVASCRIPT_VARIANT_KEYNAME_FUNCTION_RESULT,(void*)array_index_data,array_index_data_type);
return true;
}
return false; // TIPS ! all bug had been debug success ..
}
bool eval(string express) {
filter_useless_char(express);
trim(express);
if (check_string("{",express.c_str()) && INVALID_VALUE!=express.find('}')) { // inside code block ..
for (unsigned long code_block_end_index=get_matching_outside_right_brace(express.substr(1),0),
code_block_start_index=express.find('{');
INVALID_VALUE!=code_block_start_index && INVALID_VALUE!=code_block_end_index;
code_block_end_index=get_matching_outside_right_brace(express.substr(1),0),
code_block_start_index=express.find('{')) {
string code_block(express.substr(code_block_start_index+1,code_block_end_index-code_block_start_index));
while (INVALID_VALUE!=code_block.find(';')) {
if (!eval(code_block.substr(0,code_block.find(';'))))
return false;
code_block=code_block.substr(code_block.find(';')+1);
}
if (!code_block_start_index)
break;
express=express.substr(0,code_block_start_index-1)+express.substr(code_block_end_index+1);
}
return true;
}
bool base_javascript_syntax_execute_result=true;
if (check_string("for",express.c_str())) { // base JavaScript syntax ..
base_javascript_syntax_execute_result=eval_for(express);
} else if (check_string("if",express.c_str())) {
base_javascript_syntax_execute_result=eval_if(express);
}
if (check_string("function",express.c_str())) {
base_javascript_syntax_execute_result=eval_decleare_function(express);
if (base_javascript_syntax_execute_result)
return eval(express);
} else if (check_string("return",express.c_str())) {
return eval_function_return(express);
}
string next_express;
if (INVALID_VALUE!=express.find(';')) { // put data ..
next_express=express.substr(express.find(';')+1);
express=express.substr(0,express.find(';'));
}
if (eval_function(express)) {
} else if (INVALID_VALUE!=express.find('=')) { // var asd=123 or var4='asd'
char calcu_flag=express[express.find('=')-1];
if ('+'==calcu_flag) {
if (INVALID_VALUE!=express.find("+=")) { // asd+=123 -> asd=asd+123
string variant_name(express.substr(0,express.find("+=")));
trim(variant_name);
if (!eval(variant_name+"="+variant_name+"+"+express.substr(express.find("+=")+2)))
return false;
}
} else if ('-'==calcu_flag) {
if (INVALID_VALUE!=express.find("-=")) { // asd+=123 -> asd=asd+123
string variant_name(express.substr(0,express.find("-=")));
trim(variant_name);
if (!eval(variant_name+"="+variant_name+"-"+express.substr(express.find("-=")+2)))
return false;
}
} else if ('*'==calcu_flag) {
if (INVALID_VALUE!=express.find("*=")) { // asd+=123 -> asd=asd+123
string variant_name(express.substr(0,express.find("*=")));
trim(variant_name);
if (!eval(variant_name+"="+variant_name+"*"+express.substr(express.find("*=")+2)))
return false;
}
} else if ('/'==calcu_flag) {
if (INVALID_VALUE!=express.find("/=")) { // asd+=123 -> asd=asd+123
string variant_name(express.substr(0,express.find("/=")));
trim(variant_name);
if (!eval(variant_name+"="+variant_name+"/"+express.substr(express.find("/=")+2)))
return false;
}
} else {
string variant_name; // asd
string calcu_express;
if (check_string("var",express.c_str())) {
if (INVALID_VALUE!=express.find('=')) {
variant_name=express.substr(3,express.find('=')-3);
calcu_express=express.substr(express.find('=')+1);
} else {
variant_name=express.substr(3,express.find(';')-3);
}
} else {
if (INVALID_VALUE!=express.find('=')) {
variant_name=express.substr(0,express.find('='));
calcu_express=express.substr(express.find('=')+1);
} else {
variant_name=express.substr(3,express.find(';')-3);
}
}
trim(variant_name);
if (!calcu_express.empty())
if (!express_calcu(calcu_express))
return false;
if (EXPRESSION_ARRAY==get_express_type(variant_name)) {
unsigned long calcu_result=0;
support_javascript_variant_type calcu_result_type=NONE;
get_variant(JAVASCRIPT_VARIANT_KEYNAME_CALCULATION_RESULT,(void*)&calcu_result,&calcu_result_type);
string array_index_express(variant_name.substr(variant_name.find('[')+1,variant_name.find(']')-variant_name.find('[')-1));
if (!express_calcu(array_index_express))
return false;
unsigned long array_index=0;
support_javascript_variant_type array_index_type=NONE;
get_variant(JAVASCRIPT_VARIANT_KEYNAME_CALCULATION_RESULT,(void*)&array_index,&array_index_type);
variant_name=variant_name.substr(0,variant_name.find('['));
trim(variant_name);
if (INT_ARRAY==get_variant_type(variant_name) && NUMBER!=calcu_result_type)
return false;
set_variant_array(variant_name,array_index,(void*)calcu_result,calcu_result_type);
} else {
copy_variant(variant_name,JAVASCRIPT_VARIANT_KEYNAME_CALCULATION_RESULT);
}
}
}
if (!next_express.empty())
return eval(next_express);
return base_javascript_syntax_execute_result;
}
bool execute_calculation_term(string& express) {
if (INVALID_VALUE!=express.find("==")) {
if (express_calcu(express.substr(0,express.find("==")))) {
copy_variant(JAVASCRIPT_VARIANT_KEYNAME_EXPRESS_LEFT_RESULT,JAVASCRIPT_VARIANT_KEYNAME_CALCULATION_RESULT);
if (express_calcu(express.substr(express.find("==")+2))) {
unsigned long left_term_data=0;
support_javascript_variant_type left_term_data_type=NONE;
unsigned long right_term_data=0;
support_javascript_variant_type right_term_data_type=NONE;
get_variant(JAVASCRIPT_VARIANT_KEYNAME_EXPRESS_LEFT_RESULT,(void*)&left_term_data,&left_term_data_type);
get_variant(JAVASCRIPT_VARIANT_KEYNAME_CALCULATION_RESULT,(void*)&right_term_data,&right_term_data_type);
if (left_term_data_type!=right_term_data_type) {
left_term_data=0;
left_term_data_type=NUMBER;
set_variant(JAVASCRIPT_VARIANT_KEYNAME_FUNCTION_RESULT,(void*)left_term_data,left_term_data_type);
} else if (NUMBER==left_term_data_type) {
if (left_term_data==right_term_data)
left_term_data=1;
else
left_term_data=0;
left_term_data_type=NUMBER;
set_variant(JAVASCRIPT_VARIANT_KEYNAME_FUNCTION_RESULT,(void*)left_term_data,left_term_data_type);
} else if (STRING==left_term_data_type) {
if (!strcmp((const char*)left_term_data,(const char*)right_term_data))
left_term_data=1;
else
left_term_data=0;
left_term_data_type=NUMBER;
set_variant(JAVASCRIPT_VARIANT_KEYNAME_FUNCTION_RESULT,(void*)left_term_data,left_term_data_type);
}
return true;
}
}
} else if (INVALID_VALUE!=express.find("!=")) {
express.replace(express.find("!="),2,"==");
if (express_calcu(express)) {
unsigned long calcu_term_value=0;
support_javascript_variant_type calcu_term_value_type=NONE;
get_variant(JAVASCRIPT_VARIANT_KEYNAME_FUNCTION_RESULT,(void*)&calcu_term_value,&calcu_term_value_type);
calcu_term_value=(calcu_term_value)?0:1;
set_variant(JAVASCRIPT_VARIANT_KEYNAME_FUNCTION_RESULT,(void*)calcu_term_value,calcu_term_value_type);
return true;
}
} else if (INVALID_VALUE!=express.find(">=")) {
express.replace(express.find(">="),2,"<");
if (express_calcu(express)) {
unsigned long calcu_term_value=0;
support_javascript_variant_type calcu_term_value_type=NONE;
get_variant(JAVASCRIPT_VARIANT_KEYNAME_FUNCTION_RESULT,(void*)&calcu_term_value,&calcu_term_value_type);
calcu_term_value=(calcu_term_value)?0:1;
set_variant(JAVASCRIPT_VARIANT_KEYNAME_FUNCTION_RESULT,(void*)calcu_term_value,calcu_term_value_type);
return true;
}
} else if (INVALID_VALUE!=express.find("<=")) {
express.replace(express.find("<="),2,">");
if (express_calcu(express)) {
unsigned long calcu_term_value=0;
support_javascript_variant_type calcu_term_value_type=NONE;
get_variant(JAVASCRIPT_VARIANT_KEYNAME_FUNCTION_RESULT,(void*)&calcu_term_value,&calcu_term_value_type);
calcu_term_value=(calcu_term_value)?0:1;
set_variant(JAVASCRIPT_VARIANT_KEYNAME_FUNCTION_RESULT,(void*)calcu_term_value,calcu_term_value_type);
return true;
}
} else if (INVALID_VALUE!=express.find("<")) {
if (express_calcu(express.substr(0,express.find('<')))) {
copy_variant(JAVASCRIPT_VARIANT_KEYNAME_EXPRESS_LEFT_RESULT,JAVASCRIPT_VARIANT_KEYNAME_CALCULATION_RESULT);
if (express_calcu(express.substr(express.find('<')+1))) {
unsigned long left_term_data=0;
support_javascript_variant_type left_term_data_type=NONE;
unsigned long right_term_data=0;
support_javascript_variant_type right_term_data_type=NONE;
get_variant(JAVASCRIPT_VARIANT_KEYNAME_EXPRESS_LEFT_RESULT,(void*)&left_term_data,&left_term_data_type);
get_variant(JAVASCRIPT_VARIANT_KEYNAME_CALCULATION_RESULT,(void*)&right_term_data,&right_term_data_type);
if (left_term_data_type==right_term_data_type && NUMBER==left_term_data_type) {
if (left_term_data<right_term_data)
left_term_data=1;
else
left_term_data=0;
left_term_data_type=NUMBER;
set_variant(JAVASCRIPT_VARIANT_KEYNAME_FUNCTION_RESULT,(void*)left_term_data,left_term_data_type);
return true;
}
}
}
} else if (INVALID_VALUE!=express.find(">")) {
if (express_calcu(express.substr(0,express.find('>')))) {
copy_variant(JAVASCRIPT_VARIANT_KEYNAME_EXPRESS_LEFT_RESULT,JAVASCRIPT_VARIANT_KEYNAME_CALCULATION_RESULT);
if (express_calcu(express.substr(express.find('>')+1))) {
unsigned long left_term_data=0;
support_javascript_variant_type left_term_data_type=NONE;
unsigned long right_term_data=0;
support_javascript_variant_type right_term_data_type=NONE;
get_variant(JAVASCRIPT_VARIANT_KEYNAME_EXPRESS_LEFT_RESULT,(void*)&left_term_data,&left_term_data_type);
get_variant(JAVASCRIPT_VARIANT_KEYNAME_CALCULATION_RESULT,(void*)&right_term_data,&right_term_data_type);
if (left_term_data_type==right_term_data_type && NUMBER==left_term_data_type) {
if (left_term_data>right_term_data)
left_term_data=1;
else
left_term_data=0;
left_term_data_type=NUMBER;
set_variant(JAVASCRIPT_VARIANT_KEYNAME_FUNCTION_RESULT,(void*)left_term_data,left_term_data_type);
return true;
}
}
}
} else {
if (!express.empty()) {
if (express_calcu(express)) {
unsigned long calcu_term_value=0;
support_javascript_variant_type calcu_term_value_type=NONE;
get_variant(JAVASCRIPT_VARIANT_KEYNAME_CALCULATION_RESULT,(void*)&calcu_term_value,&calcu_term_value_type);
if (calcu_term_value)
return true;
}
}
}
return false;
}
