urlmon/tests: Don't bother testing unimplemented functions to reduce test output.
[wine] / dlls / msxml3 / factory.c
1 /*
2  *    MSXML Class Factory
3  *
4  * Copyright 2002 Lionel Ulmer
5  * Copyright 2005 Mike McCormack
6  *
7  * This library is free software; you can redistribute it and/or
8  * modify it under the terms of the GNU Lesser General Public
9  * License as published by the Free Software Foundation; either
10  * version 2.1 of the License, or (at your option) any later version.
11  *
12  * This library is distributed in the hope that it will be useful,
13  * but WITHOUT ANY WARRANTY; without even the implied warranty of
14  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
15  * Lesser General Public License for more details.
16  *
17  * You should have received a copy of the GNU Lesser General Public
18  * License along with this library; if not, write to the Free Software
19  * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
20  */
21
22 #define COBJMACROS
23
24 #include "config.h"
25
26 #include <stdarg.h>
27 #include "windef.h"
28 #include "winbase.h"
29 #include "winuser.h"
30 #include "ole2.h"
31 #include "msxml.h"
32 #include "xmldom.h"
33 #include "msxml2.h"
34
35 /* undef the #define in msxml2 so that we can access the v.2 version
36    independent CLSID as well as the v.3 one. */
37 #undef CLSID_DOMDocument
38
39 #include "wine/debug.h"
40
41 #include "msxml_private.h"
42
43 WINE_DEFAULT_DEBUG_CHANNEL(msxml);
44
45 typedef HRESULT (*fnCreateInstance)(IUnknown *pUnkOuter, LPVOID *ppObj);
46
47 /******************************************************************************
48  * MSXML ClassFactory
49  */
50 typedef struct _xmlcf
51 {
52     const struct IClassFactoryVtbl *lpVtbl;
53     fnCreateInstance pfnCreateInstance;
54 } xmlcf;
55
56 static inline xmlcf *impl_from_IClassFactory( IClassFactory *iface )
57 {
58     return (xmlcf *)((char*)iface - FIELD_OFFSET(xmlcf, lpVtbl));
59 }
60
61 static HRESULT WINAPI xmlcf_QueryInterface(
62     IClassFactory *iface,
63     REFIID riid,
64     LPVOID *ppobj )
65 {
66     if (IsEqualGUID(riid, &IID_IUnknown) ||
67         IsEqualGUID(riid, &IID_IClassFactory))
68     {
69         IClassFactory_AddRef( iface );
70         *ppobj = iface;
71         return S_OK;
72     }
73
74     FIXME("interface %s not implemented\n", debugstr_guid(riid));
75     return E_NOINTERFACE;
76 }
77
78 static ULONG WINAPI xmlcf_AddRef(
79     IClassFactory *iface )
80 {
81     return 2;
82 }
83
84 static ULONG WINAPI xmlcf_Release(
85     IClassFactory *iface )
86 {
87     return 1;
88 }
89
90 static HRESULT WINAPI xmlcf_CreateInstance(
91     IClassFactory *iface,
92     LPUNKNOWN pOuter,
93     REFIID riid,
94     LPVOID *ppobj )
95 {
96     xmlcf *This = impl_from_IClassFactory( iface );
97     HRESULT r;
98     IUnknown *punk;
99     
100     TRACE("%p %s %p\n", pOuter, debugstr_guid(riid), ppobj );
101
102     *ppobj = NULL;
103
104     if (pOuter)
105         return CLASS_E_NOAGGREGATION;
106
107     r = This->pfnCreateInstance( pOuter, (LPVOID*) &punk );
108     if (FAILED(r))
109         return r;
110
111     r = IUnknown_QueryInterface( punk, riid, ppobj );
112     IUnknown_Release( punk );
113     return r;
114 }
115
116 static HRESULT WINAPI xmlcf_LockServer(
117     IClassFactory *iface,
118     BOOL dolock)
119 {
120     FIXME("(%p)->(%d),stub!\n",iface,dolock);
121     return S_OK;
122 }
123
124 static const struct IClassFactoryVtbl xmlcf_vtbl =
125 {
126     xmlcf_QueryInterface,
127     xmlcf_AddRef,
128     xmlcf_Release,
129     xmlcf_CreateInstance,
130     xmlcf_LockServer
131 };
132
133 static xmlcf domdoccf = { &xmlcf_vtbl, DOMDocument_create };
134 static xmlcf schemacf = { &xmlcf_vtbl, SchemaCache_create };
135 static xmlcf xmldoccf = { &xmlcf_vtbl, XMLDocument_create };
136 static xmlcf saxreadcf = { &xmlcf_vtbl, SAXXMLReader_create };
137 static xmlcf httpreqcf = { &xmlcf_vtbl, XMLHTTPRequest_create };
138
139 /******************************************************************
140  *              DllGetClassObject (MSXML3.@)
141  */
142 HRESULT WINAPI DllGetClassObject( REFCLSID rclsid, REFIID iid, LPVOID *ppv )
143 {
144     IClassFactory *cf = NULL;
145
146     TRACE("%s %s %p\n", debugstr_guid(rclsid), debugstr_guid(iid), ppv );
147
148     if( IsEqualCLSID( rclsid, &CLSID_DOMDocument ) ||   /* Version indep. v 2.x */
149         IsEqualCLSID( rclsid, &CLSID_DOMDocument2 ) ||  /* Version indep. v 3.0 */
150         IsEqualCLSID( rclsid, &CLSID_DOMDocument30 )||  /* Version dep.   v 3.0 */
151         IsEqualCLSID( rclsid, &CLSID_DOMDocument40 ))   /* Version dep.   v 4.0 */
152     {
153         cf = (IClassFactory*) &domdoccf.lpVtbl;
154     }
155     else if( IsEqualCLSID( rclsid, &CLSID_XMLSchemaCache ) ||
156              IsEqualCLSID( rclsid, &CLSID_XMLSchemaCache30 ) )
157     {
158         cf = (IClassFactory*) &schemacf.lpVtbl;
159     }
160     else if( IsEqualCLSID( rclsid, &CLSID_XMLDocument ) )
161     {
162         cf = (IClassFactory*) &xmldoccf.lpVtbl;
163     }
164     else if( IsEqualCLSID( rclsid, &CLSID_DOMFreeThreadedDocument ) ||   /* Version indep. v 2.x */
165              IsEqualCLSID( rclsid, &CLSID_FreeThreadedDOMDocument ) ||
166              IsEqualCLSID( rclsid, &CLSID_FreeThreadedDOMDocument30 ))
167     {
168         cf = (IClassFactory*) &domdoccf.lpVtbl;
169     }
170     else if( IsEqualCLSID( rclsid, &CLSID_SAXXMLReader) ||
171              IsEqualCLSID( rclsid, &CLSID_SAXXMLReader30 ) ||
172              IsEqualCLSID( rclsid, &CLSID_SAXXMLReader40 ))
173     {
174         cf = (IClassFactory*) &saxreadcf.lpVtbl;
175     }
176     else if( IsEqualCLSID( rclsid, &CLSID_XMLHTTPRequest))
177     {
178         cf = (IClassFactory*) &httpreqcf.lpVtbl;
179     }
180
181     if ( !cf )
182         return CLASS_E_CLASSNOTAVAILABLE;
183
184     return IClassFactory_QueryInterface( cf, iid, ppv );
185 }