31 Dec
2004
31 Dec
'04
4:09 p.m.
Wine-20041201 vendor drop
Added: vendor/wine/dlls/shlwapi/
Added: vendor/wine/dlls/shlwapi/current/
Added: vendor/wine/dlls/shlwapi/current/Makefile.in
Added: vendor/wine/dlls/shlwapi/current/assoc.c
Added: vendor/wine/dlls/shlwapi/current/clist.c
Added: vendor/wine/dlls/shlwapi/current/istream.c
Added: vendor/wine/dlls/shlwapi/current/msgbox.c
Added: vendor/wine/dlls/shlwapi/current/ordinal.c
Added: vendor/wine/dlls/shlwapi/current/path.c
Added: vendor/wine/dlls/shlwapi/current/reg.c
Added: vendor/wine/dlls/shlwapi/current/regstream.c
Added: vendor/wine/dlls/shlwapi/current/resource.h
Added: vendor/wine/dlls/shlwapi/current/shlwapi.rc
Added: vendor/wine/dlls/shlwapi/current/shlwapi.spec
Added: vendor/wine/dlls/shlwapi/current/shlwapi_De.rc
Added: vendor/wine/dlls/shlwapi/current/shlwapi_En.rc
Added: vendor/wine/dlls/shlwapi/current/shlwapi_Es.rc
Added: vendor/wine/dlls/shlwapi/current/shlwapi_It.rc
Added: vendor/wine/dlls/shlwapi/current/shlwapi_Ja.rc
Added: vendor/wine/dlls/shlwapi/current/shlwapi_Nl.rc
Added: vendor/wine/dlls/shlwapi/current/shlwapi_Pt.rc
Added: vendor/wine/dlls/shlwapi/current/shlwapi_main.c
Added: vendor/wine/dlls/shlwapi/current/stopwatch.c
Added: vendor/wine/dlls/shlwapi/current/string.c
Added: vendor/wine/dlls/shlwapi/current/thread.c
Added: vendor/wine/dlls/shlwapi/current/url.c
Added: vendor/wine/dlls/shlwapi/current/wsprintf.c
_____
Added: vendor/wine/dlls/shlwapi/current/Makefile.in
--- vendor/wine/dlls/shlwapi/current/Makefile.in 2004-12-31
16:07:59 UTC (rev 12603)
+++ vendor/wine/dlls/shlwapi/current/Makefile.in 2004-12-31
16:09:02 UTC (rev 12604)
@@ -0,0 +1,34 @@
+EXTRADEFS = -D_SHLWAPI_
+TOPSRCDIR = @top_srcdir@
+TOPOBJDIR = ../..
+SRCDIR = @srcdir@
+VPATH = @srcdir@
+MODULE = shlwapi.dll
+IMPORTS = ole32 user32 gdi32 advapi32 kernel32 ntdll
+DELAYIMPORTS = oleaut32
+EXTRALIBS = -luuid $(LIBUNICODE)
+
+C_SRCS = \
+ assoc.c \
+ clist.c \
+ istream.c \
+ msgbox.c \
+ ordinal.c \
+ path.c \
+ reg.c \
+ regstream.c \
+ shlwapi_main.c \
+ stopwatch.c \
+ string.c \
+ thread.c \
+ url.c \
+ wsprintf.c
+
+RC_SRCS = \
+ shlwapi.rc
+
+SUBDIRS = tests
+
+@MAKE_DLL_RULES@
+
+### Dependencies:
_____
Added: vendor/wine/dlls/shlwapi/current/assoc.c
--- vendor/wine/dlls/shlwapi/current/assoc.c 2004-12-31 16:07:59 UTC
(rev 12603)
+++ vendor/wine/dlls/shlwapi/current/assoc.c 2004-12-31 16:09:02 UTC
(rev 12604)
@@ -0,0 +1,704 @@
+/*
+ * IQueryAssociations object and helper functions
+ *
+ * Copyright 2002 Jon Griffiths
+ *
+ * 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., 59 Temple Place, Suite 330, Boston, MA 02111-1307
USA
+ */
+#include <stdarg.h>
+
+#include "windef.h"
+#include "winbase.h"
+#include "winnls.h"
+#include "winreg.h"
+#include "objbase.h"
+#include "shlguid.h"
+#include "shlwapi.h"
+#include "wine/debug.h"
+
+WINE_DEFAULT_DEBUG_CHANNEL(shell);
+
+/**********************************************************************
****
+ * IQueryAssociations {SHLWAPI}
+ *
+ * DESCRIPTION
+ * This object provides a layer of abstraction over the system
registry in
+ * order to simplify the process of parsing associations between
files.
+ * Associations in this context means the registry entries that link
(for
+ * example) the extension of a file with its description, list of
+ * applications to open the file with, and actions that can be
performed on it
+ * (the shell displays such information in the context menu of
explorer
+ * when you right-click on a file).
+ *
+ * HELPERS
+ * You can use this object tranparently by calling the helper functions
+ * AssocQueryKeyA(), AssocQueryStringA() and AssocQueryStringByKeyA().
These
+ * create an IQueryAssociations object, perform the requested actions
+ * and then dispose of the object. Alternatively, you can create an
instance
+ * of the object using AssocCreate() and call the following methods on
it:
+ *
+ * METHODS
+ */
+
+/* Default IQueryAssociations::Init() flags */
+#define SHLWAPI_DEF_ASSOCF
(ASSOCF_INIT_BYEXENAME|ASSOCF_INIT_DEFAULTTOSTAR| \
+ ASSOCF_INIT_DEFAULTTOFOLDER)
+
+typedef struct
+{
+ IQueryAssociationsVtbl *lpVtbl;
+ LONG ref;
+ HKEY hkeySource;
+ HKEY hkeyProgID;
+} IQueryAssociationsImpl;
+
+static struct IQueryAssociationsVtbl IQueryAssociations_vtbl;
+
+/**********************************************************************
****
+ * IQueryAssociations_Constructor [internal]
+ *
+ * Construct a new IQueryAssociations object.
+ */
+static IQueryAssociations* IQueryAssociations_Constructor(void)
+{
+ IQueryAssociationsImpl* iface;
+
+ iface = HeapAlloc(GetProcessHeap(),0,sizeof(IQueryAssociationsImpl));
+ iface->lpVtbl = &IQueryAssociations_vtbl;
+ iface->ref = 1;
+ iface->hkeySource = NULL;
+ iface->hkeyProgID = NULL;
+
+ TRACE("Returning IQueryAssociations* %p\n", iface);
+ return (IQueryAssociations*)iface;
+}
+
+/**********************************************************************
***
+ * SHLWAPI_ParamAToW
+ *
+ * Internal helper function: Convert ASCII parameter to Unicode.
+ */
+static BOOL SHLWAPI_ParamAToW(LPCSTR lpszParam, LPWSTR lpszBuff, DWORD
dwLen,
+ LPWSTR* lpszOut)
+{
+ if (lpszParam)
+ {
+ DWORD dwStrLen = MultiByteToWideChar(CP_ACP, 0, lpszParam, -1,
NULL, 0);
+
+ if (dwStrLen < dwLen)
+ {
+ *lpszOut = lpszBuff; /* Use Buffer, it is big enough */
+ }
+ else
+ {
+ /* Create a new buffer big enough for the string */
+ *lpszOut = HeapAlloc(GetProcessHeap(), 0,
+ dwStrLen * sizeof(WCHAR));
+ if (!*lpszOut)
+ return FALSE;
+ }
+ MultiByteToWideChar(CP_ACP, 0, lpszParam, -1, *lpszOut, dwStrLen);
+ }
+ else
+ *lpszOut = NULL;
+ return TRUE;
+}
+
+/**********************************************************************
***
+ * AssocCreate [SHLWAPI.@]
+ *
+ * Create a new IQueryAssociations object.
+ *
+ * PARAMS
+ * clsid [I] CLSID of object
+ * refiid [I] REFIID of interface
+ * lpInterface [O] Destination for the created IQueryAssociations
object
+ *
+ * RETURNS
+ * Success: S_OK. lpInterface contains the new object.
+ * Failure: An HRESULT error code indicating the error.
+ *
+ * NOTES
+ * refiid must be equal to IID_IQueryAssociations, or this function
will fail.
+ */
+HRESULT WINAPI AssocCreate(CLSID clsid, REFIID refiid, void
**lpInterface)
+{
+ HRESULT hRet;
+ IQueryAssociations* lpAssoc;
+
+ TRACE("(%s,%s,%p)\n", debugstr_guid(&clsid), debugstr_guid(refiid),
+ lpInterface);
+
+ if (!lpInterface)
+ return E_INVALIDARG;
+
+ *(DWORD*)lpInterface = 0;
+
+ if (!IsEqualGUID(&clsid, &IID_IQueryAssociations))
+ return E_NOTIMPL;
+
+ lpAssoc = IQueryAssociations_Constructor();
+
+ if (!lpAssoc)
+ return E_OUTOFMEMORY;
+
+ hRet = IQueryAssociations_QueryInterface(lpAssoc, refiid,
lpInterface);
+ IQueryAssociations_Release(lpAssoc);
+ return hRet;
+}
+
+/**********************************************************************
***
+ * AssocQueryKeyW [SHLWAPI.@]
+ *
+ * See AssocQueryKeyA.
+ */
+HRESULT WINAPI AssocQueryKeyW(ASSOCF cfFlags, ASSOCKEY assockey,
LPCWSTR pszAssoc,
+ LPCWSTR pszExtra, HKEY *phkeyOut)
+{
+ HRESULT hRet;
+ IQueryAssociations* lpAssoc;
+
+ TRACE("(0x%8lx,0x%8x,%s,%s,%p)\n", cfFlags, assockey,
debugstr_w(pszAssoc),
+ debugstr_w(pszExtra), phkeyOut);
+
+ lpAssoc = IQueryAssociations_Constructor();
+
+ if (!lpAssoc)
+ return E_OUTOFMEMORY;
+
+ cfFlags &= SHLWAPI_DEF_ASSOCF;
+ hRet = IQueryAssociations_Init(lpAssoc, cfFlags, pszAssoc, NULL,
NULL);
+
+ if (SUCCEEDED(hRet))
+ hRet = IQueryAssociations_GetKey(lpAssoc, cfFlags, assockey,
pszExtra, phkeyOut);
+
+ IQueryAssociations_Release(lpAssoc);
+ return hRet;
+}
+
+/**********************************************************************
***
+ * AssocQueryKeyA [SHLWAPI.@]
+ *
+ * Get a file association key from the registry.
+ *
+ * PARAMS
+ * cfFlags [I] ASSOCF_ flags from "shlwapi.h"
+ * assockey [I] Type of key to get
+ * pszAssoc [I] Key name to search below
+ * pszExtra [I] Extra information about the key location
+ * phkeyOut [O] Destination for the association key
+ *
+ * RETURNS
+ * Success: S_OK. phkeyOut contains the key.
+ * Failure: An HRESULT error code indicating the error.
+ */
+HRESULT WINAPI AssocQueryKeyA(ASSOCF cfFlags, ASSOCKEY assockey, LPCSTR
pszAssoc,
+ LPCSTR pszExtra, HKEY *phkeyOut)
+{
+ WCHAR szAssocW[MAX_PATH], *lpszAssocW = NULL;
+ WCHAR szExtraW[MAX_PATH], *lpszExtraW = NULL;
+ HRESULT hRet = E_OUTOFMEMORY;
+
+ TRACE("(0x%8lx,0x%8x,%s,%s,%p)\n", cfFlags, assockey,
debugstr_a(pszAssoc),
+ debugstr_a(pszExtra), phkeyOut);
+
+ if (SHLWAPI_ParamAToW(pszAssoc, szAssocW, MAX_PATH, &lpszAssocW) &&
+ SHLWAPI_ParamAToW(pszExtra, szExtraW, MAX_PATH, &lpszExtraW))
+ {
+ hRet = AssocQueryKeyW(cfFlags, assockey, lpszAssocW, lpszExtraW,
phkeyOut);
+ }
+
+ if (lpszAssocW && lpszAssocW != szAssocW)
+ HeapFree(GetProcessHeap(), 0, lpszAssocW);
+
+ if (lpszExtraW && lpszExtraW != szExtraW)
+ HeapFree(GetProcessHeap(), 0, lpszExtraW);
+
+ return hRet;
+}
+
+/**********************************************************************
***
+ * AssocQueryStringW [SHLWAPI.@]
+ *
+ * See AssocQueryStringA.
+ */
+HRESULT WINAPI AssocQueryStringW(ASSOCF cfFlags, ASSOCSTR str, LPCWSTR
pszAssoc,
+ LPCWSTR pszExtra, LPWSTR pszOut, DWORD
*pcchOut)
+{
+ HRESULT hRet;
+ IQueryAssociations* lpAssoc;
+
+ TRACE("(0x%8lx,0x%8x,%s,%s,%p,%p)\n", cfFlags, str,
debugstr_w(pszAssoc),
+ debugstr_w(pszExtra), pszOut, pcchOut);
+
+ if (!pcchOut)
+ return E_INVALIDARG;
+
+ lpAssoc = IQueryAssociations_Constructor();
+
+ if (!lpAssoc)
+ return E_OUTOFMEMORY;
+
+ hRet = IQueryAssociations_Init(lpAssoc, cfFlags & SHLWAPI_DEF_ASSOCF,
+ pszAssoc, NULL, NULL);
+
+ if (SUCCEEDED(hRet))
+ hRet = IQueryAssociations_GetString(lpAssoc, cfFlags, str,
pszExtra,
+ pszOut, pcchOut);
+
+ IQueryAssociations_Release(lpAssoc);
+ return hRet;
+}
+
+/**********************************************************************
***
+ * AssocQueryStringA [SHLWAPI.@]
+ *
+ * Get a file association string from the registry.
+ *
+ * PARAMS
+ * cfFlags [I] ASSOCF_ flags from "shlwapi.h"
+ * str [I] Type of string to get (ASSOCSTR enum from "shlwapi.h")
+ * pszAssoc [I] Key name to search below
+ * pszExtra [I] Extra information about the string location
+ * pszOut [O] Destination for the association string
+ * pcchOut [O] Length of pszOut
+ *
+ * RETURNS
+ * Success: S_OK. pszOut contains the string, pcchOut contains its
length.
+ * Failure: An HRESULT error code indicating the error.
+ */
+HRESULT WINAPI AssocQueryStringA(ASSOCF cfFlags, ASSOCSTR str, LPCSTR
pszAssoc,
+ LPCSTR pszExtra, LPSTR pszOut, DWORD
*pcchOut)
+{
+ WCHAR szAssocW[MAX_PATH], *lpszAssocW = NULL;
+ WCHAR szExtraW[MAX_PATH], *lpszExtraW = NULL;
+ HRESULT hRet = E_OUTOFMEMORY;
+
+ TRACE("(0x%8lx,0x%8x,%s,%s,%p,%p)\n", cfFlags, str,
debugstr_a(pszAssoc),
+ debugstr_a(pszExtra), pszOut, pcchOut);
+
+ if (!pcchOut)
+ hRet = E_INVALIDARG;
+ else if (SHLWAPI_ParamAToW(pszAssoc, szAssocW, MAX_PATH, &lpszAssocW)
&&
+ SHLWAPI_ParamAToW(pszExtra, szExtraW, MAX_PATH,
&lpszExtraW))
+ {
+ WCHAR szReturnW[MAX_PATH], *lpszReturnW = szReturnW;
+ DWORD dwLenOut = *pcchOut;
+
+ if (dwLenOut >= MAX_PATH)
+ lpszReturnW = HeapAlloc(GetProcessHeap(), 0,
+ (dwLenOut + 1) * sizeof(WCHAR));
+
+ if (!lpszReturnW)
+ hRet = E_OUTOFMEMORY;
+ else
+ {
+ hRet = AssocQueryStringW(cfFlags, str, lpszAssocW, lpszExtraW,
+ lpszReturnW, &dwLenOut);
+
+ if (SUCCEEDED(hRet))
+ WideCharToMultiByte(CP_ACP,0,szReturnW,-1,pszOut,dwLenOut,0,0);
+ *pcchOut = dwLenOut;
+
+ if (lpszReturnW && lpszReturnW != szReturnW)
+ HeapFree(GetProcessHeap(), 0, lpszReturnW);
+ }
+ }
+
+ if (lpszAssocW && lpszAssocW != szAssocW)
+ HeapFree(GetProcessHeap(), 0, lpszAssocW);
+ if (lpszExtraW && lpszExtraW != szExtraW)
+ HeapFree(GetProcessHeap(), 0, lpszExtraW);
+ return hRet;
+}
+
+/**********************************************************************
***
+ * AssocQueryStringByKeyW [SHLWAPI.@]
+ *
+ * See AssocQueryStringByKeyA.
+ */
+HRESULT WINAPI AssocQueryStringByKeyW(ASSOCF cfFlags, ASSOCSTR str,
HKEY hkAssoc,
+ LPCWSTR pszExtra, LPWSTR pszOut,
+ DWORD *pcchOut)
+{
+ HRESULT hRet;
+ IQueryAssociations* lpAssoc;
+
+ TRACE("(0x%8lx,0x%8x,%p,%s,%p,%p)\n", cfFlags, str, hkAssoc,
+ debugstr_w(pszExtra), pszOut, pcchOut);
+
+ lpAssoc = IQueryAssociations_Constructor();
+
+ if (!lpAssoc)
+ return E_OUTOFMEMORY;
+
+ cfFlags &= SHLWAPI_DEF_ASSOCF;
+ hRet = IQueryAssociations_Init(lpAssoc, cfFlags, 0, hkAssoc, NULL);
+
+ if (SUCCEEDED(hRet))
+ hRet = IQueryAssociations_GetString(lpAssoc, cfFlags, str,
pszExtra,
+ pszOut, pcchOut);
+
+ IQueryAssociations_Release(lpAssoc);
+ return hRet;
+}
+
+/**********************************************************************
***
+ * AssocQueryStringByKeyA [SHLWAPI.@]
+ *
+ * Get a file association string from the registry, given a starting
key.
+ *
+ * PARAMS
+ * cfFlags [I] ASSOCF_ flags from "shlwapi.h"
+ * str [I] Type of string to get
+ * hkAssoc [I] Key to search below
+ * pszExtra [I] Extra information about the string location
+ * pszOut [O] Destination for the association string
+ * pcchOut [O] Length of pszOut
+ *
+ * RETURNS
+ * Success: S_OK. pszOut contains the string, pcchOut contains its
length.
+ * Failure: An HRESULT error code indicating the error.
+ */
+HRESULT WINAPI AssocQueryStringByKeyA(ASSOCF cfFlags, ASSOCSTR str,
HKEY hkAssoc,
+ LPCSTR pszExtra, LPSTR pszOut,
+ DWORD *pcchOut)
+{
+ WCHAR szExtraW[MAX_PATH], *lpszExtraW;
+ WCHAR szReturnW[MAX_PATH], *lpszReturnW = szReturnW;
+ HRESULT hRet = E_OUTOFMEMORY;
+
+ TRACE("(0x%8lx,0x%8x,%p,%s,%p,%p)\n", cfFlags, str, hkAssoc,
+ debugstr_a(pszExtra), pszOut, pcchOut);
+
+ if (!pcchOut)
+ hRet = E_INVALIDARG;
+ else if (SHLWAPI_ParamAToW(pszExtra, szExtraW, MAX_PATH,
&lpszExtraW))
+ {
+ DWORD dwLenOut = *pcchOut;
+ if (dwLenOut >= MAX_PATH)
+ lpszReturnW = HeapAlloc(GetProcessHeap(), 0,
+ (dwLenOut + 1) * sizeof(WCHAR));
+
+ if (lpszReturnW)
+ {
+ hRet = AssocQueryStringByKeyW(cfFlags, str, hkAssoc, lpszExtraW,
+ lpszReturnW, &dwLenOut);
+
+ if (SUCCEEDED(hRet))
+ WideCharToMultiByte(CP_ACP,0,szReturnW,-1,pszOut,dwLenOut,0,0);
+ *pcchOut = dwLenOut;
+
+ if (lpszReturnW != szReturnW)
+ HeapFree(GetProcessHeap(), 0, lpszReturnW);
+ }
+ }
+
+ if (lpszExtraW && lpszExtraW != szExtraW)
+ HeapFree(GetProcessHeap(), 0, lpszExtraW);
+ return hRet;
+}
+
+
+/**********************************************************************
****
+ * AssocIsDangerous (SHLWAPI.@)
+ *
+ * Determine if a file association is dangerous (potentially malware).
+ *
+ * PARAMS
+ * lpszAssoc [I] Name of file or file extension to check.
+ *
+ * RETURNS
+ * TRUE, if lpszAssoc may potentially be malware (executable),
+ * FALSE, Otherwise.
+ */
+BOOL WINAPI AssocIsDangerous(LPCWSTR lpszAssoc)
+{
+ FIXME("%s\n", debugstr_w(lpszAssoc));
+ return FALSE;
+}
+
+/**********************************************************************
****
+ * IQueryAssociations_QueryInterface {SHLWAPI}
+ *
+ * See IUnknown_QueryInterface.
+ */
+static HRESULT WINAPI IQueryAssociations_fnQueryInterface(
+ IQueryAssociations* iface,
+ REFIID riid,
+ LPVOID *ppvObj)
+{
+ IQueryAssociationsImpl *This = (IQueryAssociationsImpl *)iface;
+
+ TRACE("(%p,%s,%p)\n",This, debugstr_guid(riid), ppvObj);
+
+ *ppvObj = NULL;
+
+ if (IsEqualIID(riid, &IID_IUnknown) ||
+ IsEqualIID(riid, &IID_IQueryAssociations))
+ {
+ *ppvObj = (IQueryAssociations*)This;
+
+ IQueryAssociations_AddRef((IQueryAssociations*)*ppvObj);
+ TRACE("Returning IQueryAssociations (%p)\n", *ppvObj);
+ return S_OK;
+ }
+ TRACE("Returning E_NOINTERFACE\n");
+ return E_NOINTERFACE;
+}
+
+/**********************************************************************
****
+ * IQueryAssociations_AddRef {SHLWAPI}
+ *
+ * See IUnknown_AddRef.
+ */
+static ULONG WINAPI IQueryAssociations_fnAddRef(IQueryAssociations
*iface)
+{
+ IQueryAssociationsImpl *This = (IQueryAssociationsImpl *)iface;
+
+ TRACE("(%p)->(ref before=%lu)\n",This, This->ref);
+
+ return InterlockedIncrement(&This->ref);
+}
+
+/**********************************************************************
****
+ * IQueryAssociations_Release {SHLWAPI}
+ *
+ * See IUnknown_Release.
+ */
+static ULONG WINAPI IQueryAssociations_fnRelease(IQueryAssociations
*iface)
+{
+ IQueryAssociationsImpl *This = (IQueryAssociationsImpl *)iface;
+ ULONG ulRet;
+
+ TRACE("(%p)->(ref before=%lu)\n",This, This->ref);
+
+ if (!(ulRet = InterlockedDecrement(&This->ref)))
+ {
+ TRACE("Destroying IQueryAssociations (%p)\n", This);
+ HeapFree(GetProcessHeap(), 0, This);
+ }
+ return ulRet;
+}
+
+/**********************************************************************
****
+ * IQueryAssociations_Init {SHLWAPI}
+ *
+ * Initialise an IQueryAssociations object.
+ *
+ * PARAMS
+ * iface [I] IQueryAssociations interface to initialise
+ * cfFlags [I] ASSOCF_ flags from "shlwapi.h"
+ * pszAssoc [I] String for the root key name, or NULL if hkProgid is
given
+ * hkeyProgid [I] Handle for the root key, or NULL if pszAssoc is
given
+ * hWnd [I] Reserved, must be NULL.
+ *
+ * RETURNS
+ * Success: S_OK. iface is initialised with the parameters given.
+ * Failure: An HRESULT error code indicating the error.
+ */
+static HRESULT WINAPI IQueryAssociations_fnInit(
+ IQueryAssociations *iface,
+ ASSOCF cfFlags,
+ LPCWSTR pszAssoc,
+ HKEY hkeyProgid,
+ HWND hWnd)
+{
+ static const WCHAR szProgID[] =
{'P','r','o','g','I','D',0};
+ IQueryAssociationsImpl *This = (IQueryAssociationsImpl *)iface;
+ HRESULT hr;
+
+ TRACE("(%p)->(%ld,%s,%p,%p)\n", iface,
+ cfFlags,
+ debugstr_w(pszAssoc),
+ hkeyProgid,
+ hWnd);
+ if (hWnd != NULL)
+ FIXME("hwnd != NULL not supported\n");
+ if (cfFlags != 0)
+ FIXME("unsupported flags: %lx\n", cfFlags);
+ if (pszAssoc != NULL)
+ {
+ hr = RegOpenKeyExW(HKEY_CLASSES_ROOT,
+ pszAssoc,
+ 0,
+ KEY_READ,
+ &This->hkeySource);
+ if (FAILED(hr))
+ return HRESULT_FROM_WIN32(ERROR_NO_ASSOCIATION);
+ /* if this is not a prog id */
+ if ((*pszAssoc == '.') || (*pszAssoc == '{'))
+ {
+ hr = RegOpenKeyExW(This->hkeySource,
+ szProgID,
+ 0,
+ KEY_READ,
+ &This->hkeyProgID);
+ if (FAILED(hr))
+ FIXME("Don't know what to return\n");
+ }
+ else
+ This->hkeyProgID = This->hkeySource;
+ return S_OK;
+ }
+ else if (hkeyProgid != NULL)
+ {
+ This->hkeyProgID = hkeyProgid;
+ return S_OK;
+ }
+ else
+ return E_FAIL;
+}
+
+/**********************************************************************
****
+ * IQueryAssociations_GetString {SHLWAPI}
+ *
+ * Get a file association string from the registry.
+ *
+ * PARAMS
+ * iface [I] IQueryAssociations interface to query
+ * cfFlags [I] ASSOCF_ flags from "shlwapi.h"
+ * str [I] Type of string to get (ASSOCSTR enum from
"shlwapi.h")
+ * pszExtra [I] Extra information about the string location
+ * pszOut [O] Destination for the association string
+ * pcchOut [I/O] Length of pszOut
+ *
+ * RETURNS
+ * Success: S_OK. pszOut contains the string, pcchOut contains its
length.
+ * Failure: An HRESULT error code indicating the error.
+ */
+static HRESULT WINAPI IQueryAssociations_fnGetString(
+ IQueryAssociations *iface,
+ ASSOCF cfFlags,
+ ASSOCSTR str,
+ LPCWSTR pszExtra,
+ LPWSTR pszOut,
+ DWORD *pcchOut)
+{
+ IQueryAssociationsImpl *This = (IQueryAssociationsImpl *)iface;
+
+ FIXME("(%p,0x%8lx,0x%8x,%s,%p,%p)-stub!\n", This, cfFlags, str,
+ debugstr_w(pszExtra), pszOut, pcchOut);
+ return E_NOTIMPL;
+}
+
+/**********************************************************************
****
+ * IQueryAssociations_GetKey {SHLWAPI}
+ *
+ * Get a file association key from the registry.
+ *
+ * PARAMS
+ * iface [I] IQueryAssociations interface to query
+ * cfFlags [I] ASSOCF_ flags from "shlwapi.h"
+ * assockey [I] Type of key to get (ASSOCKEY enum from "shlwapi.h")
+ * pszExtra [I] Extra information about the key location
+ * phkeyOut [O] Destination for the association key
+ *
+ * RETURNS
+ * Success: S_OK. phkeyOut contains a handle to the key.
+ * Failure: An HRESULT error code indicating the error.
+ */
+static HRESULT WINAPI IQueryAssociations_fnGetKey(
+ IQueryAssociations *iface,
+ ASSOCF cfFlags,
+ ASSOCKEY assockey,
+ LPCWSTR pszExtra,
+ HKEY *phkeyOut)
+{
+ IQueryAssociationsImpl *This = (IQueryAssociationsImpl *)iface;
+
+ FIXME("(%p,0x%8lx,0x%8x,%s,%p)-stub!\n", This, cfFlags, assockey,
+ debugstr_w(pszExtra), phkeyOut);
+ return E_NOTIMPL;
+}
+
+/**********************************************************************
****
+ * IQueryAssociations_GetData {SHLWAPI}
+ *
+ * Get the data for a file association key from the registry.
+ *
+ * PARAMS
+ * iface [I] IQueryAssociations interface to query
+ * cfFlags [I] ASSOCF_ flags from "shlwapi.h"
+ * assocdata [I] Type of data to get (ASSOCDATA enum from
"shlwapi.h")
+ * pszExtra [I] Extra information about the data location
+ * pvOut [O] Destination for the association key
+ * pcbOut [I/O] Size of pvOut
+ *
+ * RETURNS
+ * Success: S_OK. pszOut contains the data, pcbOut contains its
length.
+ * Failure: An HRESULT error code indicating the error.
+ */
+static HRESULT WINAPI IQueryAssociations_fnGetData(
+ IQueryAssociations *iface,
+ ASSOCF cfFlags,
+ ASSOCDATA assocdata,
+ LPCWSTR pszExtra,
+ LPVOID pvOut,
+ DWORD *pcbOut)
+{
+ IQueryAssociationsImpl *This = (IQueryAssociationsImpl *)iface;
+
+ FIXME("(%p,0x%8lx,0x%8x,%s,%p,%p)-stub!\n", This, cfFlags, assocdata,
+ debugstr_w(pszExtra), pvOut, pcbOut);
+ return E_NOTIMPL;
+}
+
+/**********************************************************************
****
+ * IQueryAssociations_GetEnum {SHLWAPI}
+ *
+ * Not yet implemented in native Win32.
+ *
+ * PARAMS
+ * iface [I] IQueryAssociations interface to query
+ * cfFlags [I] ASSOCF_ flags from "shlwapi.h"
+ * assocenum [I] Type of enum to get (ASSOCENUM enum from "shlwapi.h")
+ * pszExtra [I] Extra information about the enum location
+ * riid [I] REFIID to look for
+ * ppvOut [O] Destination for the interface.
+ *
+ * RETURNS
+ * Success: S_OK.
+ * Failure: An HRESULT error code indicating the error.
+ *
+ * NOTES
+ * Presumably this function returns an enumerator object.
+ */
+static HRESULT WINAPI IQueryAssociations_fnGetEnum(
+ IQueryAssociations *iface,
+ ASSOCF cfFlags,
+ ASSOCENUM assocenum,
+ LPCWSTR pszExtra,
+ REFIID riid,
+ LPVOID *ppvOut)
+{
+ IQueryAssociationsImpl *This = (IQueryAssociationsImpl *)iface;
+
+ FIXME("(%p,0x%8lx,0x%8x,%s,%s,%p)-stub!\n", This, cfFlags, assocenum,
+ debugstr_w(pszExtra), debugstr_guid(riid), ppvOut);
+ return E_NOTIMPL;
+}
+
+static struct IQueryAssociationsVtbl IQueryAssociations_vtbl =
+{
+ IQueryAssociations_fnQueryInterface,
+ IQueryAssociations_fnAddRef,
+ IQueryAssociations_fnRelease,
+ IQueryAssociations_fnInit,
+ IQueryAssociations_fnGetString,
+ IQueryAssociations_fnGetKey,
+ IQueryAssociations_fnGetData,
+ IQueryAssociations_fnGetEnum
+};
_____
Added: vendor/wine/dlls/shlwapi/current/clist.c
--- vendor/wine/dlls/shlwapi/current/clist.c 2004-12-31 16:07:59 UTC
(rev 12603)
+++ vendor/wine/dlls/shlwapi/current/clist.c 2004-12-31 16:09:02 UTC
(rev 12604)
@@ -0,0 +1,455 @@
+/*
+ * SHLWAPI DataBlock List functions
+ *
+ * Copyright 2002 Jon Griffiths
+ *
+ * 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., 59 Temple Place, Suite 330, Boston, MA 02111-1307
USA
+ */
+#include <stdarg.h>
+#include <string.h>
+
+#define COBJMACROS
+
+#include "windef.h"
+#include "winbase.h"
+#include "objbase.h"
+#include "wine/debug.h"
+
+WINE_DEFAULT_DEBUG_CHANNEL(shell);
+
+/* DataBlock list element (ordinals 17-22) */
+typedef struct tagSHLWAPI_CLIST
+{
+ ULONG ulSize; /* Size of this list element and its data */
+ ULONG ulId; /* If 0xFFFFFFFF, The real element follows
*/
+ /* Item data (or a contained SHLWAPI_CLIST) follows... */
+} SHLWAPI_CLIST, *LPSHLWAPI_CLIST;
+
+typedef const SHLWAPI_CLIST* LPCSHLWAPI_CLIST;
+
+/* ulId for contained SHLWAPI_CLIST items */
+#define CLIST_ID_CONTAINER (~0UL)
+
+HRESULT WINAPI SHAddDataBlock(LPSHLWAPI_CLIST*,LPCSHLWAPI_CLIST);
+
+/**********************************************************************
***
+ * NextItem
+ *
+ * Internal helper: move a DataBlock pointer to the next item.
+ */
+inline static LPSHLWAPI_CLIST NextItem(LPCSHLWAPI_CLIST lpList)
+{
+ const char* address = (const char*)lpList;
+ address += lpList->ulSize;
+ return (LPSHLWAPI_CLIST)address;
+}
+
+/**********************************************************************
***
+ * @ [SHLWAPI.17]
+ *
+ * Write a DataBlock list to an IStream object.
+ *
+ * PARAMS
+ * lpStream [I] IStream object to write the list to
+ * lpList [I] List of items to write
+ *
+ * RETURNS
+ * Success: S_OK. The object is written to the stream.
+ * Failure: An HRESULT error code
+ *
+ * NOTES
+ * Ordinals 17,18,19,20,21 and 22 are related and together provide a
compact
+ * list structure (a "DataBlock List"), which may be stored and
retrieved from
+ * an IStream object.
+ *
+ * The exposed API consists of:
+ *
+ * - SHWriteDataBlockList() - Write a DataBlock list to a stream,
+ * - SHReadDataBlockList() - Read and create a list from a stream,
+ * - SHFreeDataBlockList() - Free a list,
+ * - SHAddDataBlock() - Insert a new item into a list,
+ * - SHRemoveDataBlock() - Remove an item from a list,
+ * - SHFindDataBlock() - Find an item in a list.
+ *
+ * The DataBlock list is stored packed into a memory array. Each
element has a
+ * size and an associated ID. Elements must be less than 64k if the
list is
+ * to be subsequently read from a stream.
+ *
+ * Elements are aligned on DWORD boundaries. If an elements data size
is not
+ * a DWORD size multiple, the element is wrapped by inserting a
surrounding
+ * element with an Id of 0xFFFFFFFF, and size sufficient to pad to a
DWORD boundary.
+ *
+ * These functions are slow for large objects and long lists.
+ */
+HRESULT WINAPI SHWriteDataBlockList(IStream* lpStream, LPSHLWAPI_CLIST
lpList)
+{
+ ULONG ulSize;
+ HRESULT hRet = E_FAIL;
+
+ TRACE("(%p,%p)\n", lpStream, lpList);
+
+ if(lpList)
+ {
+ while (lpList->ulSize)
+ {
+ LPSHLWAPI_CLIST lpItem = lpList;
+
+ if(lpList->ulId == CLIST_ID_CONTAINER)
+ lpItem++;
+
+ hRet = IStream_Write(lpStream,lpItem,lpItem->ulSize,&ulSize);
+ if (FAILED(hRet))
+ return hRet;
+
+ if(lpItem->ulSize != ulSize)
+ return STG_E_MEDIUMFULL;
+
+ lpList = NextItem(lpList);
+ }
+ }
+
+ if(SUCCEEDED(hRet))
+ {
+ ULONG ulDummy;
+ ulSize = 0;
+
+ /* Write a terminating list entry with zero size */
+ hRet = IStream_Write(lpStream, &ulSize,sizeof(ulSize),&ulDummy);
+ }
+
+ return hRet;
+}
+
+/**********************************************************************
***
+ * @ [SHLWAPI.18]
+ *
+ * Read and create a DataBlock list from an IStream object.
+ *
+ * PARAMS
+ * lpStream [I] Stream to read the list from
+ * lppList [0] Pointer to receive the new List
+ *
+ * RETURNS
+ * Success: S_OK
+ * Failure: An HRESULT error code
+ *
+ * NOTES
+ * When read from a file, list objects are limited in size to 64k.
+ * See SHWriteDataBlockList.
+ */
+HRESULT WINAPI SHReadDataBlockList(IStream* lpStream, LPSHLWAPI_CLIST*
lppList)
+{
+ SHLWAPI_CLIST bBuff[128]; /* Temporary storage for new list item */
+ ULONG ulBuffSize = sizeof(bBuff);
+ LPSHLWAPI_CLIST pItem = bBuff;
+ ULONG ulRead, ulSize;
+ HRESULT hRet = S_OK;
+
+ TRACE("(%p,%p)\n", lpStream, lppList);
+
+ if(*lppList)
+ {
+ /* Free any existing list */
+ LocalFree((HLOCAL)*lppList);
+ *lppList = NULL;
+ }
+
+ do
+ {
+ /* Read the size of the next item */
+ hRet = IStream_Read(lpStream, &ulSize,sizeof(ulSize),&ulRead);
+
+ if(FAILED(hRet) || ulRead != sizeof(ulSize) || !ulSize)
+ break; /* Read failed or read zero size (the end of the list) */
+
+ if(ulSize > 0xFFFF)
+ {
+ LARGE_INTEGER liZero;
+ ULARGE_INTEGER ulPos;
+
+ liZero.QuadPart = 0;
+
+ /* Back the stream up; this object is too big for the list */
+ if(SUCCEEDED(IStream_Seek(lpStream, liZero, STREAM_SEEK_CUR,
&ulPos)))
+ {
+ liZero.QuadPart = ulPos.QuadPart - sizeof(ULONG);
+ IStream_Seek(lpStream, liZero, STREAM_SEEK_SET, NULL);
+ }
+ break;
+ }
+ else if (ulSize >= sizeof(SHLWAPI_CLIST))
+ {
+ /* Add this new item to the list */
+ if(ulSize > ulBuffSize)
+ {
+ /* We need more buffer space, allocate it */
+ LPSHLWAPI_CLIST lpTemp;
+
+ if (pItem == bBuff)
+ lpTemp = (LPSHLWAPI_CLIST)LocalAlloc(LMEM_ZEROINIT, ulSize);
+ else
+ lpTemp = (LPSHLWAPI_CLIST)LocalReAlloc((HLOCAL)pItem, ulSize,
+
LMEM_ZEROINIT|LMEM_MOVEABLE);
+
+ if(!lpTemp)
+ {
+ hRet = E_OUTOFMEMORY;
+ break;
+ }
+ ulBuffSize = ulSize;
+ pItem = lpTemp;
+ }
+
+ pItem->ulSize = ulSize;
+ ulSize -= sizeof(pItem->ulSize); /* already read this member */
+
+ /* Read the item Id and data */
+ hRet = IStream_Read(lpStream, &pItem->ulId, ulSize, &ulRead);
+
+ if(FAILED(hRet) || ulRead != ulSize)
+ break;
+
+ SHAddDataBlock(lppList, pItem); /* Insert Item */
+ }
+ } while(1);
+
+ /* If we allocated space, free it */
+ if(pItem != bBuff)
+ LocalFree((HLOCAL)pItem);
+
+ return hRet;
+}
+
+/**********************************************************************
***
+ * @ [SHLWAPI.19]
+ *
+ * Free a DataBlock list.
+ *
+ * PARAMS
+ * lpList [I] List to free
+ *
+ * RETURNS
+ * Nothing.
+ *
+ * NOTES
+ * See SHWriteDataBlockList.
[truncated at 1000 lines; 19759 more skipped]