More Object Manager tests.
[wine] / dlls / shdocvw / factory.c
1 /*
2  * Implementation of class factory for IE Web Browser
3  *
4  * Copyright 2001 John R. Sheets (for CodeWeavers)
5  *
6  * This library is free software; you can redistribute it and/or
7  * modify it under the terms of the GNU Lesser General Public
8  * License as published by the Free Software Foundation; either
9  * version 2.1 of the License, or (at your option) any later version.
10  *
11  * This library is distributed in the hope that it will be useful,
12  * but WITHOUT ANY WARRANTY; without even the implied warranty of
13  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
14  * Lesser General Public License for more details.
15  *
16  * You should have received a copy of the GNU Lesser General Public
17  * License along with this library; if not, write to the Free Software
18  * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
19  */
20
21 #include <string.h>
22 #include "wine/debug.h"
23 #include "shdocvw.h"
24
25 WINE_DEFAULT_DEBUG_CHANNEL(shdocvw);
26
27 /**********************************************************************
28  * Implement the WebBrowser class factory
29  *
30  * (Based on implementation in ddraw/main.c)
31  */
32
33 /**********************************************************************
34  * WBCF_QueryInterface (IUnknown)
35  */
36 static HRESULT WINAPI WBCF_QueryInterface(LPCLASSFACTORY iface,
37                                           REFIID riid, LPVOID *ppobj)
38 {
39     TRACE("(%s %p)\n", debugstr_guid(riid), ppobj);
40
41     if (!ppobj)
42         return E_POINTER;
43
44     if(IsEqualGUID(&IID_IUnknown, riid) || IsEqualGUID(&IID_IClassFactory, riid)) {
45         *ppobj = iface;
46         return S_OK;
47     }
48
49     WARN("Not supported interface %s\n", debugstr_guid(riid));
50
51     *ppobj = NULL;
52     return E_NOINTERFACE;
53 }
54
55 /************************************************************************
56  * WBCF_AddRef (IUnknown)
57  */
58 static ULONG WINAPI WBCF_AddRef(LPCLASSFACTORY iface)
59 {
60     SHDOCVW_LockModule();
61
62     return 2; /* non-heap based object */
63 }
64
65 /************************************************************************
66  * WBCF_Release (IUnknown)
67  */
68 static ULONG WINAPI WBCF_Release(LPCLASSFACTORY iface)
69 {
70     SHDOCVW_UnlockModule();
71
72     return 1; /* non-heap based object */
73 }
74
75 /************************************************************************
76  * WBCF_CreateInstance (IClassFactory)
77  */
78 static HRESULT WINAPI WBCF_CreateInstance(LPCLASSFACTORY iface, LPUNKNOWN pOuter,
79                                           REFIID riid, LPVOID *ppobj)
80 {
81     return WebBrowser_Create(pOuter, riid, ppobj);
82 }
83
84 /************************************************************************
85  * WBCF_LockServer (IClassFactory)
86  */
87 static HRESULT WINAPI WBCF_LockServer(LPCLASSFACTORY iface, BOOL dolock)
88 {
89     TRACE("(%d)\n", dolock);
90
91     if (dolock)
92         SHDOCVW_LockModule();
93     else
94         SHDOCVW_UnlockModule();
95     
96     return S_OK;
97 }
98
99 static const IClassFactoryVtbl WBCF_Vtbl =
100 {
101     WBCF_QueryInterface,
102     WBCF_AddRef,
103     WBCF_Release,
104     WBCF_CreateInstance,
105     WBCF_LockServer
106 };
107
108 IClassFactoryImpl SHDOCVW_ClassFactory = {&WBCF_Vtbl};