vbscript: Added IRegExp2 stub.

.gitignore

@@ -138,6 +138,7 @@ dlls/vbscript/parser.tab.c
 dlls/vbscript/parser.tab.h
 dlls/vbscript/vbscript_classes.h
 dlls/vbscript/vbsglobal.h
+dlls/vbscript/vbsregexp55.h
 dlls/wbemprox/wql.tab.c
 dlls/wbemprox/wql.tab.h
 dlls/windowscodecs/windowscodecs_wincodec.h

dlls/vbscript/Makefile.in

@@ -8,6 +8,7 @@ C_SRCS = \
 	interp.c \
 	lex.c \
 	vbdisp.c \
+	vbregexp.c \
 	vbscript.c \
 	vbscript_main.c
 
@@ -18,7 +19,8 @@ RC_SRCS = vbscript.rc
 
 IDL_H_SRCS = \
 	vbscript_classes.idl \
-	vbsglobal.idl
+	vbsglobal.idl \
+	vbsregexp55.idl
 
 IDL_TLB_SRCS = \
 	vbsglobal.idl \

dlls/vbscript/vbscript.h

@@ -357,6 +357,7 @@ static inline BOOL is_int32(double d)
 }
 
 HRESULT WINAPI VBScriptFactory_CreateInstance(IClassFactory*,IUnknown*,REFIID,void**) DECLSPEC_HIDDEN;
+HRESULT WINAPI VBScriptRegExpFactory_CreateInstance(IClassFactory*,IUnknown*,REFIID,void**) DECLSPEC_HIDDEN;
 
 const char *debugstr_variant(const VARIANT*) DECLSPEC_HIDDEN;
 

dlls/vbscript/vbscript_main.c

@@ -24,6 +24,7 @@
 #include "rpcproxy.h"
 #include "vbscript_classes.h"
 #include "vbsglobal.h"
+#include "vbsregexp55.h"
 
 #include "wine/debug.h"
 
@@ -257,6 +258,16 @@ static const IClassFactoryVtbl VBScriptFactoryVtbl = {
 
 static IClassFactory VBScriptFactory = { &VBScriptFactoryVtbl };
 
+static const IClassFactoryVtbl VBScriptRegExpFactoryVtbl = {
+    ClassFactory_QueryInterface,
+    ClassFactory_AddRef,
+    ClassFactory_Release,
+    VBScriptRegExpFactory_CreateInstance,
+    ClassFactory_LockServer
+};
+
+static IClassFactory VBScriptRegExpFactory = { &VBScriptRegExpFactoryVtbl };
+
 /******************************************************************
  *              DllMain (vbscript.@)
  */
@@ -287,6 +298,9 @@ HRESULT WINAPI DllGetClassObject(REFCLSID rclsid, REFIID riid, LPVOID *ppv)
     if(IsEqualGUID(&CLSID_VBScript, rclsid)) {
         TRACE("(CLSID_VBScript %s %p)\n", debugstr_guid(riid), ppv);
         return IClassFactory_QueryInterface(&VBScriptFactory, riid, ppv);
+    }else if(IsEqualGUID(&CLSID_VBScriptRegExp, rclsid)) {
+        TRACE("(CLSID_VBScriptRegExp %s %p)\n", debugstr_guid(riid), ppv);
+        return IClassFactory_QueryInterface(&VBScriptRegExpFactory, riid, ppv);
     }
 
     FIXME("%s %s %p\n", debugstr_guid(rclsid), debugstr_guid(riid), ppv);