2 * Implementation of Active Template Library (atl.dll)
4 * Copyright 2004 Aric Stewart for CodeWeavers
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.
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.
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
30 #include "wine/debug.h"
37 WINE_DEFAULT_DEBUG_CHANNEL(atl
);
41 BOOL WINAPI
DllMain(HINSTANCE hinstDLL
, DWORD fdwReason
, LPVOID lpvReserved
)
43 TRACE("(0x%p, %ld, %p)\n",hinstDLL
,fdwReason
,lpvReserved
);
45 if (fdwReason
== DLL_PROCESS_ATTACH
) {
46 DisableThreadLibraryCalls(hinstDLL
);
52 #define ATLVer1Size 100
54 HRESULT WINAPI
AtlModuleInit(_ATL_MODULEA
* pM
, _ATL_OBJMAP_ENTRYA
* p
, HINSTANCE h
)
59 FIXME("SEMI-STUB (%p %p %p)\n",pM
,p
,h
);
62 if (size
!= sizeof(_ATL_MODULEA
) && size
!= ATLVer1Size
)
64 FIXME("Unknown structure version (size %i)\n",size
);
68 memset(pM
,0,pM
->cbSize
);
71 pM
->m_hInstResource
= h
;
72 pM
->m_hInstTypeLib
= h
;
74 pM
->m_hHeap
= GetProcessHeap();
78 if (pM
->m_pObjMap
!= NULL
&& size
> ATLVer1Size
)
80 while (pM
->m_pObjMap
[i
].pclsid
!= NULL
)
82 TRACE("Initializing object %i %p\n",i
,p
[i
].pfnObjectMain
);
83 if (p
[i
].pfnObjectMain
)
84 p
[i
].pfnObjectMain(TRUE
);
92 HRESULT WINAPI
AtlModuleTerm(_ATL_MODULEA
* pM
)
94 _ATL_TERMFUNC_ELEM
*iter
= pM
->m_pTermFuncs
, *tmp
;
99 iter
->pFunc(iter
->dw
);
102 HeapFree(GetProcessHeap(), 0, tmp
);
105 HeapFree(GetProcessHeap(), 0, pM
);
110 HRESULT WINAPI
AtlModuleAddTermFunc(_ATL_MODULEW
*pM
, _ATL_TERMFUNC
*pFunc
, DWORD_PTR dw
)
112 _ATL_TERMFUNC_ELEM
*termfunc_elem
;
114 TRACE("(%p %p %ld)\n", pM
, pFunc
, dw
);
116 termfunc_elem
= HeapAlloc(GetProcessHeap(), 0, sizeof(_ATL_TERMFUNC_ELEM
));
117 termfunc_elem
->pFunc
= pFunc
;
118 termfunc_elem
->dw
= dw
;
119 termfunc_elem
->pNext
= pM
->m_pTermFuncs
;
121 pM
->m_pTermFuncs
= termfunc_elem
;
126 HRESULT WINAPI
AtlModuleRegisterClassObjects(_ATL_MODULEA
*pM
, DWORD dwClsContext
,
132 TRACE("(%p %li %li)\n",pM
, dwClsContext
, dwFlags
);
137 while(pM
->m_pObjMap
[i
].pclsid
!= NULL
)
140 _ATL_OBJMAP_ENTRYA
*obj
= &(pM
->m_pObjMap
[i
]);
143 TRACE("Registering object %i\n",i
);
144 if (obj
->pfnGetClassObject
)
146 rc
= obj
->pfnGetClassObject(obj
->pfnCreateInstance
, &IID_IUnknown
,
150 CoRegisterClassObject(obj
->pclsid
, pUnknown
, dwClsContext
,
151 dwFlags
, &obj
->dwRegister
);
153 IUnknown_Release(pUnknown
);
162 HRESULT WINAPI
AtlModuleUnregisterServerEx(_ATL_MODULEA
* pM
, BOOL bUnRegTypeLib
, const CLSID
* pCLSID
)
164 FIXME("(%p, %i, %p) stub\n", pM
, bUnRegTypeLib
, pCLSID
);
168 HRESULT WINAPI
AtlInternalQueryInterface(LPVOID
this, const _ATL_INTMAP_ENTRY
* pEntries
, REFIID iid
, LPVOID
* ppvObject
)
171 HRESULT rc
= E_NOINTERFACE
;
172 TRACE("(%p, %p, %p, %p)\n",this, pEntries
, iid
, ppvObject
);
174 if (IsEqualGUID(iid
,&IID_IUnknown
))
176 TRACE("Returning IUnknown\n");
178 IUnknown_AddRef((IUnknown
*)this);
182 while (pEntries
[i
].pFunc
!= 0)
184 TRACE("Trying entry %i (%p %li %p)\n",i
,pEntries
[i
].piid
,
185 pEntries
[i
].dw
, pEntries
[i
].pFunc
);
187 if (pEntries
[i
].piid
&& IsEqualGUID(iid
,pEntries
[i
].piid
))
190 if (pEntries
[i
].pFunc
== (_ATL_CREATORARGFUNC
*)1)
193 *ppvObject
= ((LPSTR
)this+pEntries
[i
].dw
);
194 IUnknown_AddRef((IUnknown
*)this);
200 rc
= pEntries
[i
].pFunc(this, iid
, ppvObject
,0);
206 TRACE("Done returning (0x%lx)\n",rc
);
210 /***********************************************************************
211 * AtlModuleRegisterServer [ATL.@]
214 HRESULT WINAPI
AtlModuleRegisterServer(_ATL_MODULEW
* pM
, BOOL bRegTypeLib
, const CLSID
* clsid
)
216 FIXME("%p %d %s\n", pM
, bRegTypeLib
, debugstr_guid(clsid
));
220 /***********************************************************************
223 HRESULT WINAPI
AtlAdvise(IUnknown
*pUnkCP
, IUnknown
*pUnk
, const IID
*iid
, LPDWORD pdw
)
225 FIXME("%p %p %p %p\n", pUnkCP
, pUnk
, iid
, pdw
);
229 /***********************************************************************
230 * AtlUnadvise [ATL.@]
232 HRESULT WINAPI
AtlUnadvise(IUnknown
*pUnkCP
, const IID
*iid
, DWORD dw
)
234 FIXME("%p %p %ld\n", pUnkCP
, iid
, dw
);
238 /***********************************************************************
239 * AtlFreeMarshalStream [ATL.@]
241 HRESULT WINAPI
AtlFreeMarshalStream(IStream
*stm
)
247 /***********************************************************************
248 * AtlMarshalPtrInProc [ATL.@]
250 HRESULT WINAPI
AtlMarshalPtrInProc(IUnknown
*pUnk
, const IID
*iid
, IStream
**pstm
)
252 FIXME("%p %p %p\n", pUnk
, iid
, pstm
);
256 /***********************************************************************
257 * AtlUnmarshalPtr [ATL.@]
259 HRESULT WINAPI
AtlUnmarshalPtr(IStream
*stm
, const IID
*iid
, IUnknown
**ppUnk
)
261 FIXME("%p %p %p\n", stm
, iid
, ppUnk
);
265 /***********************************************************************
266 * AtlModuleGetClassObject [ATL.@]
268 HRESULT WINAPI
AtlModuleGetClassObject(_ATL_MODULEW
*pm
, REFCLSID rclsid
,
269 REFIID riid
, LPVOID
*ppv
)
271 FIXME("%p %p %p %p\n", pm
, rclsid
, riid
, ppv
);
275 /***********************************************************************
276 * AtlModuleGetClassObject [ATL.@]
278 HRESULT WINAPI
AtlModuleRegisterTypeLib(_ATL_MODULEW
*pm
, LPCOLESTR lpszIndex
)
280 FIXME("%p %s\n", pm
, debugstr_w(lpszIndex
));
284 /***********************************************************************
285 * AtlModuleRevokeClassObjects [ATL.@]
287 HRESULT WINAPI
AtlModuleRevokeClassObjects(_ATL_MODULEW
*pm
)
293 /***********************************************************************
294 * AtlModuleUnregisterServer [ATL.@]
296 HRESULT WINAPI
AtlModuleUnregisterServer(_ATL_MODULEW
*pm
, const CLSID
*clsid
)
298 FIXME("%p %s\n", pm
, debugstr_guid(clsid
));