dlls/comdlg32/cdlg32.c - wine - Git at Google

 /*
  *  Common Dialog Boxes interface (32 bit)
  *  Find/Replace
  *
  * Copyright 1999 Bertho A. Stultiens
  *
  * This library is free software; you can redistribute it and/or
  * modify it under the terms of the GNU Lesser General Public
  * License as published by the Free Software Foundation; either
  * version 2.1 of the License, or (at your option) any later version.
  *
  * This library is distributed in the hope that it will be useful,
  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  * Lesser General Public License for more details.
  *
  * You should have received a copy of the GNU Lesser General Public
  * License along with this library; if not, write to the Free Software
  * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
  */

 #include <stdarg.h>

 #define COBJMACROS

 #include "windef.h"
 #include "winbase.h"
 #include "wingdi.h"
 #include "winuser.h"
 #include "objbase.h"
 #include "rpcproxy.h"
 #include "commdlg.h"
 #include "cderr.h"
 #include "wine/debug.h"

 WINE_DEFAULT_DEBUG_CHANNEL(commdlg);

 #include "cdlg.h"


 DECLSPEC_HIDDEN HINSTANCE	COMDLG32_hInstance = 0;

 static DWORD COMDLG32_TlsIndex = TLS_OUT_OF_INDEXES;

 static HINSTANCE	SHELL32_hInstance;
 static HINSTANCE	SHFOLDER_hInstance;

 /* ITEMIDLIST */
 LPITEMIDLIST (WINAPI *COMDLG32_PIDL_ILClone) (LPCITEMIDLIST) DECLSPEC_HIDDEN;
 LPITEMIDLIST (WINAPI *COMDLG32_PIDL_ILCombine)(LPCITEMIDLIST,LPCITEMIDLIST) DECLSPEC_HIDDEN;
 LPITEMIDLIST (WINAPI *COMDLG32_PIDL_ILGetNext)(LPITEMIDLIST) DECLSPEC_HIDDEN;
 BOOL (WINAPI *COMDLG32_PIDL_ILRemoveLastID)(LPCITEMIDLIST) DECLSPEC_HIDDEN;
 BOOL (WINAPI *COMDLG32_PIDL_ILIsEqual)(LPCITEMIDLIST, LPCITEMIDLIST) DECLSPEC_HIDDEN;
 UINT (WINAPI *COMDLG32_PIDL_ILGetSize)(LPCITEMIDLIST) DECLSPEC_HIDDEN;

 /* SHELL */
 LPVOID (WINAPI *COMDLG32_SHAlloc)(DWORD) DECLSPEC_HIDDEN;
 DWORD (WINAPI *COMDLG32_SHFree)(LPVOID) DECLSPEC_HIDDEN;
 BOOL (WINAPI *COMDLG32_SHGetFolderPathW)(HWND,int,HANDLE,DWORD,LPWSTR) DECLSPEC_HIDDEN;
 LPITEMIDLIST (WINAPI *COMDLG32_SHSimpleIDListFromPathAW)(LPCVOID) DECLSPEC_HIDDEN;

 /***********************************************************************
  *	DllMain  (COMDLG32.init)
  *
  *    Initialization code for the COMDLG32 DLL
  *
  * RETURNS:
  *	FALSE if sibling could not be loaded or instantiated twice, TRUE
  *	otherwise.
  */
 static const char GPA_string[] = "Failed to get entry point %s for hinst = %p\n";
 #define GPA(dest, hinst, name) \
 	if(!(dest = (void*)GetProcAddress(hinst,name)))\
 	{ \
 	  ERR(GPA_string, debugstr_a(name), hinst); \
 	  return FALSE; \
 	}

 BOOL WINAPI DllMain(HINSTANCE hInstance, DWORD Reason, LPVOID Reserved)
 {
 	TRACE("(%p, %d, %p)\n", hInstance, Reason, Reserved);

 	switch(Reason)
 	{
 	case DLL_PROCESS_ATTACH:
 		COMDLG32_hInstance = hInstance;
 		DisableThreadLibraryCalls(hInstance);

 		SHELL32_hInstance = GetModuleHandleA("SHELL32.DLL");

 		/* ITEMIDLIST */
 		GPA(COMDLG32_PIDL_ILIsEqual, SHELL32_hInstance, (LPCSTR)21L);
 		GPA(COMDLG32_PIDL_ILCombine, SHELL32_hInstance, (LPCSTR)25L);
 		GPA(COMDLG32_PIDL_ILGetNext, SHELL32_hInstance, (LPCSTR)153L);
 		GPA(COMDLG32_PIDL_ILClone, SHELL32_hInstance, (LPCSTR)18L);
 		GPA(COMDLG32_PIDL_ILRemoveLastID, SHELL32_hInstance, (LPCSTR)17L);
 		GPA(COMDLG32_PIDL_ILGetSize, SHELL32_hInstance, (LPCSTR)152L);

 		/* SHELL */
 		GPA(COMDLG32_SHSimpleIDListFromPathAW, SHELL32_hInstance, (LPCSTR)162);
 		GPA(COMDLG32_SHAlloc, SHELL32_hInstance, (LPCSTR)196L);
 		GPA(COMDLG32_SHFree, SHELL32_hInstance, (LPCSTR)195L);

 		/* for the first versions of shell32 SHGetFolderPathW is in SHFOLDER.DLL */
 		COMDLG32_SHGetFolderPathW = (void*)GetProcAddress(SHELL32_hInstance,"SHGetFolderPathW");
 		if (!COMDLG32_SHGetFolderPathW)
 		{
 		  SHFOLDER_hInstance = LoadLibraryA("SHFOLDER.DLL");
 		  GPA(COMDLG32_SHGetFolderPathW, SHFOLDER_hInstance,"SHGetFolderPathW");
 		}

 		break;

 	case DLL_PROCESS_DETACH:
             if (Reserved) break;
             if (COMDLG32_TlsIndex != TLS_OUT_OF_INDEXES) TlsFree(COMDLG32_TlsIndex);
             if(SHFOLDER_hInstance) FreeLibrary(SHFOLDER_hInstance);
             break;
 	}
 	return TRUE;
 }
 #undef GPA

 /***********************************************************************
  *	COMDLG32_AllocMem 			(internal)
  * Get memory for internal datastructure plus stringspace etc.
  *	RETURNS
  *		Success: Pointer to a heap block
  *		Failure: null
  */
 LPVOID COMDLG32_AllocMem(
 	int size	/* [in] Block size to allocate */
 ) {
         LPVOID ptr = HeapAlloc(GetProcessHeap(), HEAP_ZERO_MEMORY, size);
         if(!ptr)
         {
         	COMDLG32_SetCommDlgExtendedError(CDERR_MEMALLOCFAILURE);
                 return NULL;
         }
         return ptr;
 }


 /***********************************************************************
  *	COMDLG32_SetCommDlgExtendedError	(internal)
  *
  * Used to set the thread's local error value if a comdlg32 function fails.
  */
 void COMDLG32_SetCommDlgExtendedError(DWORD err)
 {
 	TRACE("(%08x)\n", err);
         if (COMDLG32_TlsIndex == TLS_OUT_OF_INDEXES)
 	  COMDLG32_TlsIndex = TlsAlloc();
 	if (COMDLG32_TlsIndex != TLS_OUT_OF_INDEXES)
 	  TlsSetValue(COMDLG32_TlsIndex, (LPVOID)(DWORD_PTR)err);
 	else
 	  FIXME("No Tls Space\n");
 }


 /***********************************************************************
  *	CommDlgExtendedError			(COMDLG32.@)
  *
  * Get the thread's local error value if a comdlg32 function fails.
  *	RETURNS
  *		Current error value which might not be valid
  *		if a previous call succeeded.
  */
 DWORD WINAPI CommDlgExtendedError(void)
 {
         if (COMDLG32_TlsIndex != TLS_OUT_OF_INDEXES)
 	  return (DWORD_PTR)TlsGetValue(COMDLG32_TlsIndex);
 	else
 	  return 0; /* we never set an error, so there isn't one */
 }

 /*************************************************************************
  * Implement the CommDlg32 class factory
  *
  * (Taken from shdocvw/factory.c; based on implementation in
  *  ddraw/main.c)
  */
 typedef struct
 {
     IClassFactory IClassFactory_iface;
     HRESULT (*cf)(IUnknown*, REFIID, void**);
 } IClassFactoryImpl;

 static inline IClassFactoryImpl *impl_from_IClassFactory(IClassFactory *iface)
 {
     return CONTAINING_RECORD(iface, IClassFactoryImpl, IClassFactory_iface);
 }

 /*************************************************************************
  * CDLGCF_QueryInterface (IUnknown)
  */
 static HRESULT WINAPI CDLGCF_QueryInterface(IClassFactory* iface,
                                             REFIID riid, void **ppobj)
 {
     TRACE("%p (%s %p)\n", iface, debugstr_guid(riid), ppobj);

     if(!ppobj)
         return E_POINTER;

     if(IsEqualGUID(&IID_IUnknown, riid) || IsEqualGUID(&IID_IClassFactory, riid))
     {
         *ppobj = iface;
         IClassFactory_AddRef(iface);
         return S_OK;
     }

     WARN("Interface not supported.\n");

     *ppobj = NULL;
     return E_NOINTERFACE;
 }

 /*************************************************************************
  * CDLGCF_AddRef (IUnknown)
  */
 static ULONG WINAPI CDLGCF_AddRef(IClassFactory *iface)
 {
     return 2; /* non-heap based object */
 }

 /*************************************************************************
  * CDLGCF_Release (IUnknown)
  */
 static ULONG WINAPI CDLGCF_Release(IClassFactory *iface)
 {
     return 1; /* non-heap based object */
 }

 /*************************************************************************
  * CDLGCF_CreateInstance (IClassFactory)
  */
 static HRESULT WINAPI CDLGCF_CreateInstance(IClassFactory *iface, IUnknown *pOuter,
                                             REFIID riid, void **ppobj)
 {
     IClassFactoryImpl *This = impl_from_IClassFactory(iface);
     return This->cf(pOuter, riid, ppobj);
 }

 /*************************************************************************
  * CDLGCF_LockServer (IClassFactory)
  */
 static HRESULT WINAPI CDLGCF_LockServer(IClassFactory *iface, BOOL dolock)
 {
     TRACE("%p (%d)\n", iface, dolock);
     return S_OK;
 }

 static const IClassFactoryVtbl CDLGCF_Vtbl =
 {
     CDLGCF_QueryInterface,
     CDLGCF_AddRef,
     CDLGCF_Release,
     CDLGCF_CreateInstance,
     CDLGCF_LockServer
 };

 /*************************************************************************
  *              DllGetClassObject (COMMDLG32.@)
  */
 HRESULT WINAPI DllGetClassObject(REFCLSID rclsid, REFIID riid, void **ppv)
 {
     static IClassFactoryImpl FileOpenDlgClassFactory = {{&CDLGCF_Vtbl}, FileOpenDialog_Constructor};
     static IClassFactoryImpl FileSaveDlgClassFactory = {{&CDLGCF_Vtbl}, FileSaveDialog_Constructor};

     TRACE("%s, %s, %p\n", debugstr_guid(rclsid), debugstr_guid(riid), ppv);

     if(IsEqualGUID(&CLSID_FileOpenDialog, rclsid))
         return IClassFactory_QueryInterface(&FileOpenDlgClassFactory.IClassFactory_iface, riid, ppv);

     if(IsEqualGUID(&CLSID_FileSaveDialog, rclsid))
         return IClassFactory_QueryInterface(&FileSaveDlgClassFactory.IClassFactory_iface, riid, ppv);

     return CLASS_E_CLASSNOTAVAILABLE;
 }

 /***********************************************************************
  *          DllRegisterServer (COMMDLG32.@)
  */
 HRESULT WINAPI DllRegisterServer(void)
 {
     return __wine_register_resources(COMDLG32_hInstance);
 }

 /***********************************************************************
  *          DllUnregisterServer (COMMDLG32.@)
  */
 HRESULT WINAPI DllUnregisterServer(void)
 {
     return __wine_unregister_resources(COMDLG32_hInstance);
 }
	/*
	* Common Dialog Boxes interface (32 bit)
	* Find/Replace
	*
	* Copyright 1999 Bertho A. Stultiens
	*
	* This library is free software; you can redistribute it and/or
	* modify it under the terms of the GNU Lesser General Public
	* License as published by the Free Software Foundation; either
	* version 2.1 of the License, or (at your option) any later version.
	*
	* This library is distributed in the hope that it will be useful,
	* but WITHOUT ANY WARRANTY; without even the implied warranty of
	* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
	* Lesser General Public License for more details.
	*
	* You should have received a copy of the GNU Lesser General Public
	* License along with this library; if not, write to the Free Software
	* Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
	*/

	#include <stdarg.h>

	#define COBJMACROS

	#include "windef.h"
	#include "winbase.h"
	#include "wingdi.h"
	#include "winuser.h"
	#include "objbase.h"
	#include "rpcproxy.h"
	#include "commdlg.h"
	#include "cderr.h"
	#include "wine/debug.h"

	WINE_DEFAULT_DEBUG_CHANNEL(commdlg);

	#include "cdlg.h"


	DECLSPEC_HIDDEN HINSTANCE COMDLG32_hInstance = 0;

	static DWORD COMDLG32_TlsIndex = TLS_OUT_OF_INDEXES;

	static HINSTANCE SHELL32_hInstance;
	static HINSTANCE SHFOLDER_hInstance;

	/* ITEMIDLIST */
	LPITEMIDLIST (WINAPI *COMDLG32_PIDL_ILClone) (LPCITEMIDLIST) DECLSPEC_HIDDEN;
	LPITEMIDLIST (WINAPI *COMDLG32_PIDL_ILCombine)(LPCITEMIDLIST,LPCITEMIDLIST) DECLSPEC_HIDDEN;
	LPITEMIDLIST (WINAPI *COMDLG32_PIDL_ILGetNext)(LPITEMIDLIST) DECLSPEC_HIDDEN;
	BOOL (WINAPI *COMDLG32_PIDL_ILRemoveLastID)(LPCITEMIDLIST) DECLSPEC_HIDDEN;
	BOOL (WINAPI *COMDLG32_PIDL_ILIsEqual)(LPCITEMIDLIST, LPCITEMIDLIST) DECLSPEC_HIDDEN;
	UINT (WINAPI *COMDLG32_PIDL_ILGetSize)(LPCITEMIDLIST) DECLSPEC_HIDDEN;

	/* SHELL */
	LPVOID (WINAPI *COMDLG32_SHAlloc)(DWORD) DECLSPEC_HIDDEN;
	DWORD (WINAPI *COMDLG32_SHFree)(LPVOID) DECLSPEC_HIDDEN;
	BOOL (WINAPI *COMDLG32_SHGetFolderPathW)(HWND,int,HANDLE,DWORD,LPWSTR) DECLSPEC_HIDDEN;
	LPITEMIDLIST (WINAPI *COMDLG32_SHSimpleIDListFromPathAW)(LPCVOID) DECLSPEC_HIDDEN;

	/***********************************************************************
	* DllMain (COMDLG32.init)
	*
	* Initialization code for the COMDLG32 DLL
	*
	* RETURNS:
	* FALSE if sibling could not be loaded or instantiated twice, TRUE
	* otherwise.
	*/
	static const char GPA_string[] = "Failed to get entry point %s for hinst = %p\n";
	#define GPA(dest, hinst, name) \
	if(!(dest = (void*)GetProcAddress(hinst,name)))\
	{ \
	ERR(GPA_string, debugstr_a(name), hinst); \
	return FALSE; \
	}

	BOOL WINAPI DllMain(HINSTANCE hInstance, DWORD Reason, LPVOID Reserved)
	{
	TRACE("(%p, %d, %p)\n", hInstance, Reason, Reserved);

	switch(Reason)
	{
	case DLL_PROCESS_ATTACH:
	COMDLG32_hInstance = hInstance;
	DisableThreadLibraryCalls(hInstance);

	SHELL32_hInstance = GetModuleHandleA("SHELL32.DLL");

	/* ITEMIDLIST */
	GPA(COMDLG32_PIDL_ILIsEqual, SHELL32_hInstance, (LPCSTR)21L);
	GPA(COMDLG32_PIDL_ILCombine, SHELL32_hInstance, (LPCSTR)25L);
	GPA(COMDLG32_PIDL_ILGetNext, SHELL32_hInstance, (LPCSTR)153L);
	GPA(COMDLG32_PIDL_ILClone, SHELL32_hInstance, (LPCSTR)18L);
	GPA(COMDLG32_PIDL_ILRemoveLastID, SHELL32_hInstance, (LPCSTR)17L);
	GPA(COMDLG32_PIDL_ILGetSize, SHELL32_hInstance, (LPCSTR)152L);

	/* SHELL */
	GPA(COMDLG32_SHSimpleIDListFromPathAW, SHELL32_hInstance, (LPCSTR)162);
	GPA(COMDLG32_SHAlloc, SHELL32_hInstance, (LPCSTR)196L);
	GPA(COMDLG32_SHFree, SHELL32_hInstance, (LPCSTR)195L);

	/* for the first versions of shell32 SHGetFolderPathW is in SHFOLDER.DLL */
	COMDLG32_SHGetFolderPathW = (void*)GetProcAddress(SHELL32_hInstance,"SHGetFolderPathW");
	if (!COMDLG32_SHGetFolderPathW)
	{
	SHFOLDER_hInstance = LoadLibraryA("SHFOLDER.DLL");
	GPA(COMDLG32_SHGetFolderPathW, SHFOLDER_hInstance,"SHGetFolderPathW");
	}

	break;

	case DLL_PROCESS_DETACH:
	if (Reserved) break;
	if (COMDLG32_TlsIndex != TLS_OUT_OF_INDEXES) TlsFree(COMDLG32_TlsIndex);
	if(SHFOLDER_hInstance) FreeLibrary(SHFOLDER_hInstance);
	break;
	}
	return TRUE;
	}
	#undef GPA

	/***********************************************************************
	* COMDLG32_AllocMem (internal)
	* Get memory for internal datastructure plus stringspace etc.
	* RETURNS
	* Success: Pointer to a heap block
	* Failure: null
	*/
	LPVOID COMDLG32_AllocMem(
	int size /* [in] Block size to allocate */
	) {
	LPVOID ptr = HeapAlloc(GetProcessHeap(), HEAP_ZERO_MEMORY, size);
	if(!ptr)
	{
	COMDLG32_SetCommDlgExtendedError(CDERR_MEMALLOCFAILURE);
	return NULL;
	}
	return ptr;
	}


	/***********************************************************************
	* COMDLG32_SetCommDlgExtendedError (internal)
	*
	* Used to set the thread's local error value if a comdlg32 function fails.
	*/
	void COMDLG32_SetCommDlgExtendedError(DWORD err)
	{
	TRACE("(%08x)\n", err);
	if (COMDLG32_TlsIndex == TLS_OUT_OF_INDEXES)
	COMDLG32_TlsIndex = TlsAlloc();
	if (COMDLG32_TlsIndex != TLS_OUT_OF_INDEXES)
	TlsSetValue(COMDLG32_TlsIndex, (LPVOID)(DWORD_PTR)err);
	else
	FIXME("No Tls Space\n");
	}


	/***********************************************************************
	* CommDlgExtendedError (COMDLG32.@)
	*
	* Get the thread's local error value if a comdlg32 function fails.
	* RETURNS
	* Current error value which might not be valid
	* if a previous call succeeded.
	*/
	DWORD WINAPI CommDlgExtendedError(void)
	{
	if (COMDLG32_TlsIndex != TLS_OUT_OF_INDEXES)
	return (DWORD_PTR)TlsGetValue(COMDLG32_TlsIndex);
	else
	return 0; /* we never set an error, so there isn't one */
	}

	/*************************************************************************
	* Implement the CommDlg32 class factory
	*
	* (Taken from shdocvw/factory.c; based on implementation in
	* ddraw/main.c)
	*/
	typedef struct
	{
	IClassFactory IClassFactory_iface;
	HRESULT (cf)(IUnknown, REFIID, void**);
	} IClassFactoryImpl;

	static inline IClassFactoryImpl impl_from_IClassFactory(IClassFactory iface)
	{
	return CONTAINING_RECORD(iface, IClassFactoryImpl, IClassFactory_iface);
	}

	/*************************************************************************
	* CDLGCF_QueryInterface (IUnknown)
	*/
	static HRESULT WINAPI CDLGCF_QueryInterface(IClassFactory* iface,
	REFIID riid, void **ppobj)
	{
	TRACE("%p (%s %p)\n", iface, debugstr_guid(riid), ppobj);

	if(!ppobj)
	return E_POINTER;

	if(IsEqualGUID(&IID_IUnknown, riid) \|\| IsEqualGUID(&IID_IClassFactory, riid))
	{
	*ppobj = iface;
	IClassFactory_AddRef(iface);
	return S_OK;
	}

	WARN("Interface not supported.\n");

	*ppobj = NULL;
	return E_NOINTERFACE;
	}

	/*************************************************************************
	* CDLGCF_AddRef (IUnknown)
	*/
	static ULONG WINAPI CDLGCF_AddRef(IClassFactory *iface)
	{
	return 2; /* non-heap based object */
	}

	/*************************************************************************
	* CDLGCF_Release (IUnknown)
	*/
	static ULONG WINAPI CDLGCF_Release(IClassFactory *iface)
	{
	return 1; /* non-heap based object */
	}

	/*************************************************************************
	* CDLGCF_CreateInstance (IClassFactory)
	*/
	static HRESULT WINAPI CDLGCF_CreateInstance(IClassFactory iface, IUnknown pOuter,
	REFIID riid, void **ppobj)
	{
	IClassFactoryImpl *This = impl_from_IClassFactory(iface);
	return This->cf(pOuter, riid, ppobj);
	}

	/*************************************************************************
	* CDLGCF_LockServer (IClassFactory)
	*/
	static HRESULT WINAPI CDLGCF_LockServer(IClassFactory *iface, BOOL dolock)
	{
	TRACE("%p (%d)\n", iface, dolock);
	return S_OK;
	}

	static const IClassFactoryVtbl CDLGCF_Vtbl =
	{
	CDLGCF_QueryInterface,
	CDLGCF_AddRef,
	CDLGCF_Release,
	CDLGCF_CreateInstance,
	CDLGCF_LockServer
	};

	/*************************************************************************
	* DllGetClassObject (COMMDLG32.@)
	*/
	HRESULT WINAPI DllGetClassObject(REFCLSID rclsid, REFIID riid, void **ppv)
	{
	static IClassFactoryImpl FileOpenDlgClassFactory = {{&CDLGCF_Vtbl}, FileOpenDialog_Constructor};
	static IClassFactoryImpl FileSaveDlgClassFactory = {{&CDLGCF_Vtbl}, FileSaveDialog_Constructor};

	TRACE("%s, %s, %p\n", debugstr_guid(rclsid), debugstr_guid(riid), ppv);

	if(IsEqualGUID(&CLSID_FileOpenDialog, rclsid))
	return IClassFactory_QueryInterface(&FileOpenDlgClassFactory.IClassFactory_iface, riid, ppv);

	if(IsEqualGUID(&CLSID_FileSaveDialog, rclsid))
	return IClassFactory_QueryInterface(&FileSaveDlgClassFactory.IClassFactory_iface, riid, ppv);

	return CLASS_E_CLASSNOTAVAILABLE;
	}

	/***********************************************************************
	* DllRegisterServer (COMMDLG32.@)
	*/
	HRESULT WINAPI DllRegisterServer(void)
	{
	return __wine_register_resources(COMDLG32_hInstance);
	}

	/***********************************************************************
	* DllUnregisterServer (COMMDLG32.@)
	*/
	HRESULT WINAPI DllUnregisterServer(void)
	{
	return __wine_unregister_resources(COMDLG32_hInstance);
	}