/* ECMA-262 3rd Edition 9.2 */
HRESULT to_boolean(jsval_t val, BOOL *ret)
{
switch(jsval_type(val)) {
case JSV_UNDEFINED:
case JSV_NULL:
*ret = FALSE;
return S_OK;
case JSV_OBJECT:
*ret = get_object(val) != NULL;
return S_OK;
case JSV_STRING:
*ret = jsstr_length(get_string(val)) != 0;
return S_OK;
case JSV_NUMBER:
*ret = !isnan(get_number(val)) && get_number(val);
return S_OK;
case JSV_BOOL:
*ret = get_bool(val);
return S_OK;
case JSV_VARIANT:
FIXME("unimplemented for variant %s\n", debugstr_variant(get_variant(val)));
return E_NOTIMPL;
}
assert(0);
return E_FAIL;
}
std::string Variant::GetString() const
{
const gchar *result = nullptr;
if (!variant_)
return "";
if (g_variant_is_of_type(variant_, G_VARIANT_TYPE_STRING))
{
// g_variant_get_string doesn't duplicate the string
result = g_variant_get_string(variant_, nullptr);
}
else if (g_variant_is_of_type(variant_, G_VARIANT_TYPE("(s)")))
{
// As we're using the '&' prefix we don't need to free the string!
g_variant_get(variant_, "(&s)", &result);
}
else
{
auto const& variant = get_variant(variant_);
if (variant)
return variant.GetString();
LOG_ERROR(logger) << "You're trying to extract a 's' from a variant which is of type '"
<< g_variant_type_peek_string(g_variant_get_type(variant_)) << "'";
}
return result ? result : "";
}
HRESULT jsval_copy(jsval_t v, jsval_t *r)
{
switch(jsval_type(v)) {
case JSV_UNDEFINED:
case JSV_NULL:
case JSV_NUMBER:
case JSV_BOOL:
*r = v;
return S_OK;
case JSV_OBJECT:
if(get_object(v))
IDispatch_AddRef(get_object(v));
*r = v;
return S_OK;
case JSV_STRING: {
jsstr_addref(get_string(v));
*r = v;
return S_OK;
}
case JSV_VARIANT:
return jsval_variant(r, get_variant(v));
}
assert(0);
return E_FAIL;
}
TYPE get_numeric_value(GVariant *variant_, const char *type_str, const char *fallback_type_str)
{
GTYPE value = 0;
if (!variant_)
return static_cast<TYPE>(value);
if (g_variant_is_of_type(variant_, G_VARIANT_TYPE(type_str)))
{
g_variant_get(variant_, type_str, &value);
}
else if (g_variant_is_of_type(variant_, G_VARIANT_TYPE(fallback_type_str)))
{
g_variant_get(variant_, fallback_type_str, &value);
}
else
{
auto const& variant = get_variant(variant_);
if (variant)
return get_numeric_value<TYPE, GTYPE>(static_cast<GVariant*>(variant), type_str, fallback_type_str);
LOG_ERROR(logger) << "You're trying to extract a '" << type_str << "'"
<< " from a variant which is of type '"
<< g_variant_type_peek_string(g_variant_get_type(variant_))
<< "'";
}
return static_cast<TYPE>(value);
}
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 jsval_release(jsval_t val)
{
switch(jsval_type(val)) {
case JSV_OBJECT:
if(get_object(val))
IDispatch_Release(get_object(val));
break;
case JSV_STRING:
jsstr_release(get_string(val));
break;
case JSV_VARIANT:
VariantClear(get_variant(val));
heap_free(get_variant(val));
break;
default:
break;
}
}
HRESULT jsval_to_variant(jsval_t val, VARIANT *retv)
{
switch(jsval_type(val)) {
case JSV_UNDEFINED:
V_VT(retv) = VT_EMPTY;
return S_OK;
case JSV_NULL:
V_VT(retv) = VT_NULL;
return S_OK;
case JSV_OBJECT:
V_VT(retv) = VT_DISPATCH;
if(get_object(val))
IDispatch_AddRef(get_object(val));
V_DISPATCH(retv) = get_object(val);
return S_OK;
case JSV_STRING: {
jsstr_t *str = get_string(val);
V_VT(retv) = VT_BSTR;
if(str->length_flags & JSSTR_FLAG_NULLBSTR) {
V_BSTR(retv) = NULL;
} else {
V_BSTR(retv) = SysAllocStringLen(NULL, jsstr_length(str));
if(V_BSTR(retv))
jsstr_flush(str, V_BSTR(retv));
else
return E_OUTOFMEMORY;
}
return S_OK;
}
case JSV_NUMBER: {
double n = get_number(val);
if(is_int32(n)) {
V_VT(retv) = VT_I4;
V_I4(retv) = n;
} else {
V_VT(retv) = VT_R8;
V_R8(retv) = n;
}
return S_OK;
}
case JSV_BOOL:
V_VT(retv) = VT_BOOL;
V_BOOL(retv) = get_bool(val) ? VARIANT_TRUE : VARIANT_FALSE;
return S_OK;
case JSV_VARIANT:
V_VT(retv) = VT_EMPTY;
return VariantCopy(retv, get_variant(val));
}
assert(0);
return E_FAIL;
}
static boolean
is_blend( const struct lp_rast_state *state,
const struct cmd_block *block,
int k )
{
const struct lp_fragment_shader_variant *variant = get_variant(state, block, k);
if (variant)
return variant->key.blend.rt[0].blend_enable;
return FALSE;
}
/**
* \brief Draws the treasure.
* \param dst_surface the surface where to draw
* \param x the treasure x position on this surface
* \param y the treasure y position on this surface
*/
void Treasure::draw(Surface& dst_surface, int x, int y) {
if (sprite == NULL) {
// create the sprite only if needed (many treasures are actually never drawn)
sprite = new Sprite("entities/items");
sprite->set_current_animation(get_item_name());
sprite->set_current_direction(get_variant() - 1);
}
// draw the item
sprite->draw(dst_surface, x, y);
}
/**
* \brief Draws the treasure.
* \param dst_surface The surface where to draw.
* \param x The treasure x position on this surface.
* \param y The treasure y position on this surface.
*/
void Treasure::draw(const SurfacePtr& dst_surface, int x, int y) {
if (sprite == nullptr) {
// Create the sprite only if needed (many treasures are actually
// never drawn).
sprite = std::make_shared<Sprite>("entities/items");
sprite->set_current_animation(get_item_name());
sprite->set_current_direction(get_variant() - 1);
}
// Draw the item.
sprite->draw(dst_surface, x, y);
}
static HRESULT VBArrayConstr_value(script_ctx_t *ctx, vdisp_t *vthis, WORD flags, unsigned argc, jsval_t *argv,
jsval_t *r)
{
VBArrayInstance *vbarray;
HRESULT hres;
TRACE("\n");
switch(flags) {
case DISPATCH_METHOD:
if(argc<1 || !is_variant(argv[0]) || V_VT(get_variant(argv[0])) != (VT_ARRAY|VT_VARIANT))
return throw_type_error(ctx, JS_E_VBARRAY_EXPECTED, NULL);
return jsval_copy(argv[0], r);
case DISPATCH_CONSTRUCT:
if(argc<1 || !is_variant(argv[0]) || V_VT(get_variant(argv[0])) != (VT_ARRAY|VT_VARIANT))
return throw_type_error(ctx, JS_E_VBARRAY_EXPECTED, NULL);
hres = alloc_vbarray(ctx, NULL, &vbarray);
if(FAILED(hres))
return hres;
hres = SafeArrayCopy(V_ARRAY(get_variant(argv[0])), &vbarray->safearray);
if(FAILED(hres)) {
jsdisp_release(&vbarray->dispex);
return hres;
}
*r = jsval_obj(&vbarray->dispex);
break;
default:
FIXME("unimplemented flags: %x\n", flags);
return E_NOTIMPL;
}
return S_OK;
}
Variant Variant::GetVariant() const
{
Variant value;
if (!variant_)
return value;
value = get_variant(variant_);
if (!value)
{
LOG_ERROR(logger) << "You're trying to extract a 'v' from a variant which is of type '"
<< g_variant_type_peek_string(g_variant_get_type(variant_)) << "'";
}
return value;
}
/**
* \brief Gives the treasure to the player.
*
* Adds the item to the hero's equipment.
* The item should not be empty.
*/
void Treasure::give_to_player() const {
Debug::check_assertion(!is_found(), "This treasure was already found");
// Mark the treasure as found in the savegame.
if (is_saved()) {
game->get_savegame().set_boolean(savegame_variable, true);
}
// Give the item to the player.
EquipmentItem& item = get_item();
if (item.is_saved()) {
item.set_variant(get_variant());
}
// Notify the Lua item and the Lua map.
LuaContext& lua_context = game->get_lua_context();
lua_context.item_on_obtaining(item, *this);
lua_context.map_on_obtaining_treasure(game->get_current_map(), *this);
}
const char *debugstr_jsval(const jsval_t v)
{
switch(jsval_type(v)) {
case JSV_UNDEFINED:
return "undefined";
case JSV_NULL:
return "null";
case JSV_OBJECT:
return wine_dbg_sprintf("obj(%p)", get_object(v));
case JSV_STRING:
return wine_dbg_sprintf("str(%s)", debugstr_jsstr(get_string(v)));
case JSV_NUMBER:
return wine_dbg_sprintf("%lf", get_number(v));
case JSV_BOOL:
return get_bool(v) ? "true" : "false";
case JSV_VARIANT:
return debugstr_variant(get_variant(v));
}
assert(0);
return NULL;
}
/* ECMA-262 3rd Edition 9.3 */
HRESULT to_number(script_ctx_t *ctx, jsval_t val, double *ret)
{
switch(jsval_type(val)) {
case JSV_UNDEFINED:
*ret = NAN;
return S_OK;
case JSV_NULL:
*ret = 0;
return S_OK;
case JSV_NUMBER:
*ret = get_number(val);
return S_OK;
case JSV_STRING:
return str_to_number(get_string(val), ret);
case JSV_OBJECT: {
jsval_t prim;
HRESULT hres;
hres = to_primitive(ctx, val, &prim, HINT_NUMBER);
if(FAILED(hres))
return hres;
hres = to_number(ctx, prim, ret);
jsval_release(prim);
return hres;
}
case JSV_BOOL:
*ret = get_bool(val) ? 1 : 0;
return S_OK;
case JSV_VARIANT:
FIXME("unimplemented for variant %s\n", debugstr_variant(get_variant(val)));
return E_NOTIMPL;
};
assert(0);
return E_FAIL;
}
virtual boost::shared_ptr<T> get_ptr() const
{
if (!valid_) {
if (!(valid_variant_ || valid_lua_)) {
recalculate();
}
if (!valid_ ) {
if (valid_variant_) {
value_ = boost::shared_ptr<T>(new T(variant_value_translator<T>::variant_to_value(get_variant())));
valid_ = true;
} else if (valid_lua_){
value_ = value_lua_->get();
valid_ = true;
} else {
assert(valid_);
}
}
}
return value_;
}
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;
}
/* ECMA-262 3rd Edition 9.9 */
HRESULT to_object(script_ctx_t *ctx, jsval_t val, IDispatch **disp)
{
jsdisp_t *dispex;
HRESULT hres;
switch(jsval_type(val)) {
case JSV_STRING:
hres = create_string(ctx, get_string(val), &dispex);
if(FAILED(hres))
return hres;
*disp = to_disp(dispex);
break;
case JSV_NUMBER:
hres = create_number(ctx, get_number(val), &dispex);
if(FAILED(hres))
return hres;
*disp = to_disp(dispex);
break;
case JSV_OBJECT:
if(get_object(val)) {
*disp = get_object(val);
IDispatch_AddRef(*disp);
}else {
jsdisp_t *obj;
hres = create_object(ctx, NULL, &obj);
if(FAILED(hres))
return hres;
*disp = to_disp(obj);
}
break;
case JSV_BOOL:
hres = create_bool(ctx, get_bool(val), &dispex);
if(FAILED(hres))
return hres;
*disp = to_disp(dispex);
break;
case JSV_UNDEFINED:
case JSV_NULL:
WARN("object expected\n");
return throw_type_error(ctx, JS_E_OBJECT_EXPECTED, NULL);
case JSV_VARIANT:
switch(V_VT(get_variant(val))) {
case VT_ARRAY|VT_VARIANT:
hres = create_vbarray(ctx, V_ARRAY(get_variant(val)), &dispex);
if(FAILED(hres))
return hres;
*disp = to_disp(dispex);
break;
default:
FIXME("Unsupported %s\n", debugstr_variant(get_variant(val)));
return E_NOTIMPL;
}
break;
}
return S_OK;
}