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
28 #include "wine/debug.h"
34 WINE_DEFAULT_DEBUG_CHANNEL(atl
);
36 BOOL WINAPI
DllMain(HINSTANCE hinstDLL
, DWORD fdwReason
, LPVOID lpvReserved
)
38 TRACE("(0x%p, %ld, %p)\n",hinstDLL
,fdwReason
,lpvReserved
);
40 if (fdwReason
== DLL_PROCESS_ATTACH
) DisableThreadLibraryCalls(hinstDLL
);
44 HRESULT WINAPI
AtlModuleInit(_ATL_MODULEA
* pM
, _ATL_OBJMAP_ENTRYA
* p
, HINSTANCE h
)
48 FIXME("SEMI-STUB (%p %p %p)\n",pM
,p
,h
);
50 memset(pM
,0,sizeof(_ATL_MODULEA
));
51 pM
->cbSize
= sizeof(_ATL_MODULEA
);
53 pM
->m_hInstResource
= h
;
54 pM
->m_hInstTypeLib
= h
;
56 pM
->m_hHeap
= GetProcessHeap();
60 while (pM
->m_pObjMap
[i
].pclsid
!= NULL
)
62 TRACE("Initializing object %i\n",i
);
63 p
[i
].pfnObjectMain(TRUE
);
70 HRESULT WINAPI
AtlModuleTerm(_ATL_MODULEA
* pM
)
72 HeapFree(GetProcessHeap(), 0, pM
);
76 HRESULT WINAPI
AtlModuleRegisterClassObjects(_ATL_MODULEA
*pM
, DWORD dwClsContext
,
82 TRACE("(%p %li %li)\n",pM
, dwClsContext
, dwFlags
);
87 while(pM
->m_pObjMap
[i
].pclsid
!= NULL
)
90 _ATL_OBJMAP_ENTRYA
*obj
= &(pM
->m_pObjMap
[i
]);
93 TRACE("Registering object %i\n",i
);
94 if (obj
->pfnGetClassObject
)
96 rc
= obj
->pfnGetClassObject(obj
->pfnCreateInstance
, &IID_IUnknown
,
100 CoRegisterClassObject(obj
->pclsid
, pUnknown
, dwClsContext
,
101 dwFlags
, &obj
->dwRegister
);
103 IUnknown_Release(pUnknown
);
112 HRESULT WINAPI
AtlModuleUnregisterServerEx(_ATL_MODULEA
* pM
, BOOL bUnRegTypeLib
, const CLSID
* pCLSID
)
114 FIXME("(%p, %i, %p) stub\n", pM
, bUnRegTypeLib
, pCLSID
);
118 HRESULT WINAPI
AtlInternalQueryInterface(LPVOID
this, const _ATL_INTMAP_ENTRY
* pEntries
, REFIID iid
, LPVOID
* ppvObject
)
121 HRESULT rc
= E_NOINTERFACE
;
122 TRACE("(%p, %p, %p, %p)\n",this, pEntries
, iid
, ppvObject
);
124 if (IsEqualGUID(iid
,&IID_IUnknown
))
126 TRACE("Returning IUnknown\n");
128 IUnknown_AddRef((IUnknown
*)this);
132 while (pEntries
[i
].pFunc
!= 0)
134 TRACE("Trying entry %i (%p %li %p)\n",i
,pEntries
[i
].piid
,
135 pEntries
[i
].dw
, pEntries
[i
].pFunc
);
137 if (pEntries
[i
].piid
&& IsEqualGUID(iid
,pEntries
[i
].piid
))
140 if (pEntries
[i
].pFunc
== (_ATL_CREATORARGFUNC
*)1)
143 *ppvObject
= ((LPSTR
)this+pEntries
[i
].dw
);
144 IUnknown_AddRef((IUnknown
*)this);
150 rc
= pEntries
[i
].pFunc(this, iid
, ppvObject
,0);
156 TRACE("Done returning (0x%lx)\n",rc
);
160 /***********************************************************************
161 * AtlModuleUpdateRegistryFromResourceD [ATL.@]
164 HRESULT WINAPI
AtlModuleUpdateRegistryFromResourceD(_ATL_MODULEW
* pM
, LPCOLESTR lpszRes
,
165 BOOL bRegister
, /* struct _ATL_REGMAP_ENTRY* */ void* pMapEntries
, /* IRegistrar* */ void* pReg
)
167 HINSTANCE hInst
= pM
->m_hInst
;
168 /* everything inside this function below this point
169 * should go into atl71.AtlUpdateRegistryFromResourceD
171 WCHAR module_name
[MAX_PATH
];
173 GetModuleFileNameW(hInst
, module_name
, MAX_PATH
);
175 FIXME("stub %p (%s), %s, %d, %p, %p\n", hInst
, debugstr_w(module_name
),
176 debugstr_w(lpszRes
), bRegister
, pMapEntries
, pReg
);