dlls/comdlg32/cdlg32.c

   1 /*
   2  *  Common Dialog Boxes interface (32 bit)
   3  *  Find/Replace
   4  *
   5  * Copyright 1999 Bertho A. Stultiens
   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 <stdarg.h>
  23
  24 #define COBJMACROS
  25
  26 #include "windef.h"
  27 #include "winbase.h"
  28 #include "wingdi.h"
  29 #include "winuser.h"
  30 #include "objbase.h"
  31 #include "rpcproxy.h"
  32 #include "commdlg.h"
  33 #include "cderr.h"
  34 #include "wine/debug.h"
  35 #include "wine/heap.h"
  36
  37 WINE_DEFAULT_DEBUG_CHANNEL(commdlg);
  38
  39 #include "cdlg.h"
  40
  41
  42 DECLSPEC_HIDDEN HINSTANCE       COMDLG32_hInstance = 0;
  43
  44 static DWORD COMDLG32_TlsIndex = TLS_OUT_OF_INDEXES;
  45
  46 static HINSTANCE        SHELL32_hInstance;
  47
  48 /* SHELL */
  49 LPITEMIDLIST (WINAPI *COMDLG32_SHSimpleIDListFromPathAW)(LPCVOID) DECLSPEC_HIDDEN;
  50
  51 /***********************************************************************
  52  *      DllMain  (COMDLG32.init)
  53  *
  54  *    Initialization code for the COMDLG32 DLL
  55  *
  56  * RETURNS:
  57  *      FALSE if sibling could not be loaded or instantiated twice, TRUE
  58  *      otherwise.
  59  */
  60 static const char GPA_string[] = "Failed to get entry point %s for hinst = %p\n";
  61 #define GPA(dest, hinst, name) \
  62         if(!(dest = (void*)GetProcAddress(hinst,name)))\
  63         { \
  64           ERR(GPA_string, debugstr_a(name), hinst); \
  65           return FALSE; \
  66         }
  67
  68 BOOL WINAPI DllMain(HINSTANCE hInstance, DWORD Reason, LPVOID Reserved)
  69 {
  70         TRACE("(%p, %d, %p)\n", hInstance, Reason, Reserved);
  71
  72         switch(Reason)
  73         {
  74         case DLL_PROCESS_ATTACH:
  75                 COMDLG32_hInstance = hInstance;
  76                 DisableThreadLibraryCalls(hInstance);
  77
  78                 SHELL32_hInstance = GetModuleHandleA("SHELL32.DLL");
  79
  80                 /* SHELL */
  81                 GPA(COMDLG32_SHSimpleIDListFromPathAW, SHELL32_hInstance, (LPCSTR)162);
  82                 break;
  83
  84         case DLL_PROCESS_DETACH:
  85             if (Reserved) break;
  86             if (COMDLG32_TlsIndex != TLS_OUT_OF_INDEXES) TlsFree(COMDLG32_TlsIndex);
  87             break;
  88         }
  89         return TRUE;
  90 }
  91 #undef GPA
  92
  93 /***********************************************************************
  94  *      COMDLG32_AllocMem                       (internal)
  95  * Get memory for internal datastructure plus stringspace etc.
  96  *      RETURNS
  97  *              Success: Pointer to a heap block
  98  *              Failure: null
  99  */
 100 void *COMDLG32_AllocMem(int size)
 101 {
 102     void *ptr = heap_alloc_zero(size);
 103
 104     if (!ptr)
 105     {
 106         COMDLG32_SetCommDlgExtendedError(CDERR_MEMALLOCFAILURE);
 107         return NULL;
 108     }
 109
 110     return ptr;
 111 }
 112
 113
 114 /***********************************************************************
 115  *      COMDLG32_SetCommDlgExtendedError        (internal)
 116  *
 117  * Used to set the thread's local error value if a comdlg32 function fails.
 118  */
 119 void COMDLG32_SetCommDlgExtendedError(DWORD err)
 120 {
 121         TRACE("(%08x)\n", err);
 122         if (COMDLG32_TlsIndex == TLS_OUT_OF_INDEXES)
 123           COMDLG32_TlsIndex = TlsAlloc();
 124         if (COMDLG32_TlsIndex != TLS_OUT_OF_INDEXES)
 125           TlsSetValue(COMDLG32_TlsIndex, (LPVOID)(DWORD_PTR)err);
 126         else
 127           FIXME("No Tls Space\n");
 128 }
 129
 130
 131 /***********************************************************************
 132  *      CommDlgExtendedError                    (COMDLG32.@)
 133  *
 134  * Get the thread's local error value if a comdlg32 function fails.
 135  *      RETURNS
 136  *              Current error value which might not be valid
 137  *              if a previous call succeeded.
 138  */
 139 DWORD WINAPI CommDlgExtendedError(void)
 140 {
 141         if (COMDLG32_TlsIndex != TLS_OUT_OF_INDEXES)
 142           return (DWORD_PTR)TlsGetValue(COMDLG32_TlsIndex);
 143         else
 144           return 0; /* we never set an error, so there isn't one */
 145 }
 146
 147 /*************************************************************************
 148  * Implement the CommDlg32 class factory
 149  *
 150  * (Taken from shdocvw/factory.c; based on implementation in
 151  *  ddraw/main.c)
 152  */
 153 typedef struct
 154 {
 155     IClassFactory IClassFactory_iface;
 156     HRESULT (*cf)(IUnknown*, REFIID, void**);
 157 } IClassFactoryImpl;
 158
 159 static inline IClassFactoryImpl *impl_from_IClassFactory(IClassFactory *iface)
 160 {
 161     return CONTAINING_RECORD(iface, IClassFactoryImpl, IClassFactory_iface);
 162 }
 163
 164 /*************************************************************************
 165  * CDLGCF_QueryInterface (IUnknown)
 166  */
 167 static HRESULT WINAPI CDLGCF_QueryInterface(IClassFactory* iface,
 168                                             REFIID riid, void **ppobj)
 169 {
 170     TRACE("%p (%s %p)\n", iface, debugstr_guid(riid), ppobj);
 171
 172     if(!ppobj)
 173         return E_POINTER;
 174
 175     if(IsEqualGUID(&IID_IUnknown, riid) || IsEqualGUID(&IID_IClassFactory, riid))
 176     {
 177         *ppobj = iface;
 178         IClassFactory_AddRef(iface);
 179         return S_OK;
 180     }
 181
 182     WARN("Interface not supported.\n");
 183
 184     *ppobj = NULL;
 185     return E_NOINTERFACE;
 186 }
 187
 188 /*************************************************************************
 189  * CDLGCF_AddRef (IUnknown)
 190  */
 191 static ULONG WINAPI CDLGCF_AddRef(IClassFactory *iface)
 192 {
 193     return 2; /* non-heap based object */
 194 }
 195
 196 /*************************************************************************
 197  * CDLGCF_Release (IUnknown)
 198  */
 199 static ULONG WINAPI CDLGCF_Release(IClassFactory *iface)
 200 {
 201     return 1; /* non-heap based object */
 202 }
 203
 204 /*************************************************************************
 205  * CDLGCF_CreateInstance (IClassFactory)
 206  */
 207 static HRESULT WINAPI CDLGCF_CreateInstance(IClassFactory *iface, IUnknown *pOuter,
 208                                             REFIID riid, void **ppobj)
 209 {
 210     IClassFactoryImpl *This = impl_from_IClassFactory(iface);
 211     return This->cf(pOuter, riid, ppobj);
 212 }
 213
 214 /*************************************************************************
 215  * CDLGCF_LockServer (IClassFactory)
 216  */
 217 static HRESULT WINAPI CDLGCF_LockServer(IClassFactory *iface, BOOL dolock)
 218 {
 219     TRACE("%p (%d)\n", iface, dolock);
 220     return S_OK;
 221 }
 222
 223 static const IClassFactoryVtbl CDLGCF_Vtbl =
 224 {
 225     CDLGCF_QueryInterface,
 226     CDLGCF_AddRef,
 227     CDLGCF_Release,
 228     CDLGCF_CreateInstance,
 229     CDLGCF_LockServer
 230 };
 231
 232 /*************************************************************************
 233  *              DllGetClassObject (COMMDLG32.@)
 234  */
 235 HRESULT WINAPI DllGetClassObject(REFCLSID rclsid, REFIID riid, void **ppv)
 236 {
 237     static IClassFactoryImpl FileOpenDlgClassFactory = {{&CDLGCF_Vtbl}, FileOpenDialog_Constructor};
 238     static IClassFactoryImpl FileSaveDlgClassFactory = {{&CDLGCF_Vtbl}, FileSaveDialog_Constructor};
 239
 240     TRACE("%s, %s, %p\n", debugstr_guid(rclsid), debugstr_guid(riid), ppv);
 241
 242     if(IsEqualGUID(&CLSID_FileOpenDialog, rclsid))
 243         return IClassFactory_QueryInterface(&FileOpenDlgClassFactory.IClassFactory_iface, riid, ppv);
 244
 245     if(IsEqualGUID(&CLSID_FileSaveDialog, rclsid))
 246         return IClassFactory_QueryInterface(&FileSaveDlgClassFactory.IClassFactory_iface, riid, ppv);
 247
 248     return CLASS_E_CLASSNOTAVAILABLE;
 249 }