vbscript: Added AddNamedItem implementation.
diff --git a/dlls/vbscript/vbscript.h b/dlls/vbscript/vbscript.h
index 1f6276f..9c1d35c 100644
--- a/dlls/vbscript/vbscript.h
+++ b/dlls/vbscript/vbscript.h
@@ -28,6 +28,17 @@
#include "vbscript_classes.h"
+#include "wine/list.h"
+#include "wine/unicode.h"
+
+typedef struct named_item_t {
+ IDispatch *disp;
+ DWORD flags;
+ LPWSTR name;
+
+ struct list entry;
+} named_item_t;
+
typedef struct {
IDispatchEx IDispatchEx_iface;
@@ -38,7 +49,11 @@
IActiveScriptSite *site;
LCID lcid;
+ IDispatch *host_global;
+
vbdisp_t *script_obj;
+
+ struct list named_items;
} script_ctx_t;
HRESULT init_global(script_ctx_t*);
@@ -59,3 +74,19 @@
{
return HeapFree(GetProcessHeap(), 0, mem);
}
+
+static inline LPWSTR heap_strdupW(LPCWSTR str)
+{
+ LPWSTR ret = NULL;
+
+ if(str) {
+ DWORD size;
+
+ size = (strlenW(str)+1)*sizeof(WCHAR);
+ ret = heap_alloc(size);
+ if(ret)
+ memcpy(ret, str, size);
+ }
+
+ return ret;
+}