vbscript: Added function parser implementation.
[wine] / dlls / ole32 / oleproxy.c
1 /*
2  *      OLE32 proxy/stub handler
3  *
4  *  Copyright 2002  Marcus Meissner
5  *  Copyright 2001  Ove Kåven, TransGaming Technologies
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 #include "config.h"
23
24 #include <stdlib.h>
25 #include <stdarg.h>
26 #include <stdio.h>
27 #include <string.h>
28
29 #define COBJMACROS
30 #define NONAMELESSUNION
31 #define NONAMELESSSTRUCT
32
33 #include "windef.h"
34 #include "winbase.h"
35 #include "winuser.h"
36 #include "objbase.h"
37 #include "ole2.h"
38 #include "rpc.h"
39
40 #include "compobj_private.h"
41 #include "moniker.h"
42 #include "comcat.h"
43
44 /***********************************************************************
45  *           DllGetClassObject [OLE32.@]
46  */
47 HRESULT WINAPI DllGetClassObject(REFCLSID rclsid, REFIID iid,LPVOID *ppv)
48 {
49     HRESULT hr;
50
51     *ppv = NULL;
52     if (IsEqualIID(rclsid,&CLSID_DfMarshal)&&(
53                 IsEqualIID(iid,&IID_IClassFactory) ||
54                 IsEqualIID(iid,&IID_IUnknown)
55         )
56     )
57         return MARSHAL_GetStandardMarshalCF(ppv);
58     if (IsEqualIID(rclsid,&CLSID_StdGlobalInterfaceTable) && (IsEqualIID(iid,&IID_IClassFactory) || IsEqualIID(iid,&IID_IUnknown)))
59         return StdGlobalInterfaceTable_GetFactory(ppv);
60     if (IsEqualCLSID(rclsid, &CLSID_FileMoniker))
61         return FileMonikerCF_Create(iid, ppv);
62     if (IsEqualCLSID(rclsid, &CLSID_ItemMoniker))
63         return ItemMonikerCF_Create(iid, ppv);
64     if (IsEqualCLSID(rclsid, &CLSID_AntiMoniker))
65         return AntiMonikerCF_Create(iid, ppv);
66     if (IsEqualCLSID(rclsid, &CLSID_CompositeMoniker))
67         return CompositeMonikerCF_Create(iid, ppv);
68     if (IsEqualCLSID(rclsid, &CLSID_ClassMoniker))
69         return ClassMonikerCF_Create(iid, ppv);
70     if (IsEqualCLSID(rclsid, &CLSID_PointerMoniker))
71         return PointerMonikerCF_Create(iid, ppv);
72     if (IsEqualGUID(rclsid, &CLSID_StdComponentCategoriesMgr))
73         return ComCatCF_Create(iid, ppv);
74
75     hr = OLE32_DllGetClassObject(rclsid, iid, ppv);
76     if (SUCCEEDED(hr))
77         return hr;
78
79     return Handler_DllGetClassObject(rclsid, iid, ppv);
80 }