From c35aa01caabd59ba17e482da7c00dd2e338f041c Mon Sep 17 00:00:00 2001
From: Jacek Caban <jacek@codeweavers.com>
Date: Tue, 21 Jun 2011 16:14:04 +0200
Subject: [PATCH] vbscript: Added new DLL.

---
 configure                     |  1 +
 configure.ac                  |  1 +
 dlls/vbscript/Makefile.in     |  6 +++
 dlls/vbscript/vbscript.spec   |  4 ++
 dlls/vbscript/vbscript_main.c | 85 +++++++++++++++++++++++++++++++++++
 5 files changed, 97 insertions(+)
 create mode 100644 dlls/vbscript/Makefile.in
 create mode 100644 dlls/vbscript/vbscript.spec
 create mode 100644 dlls/vbscript/vbscript_main.c

diff --git a/configure b/configure
index 92586f2956d..e6baa28118a 100755
--- a/configure
+++ b/configure
@@ -15373,6 +15373,7 @@ wine_fn_config_test dlls/usp10/tests usp10_test
 wine_fn_config_lib uuid
 wine_fn_config_dll uxtheme enable_uxtheme implib
 wine_fn_config_test dlls/uxtheme/tests uxtheme_test
+wine_fn_config_dll vbscript enable_vbscript
 wine_fn_config_dll vcomp enable_vcomp
 wine_fn_config_dll vdhcp.vxd enable_win16
 wine_fn_config_dll vdmdbg enable_vdmdbg implib
diff --git a/configure.ac b/configure.ac
index 2e20f247eae..b50d5ed1e94 100644
--- a/configure.ac
+++ b/configure.ac
@@ -2846,6 +2846,7 @@ WINE_CONFIG_TEST(dlls/usp10/tests)
 WINE_CONFIG_LIB(uuid)
 WINE_CONFIG_DLL(uxtheme,,[implib])
 WINE_CONFIG_TEST(dlls/uxtheme/tests)
+WINE_CONFIG_DLL(vbscript)
 WINE_CONFIG_DLL(vcomp)
 WINE_CONFIG_DLL(vdhcp.vxd,enable_win16)
 WINE_CONFIG_DLL(vdmdbg,,[implib])
diff --git a/dlls/vbscript/Makefile.in b/dlls/vbscript/Makefile.in
new file mode 100644
index 00000000000..7b05715412d
--- /dev/null
+++ b/dlls/vbscript/Makefile.in
@@ -0,0 +1,6 @@
+MODULE    = vbscript.dll
+
+C_SRCS = \
+	vbscript_main.c
+
+@MAKE_DLL_RULES@
diff --git a/dlls/vbscript/vbscript.spec b/dlls/vbscript/vbscript.spec
new file mode 100644
index 00000000000..b16365d0c9f
--- /dev/null
+++ b/dlls/vbscript/vbscript.spec
@@ -0,0 +1,4 @@
+@ stdcall -private DllCanUnloadNow()
+@ stdcall -private DllGetClassObject(ptr ptr ptr)
+@ stdcall -private DllRegisterServer()
+@ stdcall -private DllUnregisterServer()
diff --git a/dlls/vbscript/vbscript_main.c b/dlls/vbscript/vbscript_main.c
new file mode 100644
index 00000000000..f8b760e679f
--- /dev/null
+++ b/dlls/vbscript/vbscript_main.c
@@ -0,0 +1,85 @@
+/*
+ * Copyright 2011 Jacek Caban for CodeWeavers
+ *
+ * This library is free software; you can redistribute it and/or
+ * modify it under the terms of the GNU Lesser General Public
+ * License as published by the Free Software Foundation; either
+ * version 2.1 of the License, or (at your option) any later version.
+ *
+ * This library is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+ * Lesser General Public License for more details.
+ *
+ * You should have received a copy of the GNU Lesser General Public
+ * License along with this library; if not, write to the Free Software
+ * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
+ */
+
+#include "config.h"
+
+#include <stdarg.h>
+
+#define COBJMACROS
+
+#include "windef.h"
+#include "winbase.h"
+
+#include "wine/debug.h"
+
+WINE_DEFAULT_DEBUG_CHANNEL(vbscript);
+
+/******************************************************************
+ *              DllMain (vbscript.@)
+ */
+BOOL WINAPI DllMain(HINSTANCE hInstDLL, DWORD fdwReason, LPVOID lpv)
+{
+    TRACE("(%p %d %p)\n", hInstDLL, fdwReason, lpv);
+
+    switch(fdwReason)
+    {
+    case DLL_WINE_PREATTACH:
+        return FALSE;  /* prefer native version */
+    case DLL_PROCESS_ATTACH:
+         DisableThreadLibraryCalls(hInstDLL);
+        break;
+    }
+
+    return TRUE;
+}
+
+/***********************************************************************
+ *		DllGetClassObject	(vbscript.@)
+ */
+HRESULT WINAPI DllGetClassObject(REFCLSID rclsid, REFIID riid, LPVOID *ppv)
+{
+    FIXME("%s %s %p\n", debugstr_guid(rclsid), debugstr_guid(riid), ppv);
+    return CLASS_E_CLASSNOTAVAILABLE;
+}
+
+/***********************************************************************
+ *          DllCanUnloadNow (vbscript.@)
+ */
+HRESULT WINAPI DllCanUnloadNow(void)
+{
+    FIXME("()\n");
+    return S_FALSE;
+}
+
+/***********************************************************************
+ *          DllRegisterServer (vbscript.@)
+ */
+HRESULT WINAPI DllRegisterServer(void)
+{
+    FIXME("()\n");
+    return S_OK;
+}
+
+/***********************************************************************
+ *          DllUnregisterServer (vbscript.@)
+ */
+HRESULT WINAPI DllUnregisterServer(void)
+{
+    FIXME("()\n");
+    return S_OK;
+}
-- 
GitLab