reactos/wine
1
0
Fork 0
mirror of https://github.com/reactos/wine.git synced 2024-11-25 12:49:45 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

vbscript: Added class compiler implementation.

Browse Source
This commit is contained in:
Jacek Caban 2011-09-15 14:17:17 +02:00 committed by Alexandre Julliard
parent 80ad3a23fa
commit e8797c29b5
2 changed files with 82 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

75
dlls/vbscript/compile.c
View File

@ -47,6 +47,8 @@ typedef struct {
function_t *func;
function_t *funcs;
function_decl_t *func_decls;
class_desc_t *classes;
} compile_ctx_t;
static HRESULT compile_expression(compile_ctx_t*,expression_t*);
@ -779,8 +781,44 @@ static HRESULT create_function(compile_ctx_t *ctx, function_decl_t *decl, functi
return S_OK;
}
static BOOL lookup_class_name(compile_ctx_t *ctx, const WCHAR *name)
{
class_desc_t *iter;
for(iter = ctx->classes; iter; iter = iter->next) {
if(!strcmpiW(iter->name, name))
return TRUE;
}
return FALSE;
}
static HRESULT compile_class(compile_ctx_t *ctx, class_decl_t *class_decl)
{
class_desc_t *class_desc;
if(lookup_dim_decls(ctx, class_decl->name) || lookup_funcs_name(ctx, class_decl->name)
|| lookup_class_name(ctx, class_decl->name)) {
FIXME("%s: redefinition\n", debugstr_w(class_decl->name));
return E_FAIL;
}
class_desc = compiler_alloc(ctx->code, sizeof(*class_desc));
if(!class_desc)
return E_OUTOFMEMORY;
class_desc->name = compiler_alloc_string(ctx->code, class_decl->name);
if(!class_desc->name)
return E_OUTOFMEMORY;
class_desc->next = ctx->classes;
ctx->classes = class_desc;
return S_OK;
}
static BOOL lookup_script_identifier(script_ctx_t *script, const WCHAR *identifier)
{
class_desc_t *class;
dynamic_var_t *var;
function_t *func;
@ -794,11 +832,17 @@ static BOOL lookup_script_identifier(script_ctx_t *script, const WCHAR *identifi
return TRUE;
}
for(class = script->classes; class; class = class->next) {
if(!strcmpiW(class->name, identifier))
return TRUE;
}
return FALSE;
}
static HRESULT check_script_collisions(compile_ctx_t *ctx, script_ctx_t *script)
{
class_desc_t *class;
dynamic_var_t *var;
function_t *func;
@ -816,6 +860,13 @@ static HRESULT check_script_collisions(compile_ctx_t *ctx, script_ctx_t *script)
}
}
for(class = ctx->classes; class; class = class->next) {
if(lookup_script_identifier(script, class->name)) {
FIXME("%s: redefined\n", debugstr_w(class->name));
return E_FAIL;
}
}
return S_OK;
}
@ -891,6 +942,7 @@ HRESULT compile_script(script_ctx_t *script, const WCHAR *src, vbscode_t **ret)
{
function_t *new_func;
function_decl_t *func_decl;
class_decl_t *class_decl;
compile_ctx_t ctx;
vbscode_t *code;
HRESULT hres;
@ -907,6 +959,7 @@ HRESULT compile_script(script_ctx_t *script, const WCHAR *src, vbscode_t **ret)
ctx.func_decls = NULL;
ctx.global_vars = NULL;
ctx.dim_decls = NULL;
ctx.classes = NULL;
ctx.labels = NULL;
ctx.labels_cnt = ctx.labels_size = 0;
@ -927,6 +980,14 @@ HRESULT compile_script(script_ctx_t *script, const WCHAR *src, vbscode_t **ret)
ctx.funcs = new_func;
}
for(class_decl = ctx.parser.class_decls; class_decl; class_decl = class_decl->next) {
hres = compile_class(&ctx, class_decl);
if(FAILED(hres)) {
release_compiler(&ctx);
return hres;
}
}
hres = check_script_collisions(&ctx, script);
if(FAILED(hres)) {
release_compiler(&ctx);
@ -949,6 +1010,20 @@ HRESULT compile_script(script_ctx_t *script, const WCHAR *src, vbscode_t **ret)
script->global_funcs = ctx.funcs;
}
if(ctx.classes) {
class_desc_t *class = ctx.classes;
while(1) {
class->ctx = script;
if(!class->next)
break;
class = class->next;
}
class->next = script->classes;
script->classes = ctx.classes;
}
if(TRACE_ON(vbscript_disas))
dump_code(&ctx);

7
dlls/vbscript/vbscript.h
View File

@ -55,6 +55,12 @@ typedef struct named_item_t {
struct list entry;
} named_item_t;
typedef struct _class_desc_t {
const WCHAR *name;
script_ctx_t *ctx;
struct _class_desc_t *next;
} class_desc_t;
typedef struct {
IDispatchEx IDispatchEx_iface;
@ -98,6 +104,7 @@ struct _script_ctx_t {
dynamic_var_t *global_vars;
function_t *global_funcs;
class_desc_t *classes;
struct list code_list;
struct list named_items;