+++ /dev/null
-/*
- * Property functions
- *
- * Copyright 2004 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., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
- */
-
-#include "precomp.h"
-
-#include <wine/list.h>
-
-BOOL WINAPI FBadRglpszA(LPSTR*,ULONG);
-
-/* Internal: Check if a property value array is invalid */
-static inline ULONG PROP_BadArray(LPSPropValue lpProp, size_t elemSize)
-{
- return IsBadReadPtr(lpProp->Value.MVi.lpi, lpProp->Value.MVi.cValues * elemSize);
-}
-
-/*************************************************************************
- * PropCopyMore@16 (MAPI32.76)
- *
- * Copy a property value.
- *
- * PARAMS
- * lpDest [O] Destination for the copied value
- * lpSrc [I] Property value to copy to lpDest
- * lpMore [I] Linked memory allocation function (pass MAPIAllocateMore())
- * lpOrig [I] Original allocation to which memory will be linked
- *
- * RETURNS
- * Success: S_OK. lpDest contains a deep copy of lpSrc.
- * Failure: MAPI_E_INVALID_PARAMETER, if any parameter is invalid,
- * MAPI_E_NOT_ENOUGH_MEMORY, if memory allocation fails.
- *
- * NOTES
- * Any elements within the property returned should not be individually
- * freed, as they will be freed when lpOrig is.
- */
-SCODE WINAPI PropCopyMore(LPSPropValue lpDest, LPSPropValue lpSrc,
- ALLOCATEMORE *lpMore, LPVOID lpOrig)
-{
- ULONG ulLen, i;
- SCODE scode = S_OK;
-
- TRACE("(%p,%p,%p,%p)\n", lpDest, lpSrc, lpMore, lpOrig);
-
- if (!lpDest || IsBadWritePtr(lpDest, sizeof(SPropValue)) ||
- FBadProp(lpSrc) || !lpMore)
- return MAPI_E_INVALID_PARAMETER;
-
- /* Shallow copy first, this is sufficient for properties without pointers */
- *lpDest = *lpSrc;
-
- switch (PROP_TYPE(lpSrc->ulPropTag))
- {
- case PT_CLSID:
- scode = lpMore(sizeof(GUID), lpOrig, (LPVOID*)&lpDest->Value.lpguid);
- if (SUCCEEDED(scode))
- *lpDest->Value.lpguid = *lpSrc->Value.lpguid;
- break;
- case PT_STRING8:
- ulLen = lstrlenA(lpSrc->Value.lpszA) + 1u;
- scode = lpMore(ulLen, lpOrig, (LPVOID*)&lpDest->Value.lpszA);
- if (SUCCEEDED(scode))
- memcpy(lpDest->Value.lpszA, lpSrc->Value.lpszA, ulLen);
- break;
- case PT_UNICODE:
- ulLen = (strlenW(lpSrc->Value.lpszW) + 1u) * sizeof(WCHAR);
- scode = lpMore(ulLen, lpOrig, (LPVOID*)&lpDest->Value.lpszW);
- if (SUCCEEDED(scode))
- memcpy(lpDest->Value.lpszW, lpSrc->Value.lpszW, ulLen);
- break;
- case PT_BINARY:
- scode = lpMore(lpSrc->Value.bin.cb, lpOrig, (LPVOID*)&lpDest->Value.bin.lpb);
- if (SUCCEEDED(scode))
- memcpy(lpDest->Value.bin.lpb, lpSrc->Value.bin.lpb, lpSrc->Value.bin.cb);
- break;
- default:
- if (lpSrc->ulPropTag & MV_FLAG)
- {
- ulLen = UlPropSize(lpSrc);
-
- if (PROP_TYPE(lpSrc->ulPropTag) == PT_MV_STRING8 ||
- PROP_TYPE(lpSrc->ulPropTag) == PT_MV_UNICODE)
- {
- /* UlPropSize doesn't account for the string pointers */
- ulLen += lpSrc->Value.MVszA.cValues * sizeof(char*);
- }
- else if (PROP_TYPE(lpSrc->ulPropTag) == PT_MV_BINARY)
- {
- /* UlPropSize doesn't account for the SBinary structs */
- ulLen += lpSrc->Value.MVbin.cValues * sizeof(SBinary);
- }
-
- lpDest->Value.MVi.cValues = lpSrc->Value.MVi.cValues;
- scode = lpMore(ulLen, lpOrig, (LPVOID*)&lpDest->Value.MVi.lpi);
- if (FAILED(scode))
- break;
-
- /* Note that we could allocate the memory for each value in a
- * multi-value property separately, however if an allocation failed
- * we would be left with a bunch of allocated memory, which (while
- * not really leaked) is unusable until lpOrig is freed. So for
- * strings and binary arrays we make a single allocation for all
- * of the data. This is consistent since individual elements can't
- * be freed anyway.
- */
-
- switch (PROP_TYPE(lpSrc->ulPropTag))
- {
- case PT_MV_STRING8:
- {
- char *lpNextStr = (char*)(lpDest->Value.MVszA.lppszA +
- lpDest->Value.MVszA.cValues);
-
- for (i = 0; i < lpSrc->Value.MVszA.cValues; i++)
- {
- ULONG ulStrLen = lstrlenA(lpSrc->Value.MVszA.lppszA[i]) + 1u;
-
- lpDest->Value.MVszA.lppszA[i] = lpNextStr;
- memcpy(lpNextStr, lpSrc->Value.MVszA.lppszA[i], ulStrLen);
- lpNextStr += ulStrLen;
- }
- break;
- }
- case PT_MV_UNICODE:
- {
- WCHAR *lpNextStr = (WCHAR*)(lpDest->Value.MVszW.lppszW +
- lpDest->Value.MVszW.cValues);
-
- for (i = 0; i < lpSrc->Value.MVszW.cValues; i++)
- {
- ULONG ulStrLen = strlenW(lpSrc->Value.MVszW.lppszW[i]) + 1u;
-
- lpDest->Value.MVszW.lppszW[i] = lpNextStr;
- memcpy(lpNextStr, lpSrc->Value.MVszW.lppszW[i], ulStrLen * sizeof(WCHAR));
- lpNextStr += ulStrLen;
- }
- break;
- }
- case PT_MV_BINARY:
- {
- LPBYTE lpNext = (LPBYTE)(lpDest->Value.MVbin.lpbin +
- lpDest->Value.MVbin.cValues);
-
- for (i = 0; i < lpSrc->Value.MVszW.cValues; i++)
- {
- lpDest->Value.MVbin.lpbin[i].cb = lpSrc->Value.MVbin.lpbin[i].cb;
- lpDest->Value.MVbin.lpbin[i].lpb = lpNext;
- memcpy(lpNext, lpSrc->Value.MVbin.lpbin[i].lpb, lpDest->Value.MVbin.lpbin[i].cb);
- lpNext += lpDest->Value.MVbin.lpbin[i].cb;
- }
- break;
- }
- default:
- /* No embedded pointers, just copy the data over */
- memcpy(lpDest->Value.MVi.lpi, lpSrc->Value.MVi.lpi, ulLen);
- break;
- }
- break;
- }
- }
- return scode;
-}
-
-/*************************************************************************
- * UlPropSize@4 (MAPI32.77)
- *
- * Determine the size of a property in bytes.
- *
- * PARAMS
- * lpProp [I] Property to determine the size of
- *
- * RETURNS
- * Success: The size of the value in lpProp.
- * Failure: 0, if a multi-value (array) property is invalid or the type of lpProp
- * is unknown.
- *
- * NOTES
- * - The size returned does not include the size of the SPropValue struct
- * or the size of the array of pointers for multi-valued properties that
- * contain pointers (such as PT_MV_STRING8 or PT-MV_UNICODE).
- * - MSDN incorrectly states that this function returns MAPI_E_CALL_FAILED if
- * lpProp is invalid. In reality no checking is performed and this function
- * will crash if passed an invalid property, or return 0 if the property
- * type is PT_OBJECT or is unknown.
- */
-ULONG WINAPI UlPropSize(LPSPropValue lpProp)
-{
- ULONG ulRet = 1u, i;
-
- TRACE("(%p)\n", lpProp);
-
- switch (PROP_TYPE(lpProp->ulPropTag))
- {
- case PT_MV_I2: ulRet = lpProp->Value.MVi.cValues;
- /* fall through */
- case PT_BOOLEAN:
- case PT_I2: ulRet *= sizeof(USHORT);
- break;
- case PT_MV_I4: ulRet = lpProp->Value.MVl.cValues;
- /* fall through */
- case PT_ERROR:
- case PT_I4: ulRet *= sizeof(LONG);
- break;
- case PT_MV_I8: ulRet = lpProp->Value.MVli.cValues;
- /* fall through */
- case PT_I8: ulRet *= sizeof(LONG64);
- break;
- case PT_MV_R4: ulRet = lpProp->Value.MVflt.cValues;
- /* fall through */
- case PT_R4: ulRet *= sizeof(float);
- break;
- case PT_MV_APPTIME:
- case PT_MV_R8: ulRet = lpProp->Value.MVdbl.cValues;
- /* fall through */
- case PT_APPTIME:
- case PT_R8: ulRet *= sizeof(double);
- break;
- case PT_MV_CURRENCY: ulRet = lpProp->Value.MVcur.cValues;
- /* fall through */
- case PT_CURRENCY: ulRet *= sizeof(CY);
- break;
- case PT_MV_SYSTIME: ulRet = lpProp->Value.MVft.cValues;
- /* fall through */
- case PT_SYSTIME: ulRet *= sizeof(FILETIME);
- break;
- case PT_MV_CLSID: ulRet = lpProp->Value.MVguid.cValues;
- /* fall through */
- case PT_CLSID: ulRet *= sizeof(GUID);
- break;
- case PT_MV_STRING8: ulRet = 0u;
- for (i = 0; i < lpProp->Value.MVszA.cValues; i++)
- ulRet += (lstrlenA(lpProp->Value.MVszA.lppszA[i]) + 1u);
- break;
- case PT_STRING8: ulRet = lstrlenA(lpProp->Value.lpszA) + 1u;
- break;
- case PT_MV_UNICODE: ulRet = 0u;
- for (i = 0; i < lpProp->Value.MVszW.cValues; i++)
- ulRet += (strlenW(lpProp->Value.MVszW.lppszW[i]) + 1u);
- ulRet *= sizeof(WCHAR);
- break;
- case PT_UNICODE: ulRet = (lstrlenW(lpProp->Value.lpszW) + 1u) * sizeof(WCHAR);
- break;
- case PT_MV_BINARY: ulRet = 0u;
- for (i = 0; i < lpProp->Value.MVbin.cValues; i++)
- ulRet += lpProp->Value.MVbin.lpbin[i].cb;
- break;
- case PT_BINARY: ulRet = lpProp->Value.bin.cb;
- break;
- case PT_OBJECT:
- default: ulRet = 0u;
- break;
- }
-
- return ulRet;
-}
-
-/*************************************************************************
- * FPropContainsProp@12 (MAPI32.78)
- *
- * Find a property with a given property tag in a property array.
- *
- * PARAMS
- * lpHaystack [I] Property to match to
- * lpNeedle [I] Property to find in lpHaystack
- * ulFuzzy [I] Flags controlling match type and strictness (FL_* flags from "mapidefs.h")
- *
- * RETURNS
- * TRUE, if lpNeedle matches lpHaystack according to the criteria of ulFuzzy.
- *
- * NOTES
- * Only property types of PT_STRING8 and PT_BINARY are handled by this function.
- */
-BOOL WINAPI FPropContainsProp(LPSPropValue lpHaystack, LPSPropValue lpNeedle, ULONG ulFuzzy)
-{
- TRACE("(%p,%p,0x%08x)\n", lpHaystack, lpNeedle, ulFuzzy);
-
- if (FBadProp(lpHaystack) || FBadProp(lpNeedle) ||
- PROP_TYPE(lpHaystack->ulPropTag) != PROP_TYPE(lpNeedle->ulPropTag))
- return FALSE;
-
- /* FIXME: Do later versions support Unicode as well? */
-
- if (PROP_TYPE(lpHaystack->ulPropTag) == PT_STRING8)
- {
- DWORD dwFlags = 0, dwNeedleLen, dwHaystackLen;
-
- if (ulFuzzy & FL_IGNORECASE)
- dwFlags |= NORM_IGNORECASE;
- if (ulFuzzy & FL_IGNORENONSPACE)
- dwFlags |= NORM_IGNORENONSPACE;
- if (ulFuzzy & FL_LOOSE)
- dwFlags |= (NORM_IGNORECASE|NORM_IGNORENONSPACE|NORM_IGNORESYMBOLS);
-
- dwNeedleLen = lstrlenA(lpNeedle->Value.lpszA);
- dwHaystackLen = lstrlenA(lpHaystack->Value.lpszA);
-
- if ((ulFuzzy & (FL_SUBSTRING|FL_PREFIX)) == FL_PREFIX)
- {
- if (dwNeedleLen <= dwHaystackLen &&
- CompareStringA(LOCALE_USER_DEFAULT, dwFlags,
- lpHaystack->Value.lpszA, dwNeedleLen,
- lpNeedle->Value.lpszA, dwNeedleLen) == CSTR_EQUAL)
- return TRUE; /* needle is a prefix of haystack */
- }
- else if ((ulFuzzy & (FL_SUBSTRING|FL_PREFIX)) == FL_SUBSTRING)
- {
- LPSTR (WINAPI *pStrChrFn)(LPCSTR,WORD) = StrChrA;
- LPSTR lpStr = lpHaystack->Value.lpszA;
-
- if (dwFlags & NORM_IGNORECASE)
- pStrChrFn = StrChrIA;
-
- while ((lpStr = pStrChrFn(lpStr, *lpNeedle->Value.lpszA)) != NULL)
- {
- dwHaystackLen -= (lpStr - lpHaystack->Value.lpszA);
- if (dwNeedleLen <= dwHaystackLen &&
- CompareStringA(LOCALE_USER_DEFAULT, dwFlags,
- lpStr, dwNeedleLen,
- lpNeedle->Value.lpszA, dwNeedleLen) == CSTR_EQUAL)
- return TRUE; /* needle is a substring of haystack */
- lpStr++;
- }
- }
- else if (CompareStringA(LOCALE_USER_DEFAULT, dwFlags,
- lpHaystack->Value.lpszA, dwHaystackLen,
- lpNeedle->Value.lpszA, dwNeedleLen) == CSTR_EQUAL)
- return TRUE; /* full string match */
- }
- else if (PROP_TYPE(lpHaystack->ulPropTag) == PT_BINARY)
- {
- if ((ulFuzzy & (FL_SUBSTRING|FL_PREFIX)) == FL_PREFIX)
- {
- if (lpNeedle->Value.bin.cb <= lpHaystack->Value.bin.cb &&
- !memcmp(lpNeedle->Value.bin.lpb, lpHaystack->Value.bin.lpb,
- lpNeedle->Value.bin.cb))
- return TRUE; /* needle is a prefix of haystack */
- }
- else if ((ulFuzzy & (FL_SUBSTRING|FL_PREFIX)) == FL_SUBSTRING)
- {
- ULONG ulLen = lpHaystack->Value.bin.cb;
- LPBYTE lpb = lpHaystack->Value.bin.lpb;
-
- while ((lpb = memchr(lpb, *lpNeedle->Value.bin.lpb, ulLen)) != NULL)
- {
- ulLen = lpHaystack->Value.bin.cb - (lpb - lpHaystack->Value.bin.lpb);
- if (lpNeedle->Value.bin.cb <= ulLen &&
- !memcmp(lpNeedle->Value.bin.lpb, lpb, lpNeedle->Value.bin.cb))
- return TRUE; /* needle is a substring of haystack */
- lpb++;
- }
- }
- else if (!LPropCompareProp(lpHaystack, lpNeedle))
- return TRUE; /* needle is an exact match with haystack */
-
- }
- return FALSE;
-}
-
-/*************************************************************************
- * FPropCompareProp@12 (MAPI32.79)
- *
- * Compare two properties.
- *
- * PARAMS
- * lpPropLeft [I] Left hand property to compare to lpPropRight
- * ulOp [I] Comparison operator (RELOP_* enum from "mapidefs.h")
- * lpPropRight [I] Right hand property to compare to lpPropLeft
- *
- * RETURNS
- * TRUE, if the comparison is true, FALSE otherwise.
- */
-BOOL WINAPI FPropCompareProp(LPSPropValue lpPropLeft, ULONG ulOp, LPSPropValue lpPropRight)
-{
- LONG iCmp;
-
- TRACE("(%p,%d,%p)\n", lpPropLeft, ulOp, lpPropRight);
-
- if (ulOp > RELOP_RE || FBadProp(lpPropLeft) || FBadProp(lpPropRight))
- return FALSE;
-
- if (ulOp == RELOP_RE)
- {
- FIXME("Comparison operator RELOP_RE not yet implemented!\n");
- return FALSE;
- }
-
- iCmp = LPropCompareProp(lpPropLeft, lpPropRight);
-
- switch (ulOp)
- {
- case RELOP_LT: return iCmp < 0;
- case RELOP_LE: return iCmp <= 0;
- case RELOP_GT: return iCmp > 0;
- case RELOP_GE: return iCmp >= 0;
- case RELOP_EQ: return iCmp == 0;
- case RELOP_NE: return iCmp != 0;
- }
- return FALSE;
-}
-
-/*************************************************************************
- * LPropCompareProp@8 (MAPI32.80)
- *
- * Compare two properties.
- *
- * PARAMS
- * lpPropLeft [I] Left hand property to compare to lpPropRight
- * lpPropRight [I] Right hand property to compare to lpPropLeft
- *
- * RETURNS
- * An integer less than, equal to or greater than 0, indicating that
- * lpszStr is less than, the same, or greater than lpszComp.
- */
-LONG WINAPI LPropCompareProp(LPSPropValue lpPropLeft, LPSPropValue lpPropRight)
-{
- LONG iRet;
-
- TRACE("(%p->0x%08x,%p->0x%08x)\n", lpPropLeft, lpPropLeft->ulPropTag,
- lpPropRight, lpPropRight->ulPropTag);
-
- /* If the properties are not the same, sort by property type */
- if (PROP_TYPE(lpPropLeft->ulPropTag) != PROP_TYPE(lpPropRight->ulPropTag))
- return (LONG)PROP_TYPE(lpPropLeft->ulPropTag) - (LONG)PROP_TYPE(lpPropRight->ulPropTag);
-
- switch (PROP_TYPE(lpPropLeft->ulPropTag))
- {
- case PT_UNSPECIFIED:
- case PT_NULL:
- return 0; /* NULLs are equal */
- case PT_I2:
- return lpPropLeft->Value.i - lpPropRight->Value.i;
- case PT_I4:
- return lpPropLeft->Value.l - lpPropRight->Value.l;
- case PT_I8:
- if (lpPropLeft->Value.li.QuadPart > lpPropRight->Value.li.QuadPart)
- return 1;
- if (lpPropLeft->Value.li.QuadPart == lpPropRight->Value.li.QuadPart)
- return 0;
- return -1;
- case PT_R4:
- if (lpPropLeft->Value.flt > lpPropRight->Value.flt)
- return 1;
- if (lpPropLeft->Value.flt == lpPropRight->Value.flt)
- return 0;
- return -1;
- case PT_APPTIME:
- case PT_R8:
- if (lpPropLeft->Value.dbl > lpPropRight->Value.dbl)
- return 1;
- if (lpPropLeft->Value.dbl == lpPropRight->Value.dbl)
- return 0;
- return -1;
- case PT_CURRENCY:
- if (lpPropLeft->Value.cur.int64 > lpPropRight->Value.cur.int64)
- return 1;
- if (lpPropLeft->Value.cur.int64 == lpPropRight->Value.cur.int64)
- return 0;
- return -1;
- case PT_SYSTIME:
- return CompareFileTime(&lpPropLeft->Value.ft, &lpPropRight->Value.ft);
- case PT_BOOLEAN:
- return (lpPropLeft->Value.b ? 1 : 0) - (lpPropRight->Value.b ? 1 : 0);
- case PT_BINARY:
- if (lpPropLeft->Value.bin.cb == lpPropRight->Value.bin.cb)
- iRet = memcmp(lpPropLeft->Value.bin.lpb, lpPropRight->Value.bin.lpb,
- lpPropLeft->Value.bin.cb);
- else
- {
- iRet = memcmp(lpPropLeft->Value.bin.lpb, lpPropRight->Value.bin.lpb,
- min(lpPropLeft->Value.bin.cb, lpPropRight->Value.bin.cb));
-
- if (!iRet)
- iRet = lpPropLeft->Value.bin.cb - lpPropRight->Value.bin.cb;
- }
- return iRet;
- case PT_STRING8:
- return lstrcmpA(lpPropLeft->Value.lpszA, lpPropRight->Value.lpszA);
- case PT_UNICODE:
- return strcmpW(lpPropLeft->Value.lpszW, lpPropRight->Value.lpszW);
- case PT_ERROR:
- if (lpPropLeft->Value.err > lpPropRight->Value.err)
- return 1;
- if (lpPropLeft->Value.err == lpPropRight->Value.err)
- return 0;
- return -1;
- case PT_CLSID:
- return memcmp(lpPropLeft->Value.lpguid, lpPropRight->Value.lpguid,
- sizeof(GUID));
- }
- FIXME("Unhandled property type %d\n", PROP_TYPE(lpPropLeft->ulPropTag));
- return 0;
-}
-
-/*************************************************************************
- * HrGetOneProp@8 (MAPI32.135)
- *
- * Get a property value from an IMAPIProp object.
- *
- * PARAMS
- * lpIProp [I] IMAPIProp object to get the property value in
- * ulPropTag [I] Property tag of the property to get
- * lppProp [O] Destination for the returned property
- *
- * RETURNS
- * Success: S_OK. *lppProp contains the property value requested.
- * Failure: MAPI_E_NOT_FOUND, if no property value has the tag given by ulPropTag.
- */
-HRESULT WINAPI HrGetOneProp(LPMAPIPROP lpIProp, ULONG ulPropTag, LPSPropValue *lppProp)
-{
- SPropTagArray pta;
- ULONG ulCount;
- HRESULT hRet;
-
- TRACE("(%p,%d,%p)\n", lpIProp, ulPropTag, lppProp);
-
- pta.cValues = 1u;
- pta.aulPropTag[0] = ulPropTag;
- hRet = IMAPIProp_GetProps(lpIProp, &pta, 0u, &ulCount, lppProp);
- if (hRet == MAPI_W_ERRORS_RETURNED)
- {
- MAPIFreeBuffer(*lppProp);
- *lppProp = NULL;
- hRet = MAPI_E_NOT_FOUND;
- }
- return hRet;
-}
-
-/*************************************************************************
- * HrSetOneProp@8 (MAPI32.136)
- *
- * Set a property value in an IMAPIProp object.
- *
- * PARAMS
- * lpIProp [I] IMAPIProp object to set the property value in
- * lpProp [I] Property value to set
- *
- * RETURNS
- * Success: S_OK. The value in lpProp is set in lpIProp.
- * Failure: An error result from IMAPIProp_SetProps().
- */
-HRESULT WINAPI HrSetOneProp(LPMAPIPROP lpIProp, LPSPropValue lpProp)
-{
- TRACE("(%p,%p)\n", lpIProp, lpProp);
-
- return IMAPIProp_SetProps(lpIProp, 1u, lpProp, NULL);
-}
-
-/*************************************************************************
- * FPropExists@8 (MAPI32.137)
- *
- * Find a property with a given property tag in an IMAPIProp object.
- *
- * PARAMS
- * lpIProp [I] IMAPIProp object to find the property tag in
- * ulPropTag [I] Property tag to find
- *
- * RETURNS
- * TRUE, if ulPropTag matches a property held in lpIProp,
- * FALSE, otherwise.
- *
- * NOTES
- * if ulPropTag has a property type of PT_UNSPECIFIED, then only the property
- * Ids need to match for a successful match to occur.
- */
- BOOL WINAPI FPropExists(LPMAPIPROP lpIProp, ULONG ulPropTag)
- {
- BOOL bRet = FALSE;
-
- TRACE("(%p,%d)\n", lpIProp, ulPropTag);
-
- if (lpIProp)
- {
- LPSPropTagArray lpTags;
- ULONG i;
-
- if (FAILED(IMAPIProp_GetPropList(lpIProp, 0u, &lpTags)))
- return FALSE;
-
- for (i = 0; i < lpTags->cValues; i++)
- {
- if (!FBadPropTag(lpTags->aulPropTag[i]) &&
- (lpTags->aulPropTag[i] == ulPropTag ||
- (PROP_TYPE(ulPropTag) == PT_UNSPECIFIED &&
- PROP_ID(lpTags->aulPropTag[i]) == lpTags->aulPropTag[i])))
- {
- bRet = TRUE;
- break;
- }
- }
- MAPIFreeBuffer(lpTags);
- }
- return bRet;
-}
-
-/*************************************************************************
- * PpropFindProp@12 (MAPI32.138)
- *
- * Find a property with a given property tag in a property array.
- *
- * PARAMS
- * lpProps [I] Property array to search
- * cValues [I] Number of properties in lpProps
- * ulPropTag [I] Property tag to find
- *
- * RETURNS
- * A pointer to the matching property, or NULL if none was found.
- *
- * NOTES
- * if ulPropTag has a property type of PT_UNSPECIFIED, then only the property
- * Ids need to match for a successful match to occur.
- */
-LPSPropValue WINAPI PpropFindProp(LPSPropValue lpProps, ULONG cValues, ULONG ulPropTag)
-{
- TRACE("(%p,%d,%d)\n", lpProps, cValues, ulPropTag);
-
- if (lpProps && cValues)
- {
- ULONG i;
- for (i = 0; i < cValues; i++)
- {
- if (!FBadPropTag(lpProps[i].ulPropTag) &&
- (lpProps[i].ulPropTag == ulPropTag ||
- (PROP_TYPE(ulPropTag) == PT_UNSPECIFIED &&
- PROP_ID(lpProps[i].ulPropTag) == PROP_ID(ulPropTag))))
- return &lpProps[i];
- }
- }
- return NULL;
-}
-
-/*************************************************************************
- * FreePadrlist@4 (MAPI32.139)
- *
- * Free the memory used by an address book list.
- *
- * PARAMS
- * lpAddrs [I] Address book list to free
- *
- * RETURNS
- * Nothing.
- */
-VOID WINAPI FreePadrlist(LPADRLIST lpAddrs)
-{
- TRACE("(%p)\n", lpAddrs);
-
- /* Structures are binary compatible; use the same implementation */
- FreeProws((LPSRowSet)lpAddrs);
-}
-
-/*************************************************************************
- * FreeProws@4 (MAPI32.140)
- *
- * Free the memory used by a row set.
- *
- * PARAMS
- * lpRowSet [I] Row set to free
- *
- * RETURNS
- * Nothing.
- */
-VOID WINAPI FreeProws(LPSRowSet lpRowSet)
-{
- TRACE("(%p)\n", lpRowSet);
-
- if (lpRowSet)
- {
- ULONG i;
-
- for (i = 0; i < lpRowSet->cRows; i++)
- MAPIFreeBuffer(lpRowSet->aRow[i].lpProps);
-
- MAPIFreeBuffer(lpRowSet);
- }
-}
-
-/*************************************************************************
- * ScCountProps@12 (MAPI32.170)
- *
- * Validate and determine the length of an array of properties.
- *
- * PARAMS
- * iCount [I] Length of the lpProps array
- * lpProps [I] Array of properties to validate/size
- * pcBytes [O] If non-NULL, destination for the size of the property array
- *
- * RETURNS
- * Success: S_OK. If pcBytes is non-NULL, it contains the size of the
- * properties array.
- * Failure: MAPI_E_INVALID_PARAMETER, if any parameter is invalid or validation
- * of the property array fails.
- */
-SCODE WINAPI ScCountProps(INT iCount, LPSPropValue lpProps, ULONG *pcBytes)
-{
- ULONG i, ulCount = iCount, ulBytes = 0;
-
- TRACE("(%d,%p,%p)\n", iCount, lpProps, pcBytes);
-
- if (iCount <= 0 || !lpProps ||
- IsBadReadPtr(lpProps, iCount * sizeof(SPropValue)))
- return MAPI_E_INVALID_PARAMETER;
-
- for (i = 0; i < ulCount; i++)
- {
- ULONG ulPropSize = 0;
-
- if (FBadProp(&lpProps[i]) || lpProps[i].ulPropTag == PROP_ID_NULL ||
- lpProps[i].ulPropTag == PROP_ID_INVALID)
- return MAPI_E_INVALID_PARAMETER;
-
- if (PROP_TYPE(lpProps[i].ulPropTag) != PT_OBJECT)
- {
- ulPropSize = UlPropSize(&lpProps[i]);
- if (!ulPropSize)
- return MAPI_E_INVALID_PARAMETER;
- }
-
- switch (PROP_TYPE(lpProps[i].ulPropTag))
- {
- case PT_STRING8:
- case PT_UNICODE:
- case PT_CLSID:
- case PT_BINARY:
- case PT_MV_I2:
- case PT_MV_I4:
- case PT_MV_I8:
- case PT_MV_R4:
- case PT_MV_R8:
- case PT_MV_CURRENCY:
- case PT_MV_SYSTIME:
- case PT_MV_APPTIME:
- ulPropSize += sizeof(SPropValue);
- break;
- case PT_MV_CLSID:
- ulPropSize += lpProps[i].Value.MVszA.cValues * sizeof(char*) + sizeof(SPropValue);
- break;
- case PT_MV_STRING8:
- case PT_MV_UNICODE:
- ulPropSize += lpProps[i].Value.MVszA.cValues * sizeof(char*) + sizeof(SPropValue);
- break;
- case PT_MV_BINARY:
- ulPropSize += lpProps[i].Value.MVbin.cValues * sizeof(SBinary) + sizeof(SPropValue);
- break;
- default:
- ulPropSize = sizeof(SPropValue);
- break;
- }
- ulBytes += ulPropSize;
- }
- if (pcBytes)
- *pcBytes = ulBytes;
-
- return S_OK;
-}
-
-/*************************************************************************
- * ScCopyProps@16 (MAPI32.171)
- *
- * Copy an array of property values into a buffer suited for serialisation.
- *
- * PARAMS
- * cValues [I] Number of properties in lpProps
- * lpProps [I] Property array to copy
- * lpDst [O] Destination for the serialised data
- * lpCount [O] If non-NULL, destination for the number of bytes of data written to lpDst
- *
- * RETURNS
- * Success: S_OK. lpDst contains the serialised data from lpProps.
- * Failure: MAPI_E_INVALID_PARAMETER, if any parameter is invalid.
- *
- * NOTES
- * The resulting property value array is stored in a contiguous block starting at lpDst.
- */
-SCODE WINAPI ScCopyProps(int cValues, LPSPropValue lpProps, LPVOID lpDst, ULONG *lpCount)
-{
- LPSPropValue lpDest = (LPSPropValue)lpDst;
- char *lpDataDest = (char *)(lpDest + cValues);
- ULONG ulLen, i;
- int iter;
-
- TRACE("(%d,%p,%p,%p)\n", cValues, lpProps, lpDst, lpCount);
-
- if (!lpProps || cValues < 0 || !lpDest)
- return MAPI_E_INVALID_PARAMETER;
-
- memcpy(lpDst, lpProps, cValues * sizeof(SPropValue));
-
- for (iter = 0; iter < cValues; iter++)
- {
- switch (PROP_TYPE(lpProps->ulPropTag))
- {
- case PT_CLSID:
- lpDest->Value.lpguid = (LPGUID)lpDataDest;
- *lpDest->Value.lpguid = *lpProps->Value.lpguid;
- lpDataDest += sizeof(GUID);
- break;
- case PT_STRING8:
- ulLen = lstrlenA(lpProps->Value.lpszA) + 1u;
- lpDest->Value.lpszA = lpDataDest;
- memcpy(lpDest->Value.lpszA, lpProps->Value.lpszA, ulLen);
- lpDataDest += ulLen;
- break;
- case PT_UNICODE:
- ulLen = (strlenW(lpProps->Value.lpszW) + 1u) * sizeof(WCHAR);
- lpDest->Value.lpszW = (LPWSTR)lpDataDest;
- memcpy(lpDest->Value.lpszW, lpProps->Value.lpszW, ulLen);
- lpDataDest += ulLen;
- break;
- case PT_BINARY:
- lpDest->Value.bin.lpb = (LPBYTE)lpDataDest;
- memcpy(lpDest->Value.bin.lpb, lpProps->Value.bin.lpb, lpProps->Value.bin.cb);
- lpDataDest += lpProps->Value.bin.cb;
- break;
- default:
- if (lpProps->ulPropTag & MV_FLAG)
- {
- lpDest->Value.MVi.cValues = lpProps->Value.MVi.cValues;
- /* Note: Assignment uses lppszA but covers all cases by union aliasing */
- lpDest->Value.MVszA.lppszA = (char**)lpDataDest;
-
- switch (PROP_TYPE(lpProps->ulPropTag))
- {
- case PT_MV_STRING8:
- {
- lpDataDest += lpProps->Value.MVszA.cValues * sizeof(char *);
-
- for (i = 0; i < lpProps->Value.MVszA.cValues; i++)
- {
- ULONG ulStrLen = lstrlenA(lpProps->Value.MVszA.lppszA[i]) + 1u;
-
- lpDest->Value.MVszA.lppszA[i] = lpDataDest;
- memcpy(lpDataDest, lpProps->Value.MVszA.lppszA[i], ulStrLen);
- lpDataDest += ulStrLen;
- }
- break;
- }
- case PT_MV_UNICODE:
- {
- lpDataDest += lpProps->Value.MVszW.cValues * sizeof(WCHAR *);
-
- for (i = 0; i < lpProps->Value.MVszW.cValues; i++)
- {
- ULONG ulStrLen = (strlenW(lpProps->Value.MVszW.lppszW[i]) + 1u) * sizeof(WCHAR);
-
- lpDest->Value.MVszW.lppszW[i] = (LPWSTR)lpDataDest;
- memcpy(lpDataDest, lpProps->Value.MVszW.lppszW[i], ulStrLen);
- lpDataDest += ulStrLen;
- }
- break;
- }
- case PT_MV_BINARY:
- {
- lpDataDest += lpProps->Value.MVszW.cValues * sizeof(SBinary);
-
- for (i = 0; i < lpProps->Value.MVszW.cValues; i++)
- {
- lpDest->Value.MVbin.lpbin[i].cb = lpProps->Value.MVbin.lpbin[i].cb;
- lpDest->Value.MVbin.lpbin[i].lpb = (LPBYTE)lpDataDest;
- memcpy(lpDataDest, lpProps->Value.MVbin.lpbin[i].lpb, lpDest->Value.MVbin.lpbin[i].cb);
- lpDataDest += lpDest->Value.MVbin.lpbin[i].cb;
- }
- break;
- }
- default:
- /* No embedded pointers, just copy the data over */
- ulLen = UlPropSize(lpProps);
- memcpy(lpDest->Value.MVi.lpi, lpProps->Value.MVi.lpi, ulLen);
- lpDataDest += ulLen;
- break;
- }
- break;
- }
- }
- lpDest++;
- lpProps++;
- }
- if (lpCount)
- *lpCount = lpDataDest - (char *)lpDst;
-
- return S_OK;
-}
-
-/*************************************************************************
- * ScRelocProps@20 (MAPI32.172)
- *
- * Relocate the pointers in an array of property values after it has been copied.
- *
- * PARAMS
- * cValues [I] Number of properties in lpProps
- * lpProps [O] Property array to relocate the pointers in.
- * lpOld [I] Position where the data was copied from
- * lpNew [I] Position where the data was copied to
- * lpCount [O] If non-NULL, destination for the number of bytes of data at lpDst
- *
- * RETURNS
- * Success: S_OK. Any pointers in lpProps are relocated.
- * Failure: MAPI_E_INVALID_PARAMETER, if any parameter is invalid.
- *
- * NOTES
- * MSDN states that this function can be used for serialisation by passing
- * NULL as either lpOld or lpNew, thus converting any pointers in lpProps
- * between offsets and pointers. This does not work in native (it crashes),
- * and cannot be made to work in Wine because the original interface design
- * is deficient. The only use left for this function is to remap pointers
- * in a contiguous property array that has been copied with memcpy() to
- * another memory location.
- */
-SCODE WINAPI ScRelocProps(int cValues, LPSPropValue lpProps, LPVOID lpOld,
- LPVOID lpNew, ULONG *lpCount)
-{
- static const BOOL bBadPtr = TRUE; /* Windows bug - Assumes source is bad */
- LPSPropValue lpDest = lpProps;
- ULONG ulCount = cValues * sizeof(SPropValue);
- ULONG ulLen, i;
- int iter;
-
- TRACE("(%d,%p,%p,%p,%p)\n", cValues, lpProps, lpOld, lpNew, lpCount);
-
- if (!lpProps || cValues < 0 || !lpOld || !lpNew)
- return MAPI_E_INVALID_PARAMETER;
-
- /* The reason native doesn't work as MSDN states is that it assumes that
- * the lpProps pointer contains valid pointers. This is obviously not
- * true if the array is being read back from serialisation (the pointers
- * are just offsets). Native can't actually work converting the pointers to
- * offsets either, because it converts any array pointers to offsets then
- * _dereferences the offset_ in order to convert the array elements!
- *
- * The code below would handle both cases except that the design of this
- * function makes it impossible to know when the pointers in lpProps are
- * valid. If both lpOld and lpNew are non-NULL, native reads the pointers
- * after converting them, so we must do the same. It seems this
- * functionality was never tested by MS.
- */
-
-#define RELOC_PTR(p) (((char*)(p)) - (char*)lpOld + (char*)lpNew)
-
- for (iter = 0; iter < cValues; iter++)
- {
- switch (PROP_TYPE(lpDest->ulPropTag))
- {
- case PT_CLSID:
- lpDest->Value.lpguid = (LPGUID)RELOC_PTR(lpDest->Value.lpguid);
- ulCount += sizeof(GUID);
- break;
- case PT_STRING8:
- ulLen = bBadPtr ? 0 : lstrlenA(lpDest->Value.lpszA) + 1u;
- lpDest->Value.lpszA = RELOC_PTR(lpDest->Value.lpszA);
- if (bBadPtr)
- ulLen = lstrlenA(lpDest->Value.lpszA) + 1u;
- ulCount += ulLen;
- break;
- case PT_UNICODE:
- ulLen = bBadPtr ? 0 : (lstrlenW(lpDest->Value.lpszW) + 1u) * sizeof(WCHAR);
- lpDest->Value.lpszW = (LPWSTR)RELOC_PTR(lpDest->Value.lpszW);
- if (bBadPtr)
- ulLen = (strlenW(lpDest->Value.lpszW) + 1u) * sizeof(WCHAR);
- ulCount += ulLen;
- break;
- case PT_BINARY:
- lpDest->Value.bin.lpb = (LPBYTE)RELOC_PTR(lpDest->Value.bin.lpb);
- ulCount += lpDest->Value.bin.cb;
- break;
- default:
- if (lpDest->ulPropTag & MV_FLAG)
- {
- /* Since we have to access the array elements, don't map the
- * array unless it is invalid (otherwise, map it at the end)
- */
- if (bBadPtr)
- lpDest->Value.MVszA.lppszA = (LPSTR*)RELOC_PTR(lpDest->Value.MVszA.lppszA);
-
- switch (PROP_TYPE(lpProps->ulPropTag))
- {
- case PT_MV_STRING8:
- {
- ulCount += lpDest->Value.MVszA.cValues * sizeof(char *);
-
- for (i = 0; i < lpDest->Value.MVszA.cValues; i++)
- {
- ULONG ulStrLen = bBadPtr ? 0 : lstrlenA(lpDest->Value.MVszA.lppszA[i]) + 1u;
-
- lpDest->Value.MVszA.lppszA[i] = RELOC_PTR(lpDest->Value.MVszA.lppszA[i]);
- if (bBadPtr)
- ulStrLen = lstrlenA(lpDest->Value.MVszA.lppszA[i]) + 1u;
- ulCount += ulStrLen;
- }
- break;
- }
- case PT_MV_UNICODE:
- {
- ulCount += lpDest->Value.MVszW.cValues * sizeof(WCHAR *);
-
- for (i = 0; i < lpDest->Value.MVszW.cValues; i++)
- {
- ULONG ulStrLen = bBadPtr ? 0 : (strlenW(lpDest->Value.MVszW.lppszW[i]) + 1u) * sizeof(WCHAR);
-
- lpDest->Value.MVszW.lppszW[i] = (LPWSTR)RELOC_PTR(lpDest->Value.MVszW.lppszW[i]);
- if (bBadPtr)
- ulStrLen = (strlenW(lpDest->Value.MVszW.lppszW[i]) + 1u) * sizeof(WCHAR);
- ulCount += ulStrLen;
- }
- break;
- }
- case PT_MV_BINARY:
- {
- ulCount += lpDest->Value.MVszW.cValues * sizeof(SBinary);
-
- for (i = 0; i < lpDest->Value.MVszW.cValues; i++)
- {
- lpDest->Value.MVbin.lpbin[i].lpb = (LPBYTE)RELOC_PTR(lpDest->Value.MVbin.lpbin[i].lpb);
- ulCount += lpDest->Value.MVbin.lpbin[i].cb;
- }
- break;
- }
- default:
- ulCount += UlPropSize(lpDest);
- break;
- }
- if (!bBadPtr)
- lpDest->Value.MVszA.lppszA = (LPSTR*)RELOC_PTR(lpDest->Value.MVszA.lppszA);
- break;
- }
- }
- lpDest++;
- }
- if (lpCount)
- *lpCount = ulCount;
-
- return S_OK;
-}
-
-/*************************************************************************
- * LpValFindProp@12 (MAPI32.173)
- *
- * Find a property with a given property id in a property array.
- *
- * PARAMS
- * ulPropTag [I] Property tag containing property id to find
- * cValues [I] Number of properties in lpProps
- * lpProps [I] Property array to search
- *
- * RETURNS
- * A pointer to the matching property, or NULL if none was found.
- *
- * NOTES
- * This function matches only on the property id and does not care if the
- * property types differ.
- */
-LPSPropValue WINAPI LpValFindProp(ULONG ulPropTag, ULONG cValues, LPSPropValue lpProps)
-{
- TRACE("(%d,%d,%p)\n", ulPropTag, cValues, lpProps);
-
- if (lpProps && cValues)
- {
- ULONG i;
- for (i = 0; i < cValues; i++)
- {
- if (PROP_ID(ulPropTag) == PROP_ID(lpProps[i].ulPropTag))
- return &lpProps[i];
- }
- }
- return NULL;
-}
-
-/*************************************************************************
- * ScDupPropset@16 (MAPI32.174)
- *
- * Duplicate a property value array into a contiguous block of memory.
- *
- * PARAMS
- * cValues [I] Number of properties in lpProps
- * lpProps [I] Property array to duplicate
- * lpAlloc [I] Memory allocation function, use MAPIAllocateBuffer()
- * lpNewProp [O] Destination for the newly duplicated property value array
- *
- * RETURNS
- * Success: S_OK. *lpNewProp contains the duplicated array.
- * Failure: MAPI_E_INVALID_PARAMETER, if any parameter is invalid,
- * MAPI_E_NOT_ENOUGH_MEMORY, if memory allocation fails.
- */
-SCODE WINAPI ScDupPropset(int cValues, LPSPropValue lpProps,
- LPALLOCATEBUFFER lpAlloc, LPSPropValue *lpNewProp)
-{
- ULONG ulCount;
- SCODE sc;
-
- TRACE("(%d,%p,%p,%p)\n", cValues, lpProps, lpAlloc, lpNewProp);
-
- sc = ScCountProps(cValues, lpProps, &ulCount);
- if (SUCCEEDED(sc))
- {
- sc = lpAlloc(ulCount, (LPVOID*)lpNewProp);
- if (SUCCEEDED(sc))
- sc = ScCopyProps(cValues, lpProps, *lpNewProp, &ulCount);
- }
- return sc;
-}
-
-/*************************************************************************
- * FBadRglpszA@8 (MAPI32.175)
- *
- * Determine if an array of strings is invalid
- *
- * PARAMS
- * lppszStrs [I] Array of strings to check
- * ulCount [I] Number of strings in lppszStrs
- *
- * RETURNS
- * TRUE, if lppszStrs is invalid, FALSE otherwise.
- */
-BOOL WINAPI FBadRglpszA(LPSTR *lppszStrs, ULONG ulCount)
-{
- ULONG i;
-
- TRACE("(%p,%d)\n", lppszStrs, ulCount);
-
- if (!ulCount)
- return FALSE;
-
- if (!lppszStrs || IsBadReadPtr(lppszStrs, ulCount * sizeof(LPWSTR)))
- return TRUE;
-
- for (i = 0; i < ulCount; i++)
- {
- if (!lppszStrs[i] || IsBadStringPtrA(lppszStrs[i], -1))
- return TRUE;
- }
- return FALSE;
-}
-
-/*************************************************************************
- * FBadRglpszW@8 (MAPI32.176)
- *
- * See FBadRglpszA.
- */
-BOOL WINAPI FBadRglpszW(LPWSTR *lppszStrs, ULONG ulCount)
-{
- ULONG i;
-
- TRACE("(%p,%d)\n", lppszStrs, ulCount);
-
- if (!ulCount)
- return FALSE;
-
- if (!lppszStrs || IsBadReadPtr(lppszStrs, ulCount * sizeof(LPWSTR)))
- return TRUE;
-
- for (i = 0; i < ulCount; i++)
- {
- if (!lppszStrs[i] || IsBadStringPtrW(lppszStrs[i], -1))
- return TRUE;
- }
- return FALSE;
-}
-
-/*************************************************************************
- * FBadRowSet@4 (MAPI32.177)
- *
- * Determine if a row is invalid
- *
- * PARAMS
- * lpRow [I] Row to check
- *
- * RETURNS
- * TRUE, if lpRow is invalid, FALSE otherwise.
- */
-BOOL WINAPI FBadRowSet(LPSRowSet lpRowSet)
-{
- ULONG i;
- TRACE("(%p)\n", lpRowSet);
-
- if (!lpRowSet || IsBadReadPtr(lpRowSet, CbSRowSet(lpRowSet)))
- return TRUE;
-
- for (i = 0; i < lpRowSet->cRows; i++)
- {
- if (FBadRow(&lpRowSet->aRow[i]))
- return TRUE;
- }
- return FALSE;
-}
-
-/*************************************************************************
- * FBadPropTag@4 (MAPI32.179)
- *
- * Determine if a property tag is invalid
- *
- * PARAMS
- * ulPropTag [I] Property tag to check
- *
- * RETURNS
- * TRUE, if ulPropTag is invalid, FALSE otherwise.
- */
-ULONG WINAPI FBadPropTag(ULONG ulPropTag)
-{
- TRACE("(0x%08x)\n", ulPropTag);
-
- switch (ulPropTag & (~MV_FLAG & PROP_TYPE_MASK))
- {
- case PT_UNSPECIFIED:
- case PT_NULL:
- case PT_I2:
- case PT_LONG:
- case PT_R4:
- case PT_DOUBLE:
- case PT_CURRENCY:
- case PT_APPTIME:
- case PT_ERROR:
- case PT_BOOLEAN:
- case PT_OBJECT:
- case PT_I8:
- case PT_STRING8:
- case PT_UNICODE:
- case PT_SYSTIME:
- case PT_CLSID:
- case PT_BINARY:
- return FALSE;
- }
- return TRUE;
-}
-
-/*************************************************************************
- * FBadRow@4 (MAPI32.180)
- *
- * Determine if a row is invalid
- *
- * PARAMS
- * lpRow [I] Row to check
- *
- * RETURNS
- * TRUE, if lpRow is invalid, FALSE otherwise.
- */
-ULONG WINAPI FBadRow(LPSRow lpRow)
-{
- ULONG i;
- TRACE("(%p)\n", lpRow);
-
- if (!lpRow || IsBadReadPtr(lpRow, sizeof(SRow)) || !lpRow->lpProps ||
- IsBadReadPtr(lpRow->lpProps, lpRow->cValues * sizeof(SPropValue)))
- return TRUE;
-
- for (i = 0; i < lpRow->cValues; i++)
- {
- if (FBadProp(&lpRow->lpProps[i]))
- return TRUE;
- }
- return FALSE;
-}
-
-/*************************************************************************
- * FBadProp@4 (MAPI32.181)
- *
- * Determine if a property is invalid
- *
- * PARAMS
- * lpProp [I] Property to check
- *
- * RETURNS
- * TRUE, if lpProp is invalid, FALSE otherwise.
- */
-ULONG WINAPI FBadProp(LPSPropValue lpProp)
-{
- if (!lpProp || IsBadReadPtr(lpProp, sizeof(SPropValue)) ||
- FBadPropTag(lpProp->ulPropTag))
- return TRUE;
-
- switch (PROP_TYPE(lpProp->ulPropTag))
- {
- /* Single value properties containing pointers */
- case PT_STRING8:
- if (!lpProp->Value.lpszA || IsBadStringPtrA(lpProp->Value.lpszA, -1))
- return TRUE;
- break;
- case PT_UNICODE:
- if (!lpProp->Value.lpszW || IsBadStringPtrW(lpProp->Value.lpszW, -1))
- return TRUE;
- break;
- case PT_BINARY:
- if (IsBadReadPtr(lpProp->Value.bin.lpb, lpProp->Value.bin.cb))
- return TRUE;
- break;
- case PT_CLSID:
- if (IsBadReadPtr(lpProp->Value.lpguid, sizeof(GUID)))
- return TRUE;
- break;
-
- /* Multiple value properties (arrays) containing no pointers */
- case PT_MV_I2:
- return PROP_BadArray(lpProp, sizeof(SHORT));
- case PT_MV_LONG:
- return PROP_BadArray(lpProp, sizeof(LONG));
- case PT_MV_LONGLONG:
- return PROP_BadArray(lpProp, sizeof(LONG64));
- case PT_MV_FLOAT:
- return PROP_BadArray(lpProp, sizeof(float));
- case PT_MV_SYSTIME:
- return PROP_BadArray(lpProp, sizeof(FILETIME));
- case PT_MV_APPTIME:
- case PT_MV_DOUBLE:
- return PROP_BadArray(lpProp, sizeof(double));
- case PT_MV_CURRENCY:
- return PROP_BadArray(lpProp, sizeof(CY));
- case PT_MV_CLSID:
- return PROP_BadArray(lpProp, sizeof(GUID));
-
- /* Multiple value properties containing pointers */
- case PT_MV_STRING8:
- return FBadRglpszA(lpProp->Value.MVszA.lppszA,
- lpProp->Value.MVszA.cValues);
- case PT_MV_UNICODE:
- return FBadRglpszW(lpProp->Value.MVszW.lppszW,
- lpProp->Value.MVszW.cValues);
- case PT_MV_BINARY:
- return FBadEntryList(&lpProp->Value.MVbin);
- }
- return FALSE;
-}
-
-/*************************************************************************
- * FBadColumnSet@4 (MAPI32.182)
- *
- * Determine if an array of property tags is invalid
- *
- * PARAMS
- * lpCols [I] Property tag array to check
- *
- * RETURNS
- * TRUE, if lpCols is invalid, FALSE otherwise.
- */
-ULONG WINAPI FBadColumnSet(LPSPropTagArray lpCols)
-{
- ULONG ulRet = FALSE, i;
-
- TRACE("(%p)\n", lpCols);
-
- if (!lpCols || IsBadReadPtr(lpCols, CbSPropTagArray(lpCols)))
- ulRet = TRUE;
- else
- {
- for (i = 0; i < lpCols->cValues; i++)
- {
- if ((lpCols->aulPropTag[i] & PROP_TYPE_MASK) == PT_ERROR ||
- FBadPropTag(lpCols->aulPropTag[i]))
- {
- ulRet = TRUE;
- break;
- }
- }
- }
- TRACE("Returning %s\n", ulRet ? "TRUE" : "FALSE");
- return ulRet;
-}
-
-
-/**************************************************************************
- * IPropData {MAPI32}
- *
- * A default Mapi interface to provide manipulation of object properties.
- *
- * DESCRIPTION
- * This object provides a default interface suitable in some cases as an
- * implementation of the IMAPIProp interface (which has no default
- * implementation). In addition to the IMAPIProp() methods inherited, this
- * interface allows read/write control over access to the object and its
- * individual properties.
- *
- * To obtain the default implementation of this interface from Mapi, call
- * CreateIProp().
- *
- * METHODS
- */
-
-/* A single property in a property data collection */
-typedef struct
-{
- struct list entry;
- ULONG ulAccess; /* The property value access level */
- LPSPropValue value; /* The property value */
-} IPropDataItem, *LPIPropDataItem;
-
- /* The main property data collection structure */
-typedef struct
-{
- IPropData IPropData_iface;
- LONG lRef; /* Reference count */
- ALLOCATEBUFFER *lpAlloc; /* Memory allocation routine */
- ALLOCATEMORE *lpMore; /* Linked memory allocation routine */
- FREEBUFFER *lpFree; /* Memory free routine */
- ULONG ulObjAccess; /* Object access level */
- ULONG ulNumValues; /* Number of items in values list */
- struct list values; /* List of property values */
- CRITICAL_SECTION cs; /* Lock for thread safety */
-} IPropDataImpl;
-
-static inline IPropDataImpl *impl_from_IPropData(IPropData *iface)
-{
- return CONTAINING_RECORD(iface, IPropDataImpl, IPropData_iface);
-}
-
-/* Internal - Get a property value, assumes lock is held */
-static IPropDataItem *IMAPIPROP_GetValue(IPropDataImpl *This, ULONG ulPropTag)
-{
- struct list *cursor;
-
- LIST_FOR_EACH(cursor, &This->values)
- {
- LPIPropDataItem current = LIST_ENTRY(cursor, IPropDataItem, entry);
- /* Note that property types don't have to match, just Id's */
- if (PROP_ID(current->value->ulPropTag) == PROP_ID(ulPropTag))
- return current;
- }
- return NULL;
-}
-
-/* Internal - Add a new property value, assumes lock is held */
-static IPropDataItem *IMAPIPROP_AddValue(IPropDataImpl *This,
- LPSPropValue lpProp)
-{
- LPVOID lpMem;
- LPIPropDataItem lpNew;
- HRESULT hRet;
-
- hRet = This->lpAlloc(sizeof(IPropDataItem), &lpMem);
-
- if (SUCCEEDED(hRet))
- {
- lpNew = lpMem;
- lpNew->ulAccess = IPROP_READWRITE;
-
- /* Allocate the value separately so we can update it easily */
- lpMem = NULL;
- hRet = This->lpAlloc(sizeof(SPropValue), &lpMem);
- if (SUCCEEDED(hRet))
- {
- lpNew->value = lpMem;
-
- hRet = PropCopyMore(lpNew->value, lpProp, This->lpMore, lpMem);
- if (SUCCEEDED(hRet))
- {
- list_add_tail(&This->values, &lpNew->entry);
- This->ulNumValues++;
- return lpNew;
- }
- This->lpFree(lpNew->value);
- }
- This->lpFree(lpNew);
- }
- return NULL;
-}
-
-/* Internal - Lock an IPropData object */
-static inline void IMAPIPROP_Lock(IPropDataImpl *This)
-{
- EnterCriticalSection(&This->cs);
-}
-
-/* Internal - Unlock an IPropData object */
-static inline void IMAPIPROP_Unlock(IPropDataImpl *This)
-{
- LeaveCriticalSection(&This->cs);
-}
-
-/* This one seems to be missing from mapidefs.h */
-#define CbNewSPropProblemArray(c) \
- (offsetof(SPropProblemArray,aProblem)+(c)*sizeof(SPropProblem))
-
-/**************************************************************************
- * IPropData_QueryInterface {MAPI32}
- *
- * Inherited method from the IUnknown Interface.
- * See IUnknown_QueryInterface.
- */
-static HRESULT WINAPI IPropData_fnQueryInterface(LPPROPDATA iface, REFIID riid, LPVOID *ppvObj)
-{
- IPropDataImpl *This = impl_from_IPropData(iface);
-
- TRACE("(%p,%s,%p)\n", This, debugstr_guid(riid), ppvObj);
-
- if (!ppvObj || !riid)
- return MAPI_E_INVALID_PARAMETER;
-
- *ppvObj = NULL;
-
- if(IsEqualIID(riid, &IID_IUnknown) ||
- IsEqualIID(riid, &IID_IMAPIProp) ||
- IsEqualIID(riid, &IID_IMAPIPropData))
- {
- *ppvObj = &This->IPropData_iface;
- IPropData_AddRef(iface);
- TRACE("returning %p\n", *ppvObj);
- return S_OK;
- }
-
- TRACE("returning E_NOINTERFACE\n");
- return MAPI_E_INTERFACE_NOT_SUPPORTED;
-}
-
-/**************************************************************************
- * IPropData_AddRef {MAPI32}
- *
- * Inherited method from the IUnknown Interface.
- * See IUnknown_AddRef.
- */
-static ULONG WINAPI IPropData_fnAddRef(LPPROPDATA iface)
-{
- IPropDataImpl *This = impl_from_IPropData(iface);
-
- TRACE("(%p)->(count before=%u)\n", This, This->lRef);
-
- return InterlockedIncrement(&This->lRef);
-}
-
-/**************************************************************************
- * IPropData_Release {MAPI32}
- *
- * Inherited method from the IUnknown Interface.
- * See IUnknown_Release.
- */
-static ULONG WINAPI IPropData_fnRelease(LPPROPDATA iface)
-{
- IPropDataImpl *This = impl_from_IPropData(iface);
- LONG lRef;
-
- TRACE("(%p)->(count before=%u)\n", This, This->lRef);
-
- lRef = InterlockedDecrement(&This->lRef);
- if (!lRef)
- {
- TRACE("Destroying IPropData (%p)\n",This);
-
- /* Note: No need to lock, since no other thread is referencing iface */
- while (!list_empty(&This->values))
- {
- struct list *head = list_head(&This->values);
- LPIPropDataItem current = LIST_ENTRY(head, IPropDataItem, entry);
- list_remove(head);
- This->lpFree(current->value);
- This->lpFree(current);
- }
- This->cs.DebugInfo->Spare[0] = 0;
- DeleteCriticalSection(&This->cs);
- This->lpFree(This);
- }
- return (ULONG)lRef;
-}
-
-/**************************************************************************
- * IPropData_GetLastError {MAPI32}
- *
- * Get information about the last error that occurred in an IMAPIProp object.
- *
- * PARAMS
- * iface [I] IMAPIProp object that experienced the error
- * hRes [I] Result of the call that returned an error
- * ulFlags [I] 0=return Ascii strings, MAPI_UNICODE=return Unicode strings
- * lppError [O] Destination for detailed error information
- *
- * RETURNS
- * Success: S_OK. *lppError contains details about the last error.
- * Failure: MAPI_E_INVALID_PARAMETER, if any parameter is invalid,
- * MAPI_E_NOT_ENOUGH_MEMORY, if memory allocation fails.
- *
- * NOTES
- * - If this function succeeds, the returned information in *lppError must be
- * freed using MAPIFreeBuffer() once the caller is finished with it.
- * - It is possible for this function to succeed and set *lppError to NULL,
- * if there is no further information to report about hRes.
- */
-static HRESULT WINAPI IPropData_fnGetLastError(LPPROPDATA iface, HRESULT hRes, ULONG ulFlags,
- LPMAPIERROR *lppError)
-{
- TRACE("(%p,0x%08X,0x%08X,%p)\n", iface, hRes, ulFlags, lppError);
-
- if (!lppError || SUCCEEDED(hRes) || (ulFlags & ~MAPI_UNICODE))
- return MAPI_E_INVALID_PARAMETER;
-
- *lppError = NULL;
- return S_OK;
-}
-
-/**************************************************************************
- * IPropData_SaveChanges {MAPI32}
- *
- * Update any changes made to a transactional IMAPIProp object.
- *
- * PARAMS
- * iface [I] IMAPIProp object to update
- * ulFlags [I] Flags controlling the update.
- *
- * RETURNS
- * Success: S_OK. Any outstanding changes are committed to the object.
- * Failure: An HRESULT error code describing the error.
- */
-static HRESULT WINAPI IPropData_fnSaveChanges(LPPROPDATA iface, ULONG ulFlags)
-{
- TRACE("(%p,0x%08X)\n", iface, ulFlags);
-
- /* Since this object is not transacted we do not need to implement this */
- /* FIXME: Should we set the access levels to clean? */
- return S_OK;
-}
-
-/**************************************************************************
- * IPropData_GetProps {MAPI32}
- *
- * Get property values from an IMAPIProp object.
- *
- * PARAMS
- * iface [I] IMAPIProp object to get the property values from
- * lpTags [I] Property tags of property values to be retrieved
- * ulFlags [I] Return 0=Ascii MAPI_UNICODE=Unicode strings for
- * unspecified types
- * lpCount [O] Destination for number of properties returned
- * lppProps [O] Destination for returned property values
- *
- * RETURNS
- * Success: S_OK. *lppProps and *lpCount are updated.
- * Failure: MAPI_E_INVALID_PARAMETER, if any parameter is invalid.
- * MAPI_E_NOT_ENOUGH_MEMORY, if memory allocation fails, or
- * MAPI_W_ERRORS_RETURNED if not all properties were retrieved
- * successfully.
- * NOTES
- * - If MAPI_W_ERRORS_RETURNED is returned, any properties that could not be
- * retrieved from iface are present in lppProps with their type
- * changed to PT_ERROR and Id unchanged.
- */
-static HRESULT WINAPI IPropData_fnGetProps(LPPROPDATA iface, LPSPropTagArray lpTags, ULONG ulFlags,
- ULONG *lpCount, LPSPropValue *lppProps)
-{
- IPropDataImpl *This = impl_from_IPropData(iface);
- ULONG i;
- HRESULT hRet = S_OK;
-
- TRACE("(%p,%p,0x%08x,%p,%p) stub\n", iface, lpTags, ulFlags,
- lpCount, lppProps);
-
- if (!iface || ulFlags & ~MAPI_UNICODE || !lpTags || *lpCount || !lppProps)
- return MAPI_E_INVALID_PARAMETER;
-
- FIXME("semi-stub, flags not supported\n");
-
- *lpCount = lpTags->cValues;
- *lppProps = NULL;
-
- if (*lpCount)
- {
- hRet = MAPIAllocateBuffer(*lpCount * sizeof(SPropValue), (LPVOID*)lppProps);
- if (FAILED(hRet))
- return hRet;
-
- IMAPIPROP_Lock(This);
-
- for (i = 0; i < lpTags->cValues; i++)
- {
- HRESULT hRetTmp = E_INVALIDARG;
- LPIPropDataItem item;
-
- item = IMAPIPROP_GetValue(This, lpTags->aulPropTag[i]);
-
- if (item)
- hRetTmp = PropCopyMore(&(*lppProps)[i], item->value,
- This->lpMore, *lppProps);
- if (FAILED(hRetTmp))
- {
- hRet = MAPI_W_ERRORS_RETURNED;
- (*lppProps)[i].ulPropTag =
- CHANGE_PROP_TYPE(lpTags->aulPropTag[i], PT_ERROR);
- }
- }
-
- IMAPIPROP_Unlock(This);
- }
- return hRet;
-}
-
-/**************************************************************************
- * MAPIProp_GetPropList {MAPI32}
- *
- * Get the list of property tags for all values in an IMAPIProp object.
- *
- * PARAMS
- * iface [I] IMAPIProp object to get the property tag list from
- * ulFlags [I] Return 0=Ascii MAPI_UNICODE=Unicode strings for
- * unspecified types
- * lppTags [O] Destination for the retrieved property tag list
- *
- * RETURNS
- * Success: S_OK. *lppTags contains the tags for all available properties.
- * Failure: MAPI_E_INVALID_PARAMETER, if any parameter is invalid.
- * MAPI_E_BAD_CHARWIDTH, if Ascii or Unicode strings are requested
- * and that type of string is not supported.
- */
-static HRESULT WINAPI IPropData_fnGetPropList(LPPROPDATA iface, ULONG ulFlags,
- LPSPropTagArray *lppTags)
-{
- IPropDataImpl *This = impl_from_IPropData(iface);
- ULONG i;
- HRESULT hRet;
-
- TRACE("(%p,0x%08x,%p) stub\n", iface, ulFlags, lppTags);
-
- if (!iface || ulFlags & ~MAPI_UNICODE || !lppTags)
- return MAPI_E_INVALID_PARAMETER;
-
- FIXME("semi-stub, flags not supported\n");
-
- *lppTags = NULL;
-
- IMAPIPROP_Lock(This);
-
- hRet = MAPIAllocateBuffer(CbNewSPropTagArray(This->ulNumValues),
- (LPVOID*)lppTags);
- if (SUCCEEDED(hRet))
- {
- struct list *cursor;
-
- i = 0;
- LIST_FOR_EACH(cursor, &This->values)
- {
- LPIPropDataItem current = LIST_ENTRY(cursor, IPropDataItem, entry);
- (*lppTags)->aulPropTag[i] = current->value->ulPropTag;
- i++;
- }
- (*lppTags)->cValues = This->ulNumValues;
- }
-
- IMAPIPROP_Unlock(This);
- return hRet;
-}
-
-/**************************************************************************
- * IPropData_OpenProperty {MAPI32}
- *
- * Not documented at this time.
- *
- * RETURNS
- * An HRESULT success/failure code.
- */
-static HRESULT WINAPI IPropData_fnOpenProperty(LPPROPDATA iface, ULONG ulPropTag, LPCIID iid,
- ULONG ulOpts, ULONG ulFlags, LPUNKNOWN *lpUnk)
-{
- FIXME("(%p,%u,%s,%u,0x%08x,%p) stub\n", iface, ulPropTag,
- debugstr_guid(iid), ulOpts, ulFlags, lpUnk);
- return MAPI_E_NO_SUPPORT;
-}
-
-
-/**************************************************************************
- * IPropData_SetProps {MAPI32}
- *
- * Add or edit the property values in an IMAPIProp object.
- *
- * PARAMS
- * iface [I] IMAPIProp object to get the property tag list from
- * ulValues [I] Number of properties in lpProps
- * lpProps [I] Property values to set
- * lppProbs [O] Optional destination for any problems that occurred
- *
- * RETURNS
- * Success: S_OK. The properties in lpProps are added to iface if they don't
- * exist, or changed to the values in lpProps if they do
- * Failure: An HRESULT error code describing the error
- */
-static HRESULT WINAPI IPropData_fnSetProps(LPPROPDATA iface, ULONG ulValues, LPSPropValue lpProps,
- LPSPropProblemArray *lppProbs)
-{
- IPropDataImpl *This = impl_from_IPropData(iface);
- HRESULT hRet = S_OK;
- ULONG i;
-
- TRACE("(%p,%u,%p,%p)\n", iface, ulValues, lpProps, lppProbs);
-
- if (!iface || !lpProps)
- return MAPI_E_INVALID_PARAMETER;
-
- for (i = 0; i < ulValues; i++)
- {
- if (FBadProp(&lpProps[i]) ||
- PROP_TYPE(lpProps[i].ulPropTag) == PT_OBJECT ||
- PROP_TYPE(lpProps[i].ulPropTag) == PT_NULL)
- return MAPI_E_INVALID_PARAMETER;
- }
-
- IMAPIPROP_Lock(This);
-
- /* FIXME: Under what circumstances is lpProbs created? */
- for (i = 0; i < ulValues; i++)
- {
- LPIPropDataItem item = IMAPIPROP_GetValue(This, lpProps[i].ulPropTag);
-
- if (item)
- {
- HRESULT hRetTmp;
- LPVOID lpMem = NULL;
-
- /* Found, so update the existing value */
- if (item->value->ulPropTag != lpProps[i].ulPropTag)
- FIXME("semi-stub, overwriting type (not coercing)\n");
-
- hRetTmp = This->lpAlloc(sizeof(SPropValue), &lpMem);
- if (SUCCEEDED(hRetTmp))
- {
- hRetTmp = PropCopyMore(lpMem, &lpProps[i], This->lpMore, lpMem);
- if (SUCCEEDED(hRetTmp))
- {
- This->lpFree(item->value);
- item->value = lpMem;
- continue;
- }
- This->lpFree(lpMem);
- }
- hRet = hRetTmp;
- }
- else
- {
- /* Add new value */
- if (!IMAPIPROP_AddValue(This, &lpProps[i]))
- hRet = MAPI_E_NOT_ENOUGH_MEMORY;
- }
- }
-
- IMAPIPROP_Unlock(This);
- return hRet;
-}
-
-/**************************************************************************
- * IPropData_DeleteProps {MAPI32}
- *
- * Delete one or more property values from an IMAPIProp object.
- *
- * PARAMS
- * iface [I] IMAPIProp object to remove property values from.
- * lpTags [I] Collection of property Id's to remove from iface.
- * lppProbs [O] Destination for problems encountered, if any.
- *
- * RETURNS
- * Success: S_OK. Any properties in iface matching property Id's in lpTags have
- * been deleted. If lppProbs is non-NULL it contains details of any
- * errors that occurred.
- * Failure: MAPI_E_INVALID_PARAMETER, if any parameter is invalid.
- * E_ACCESSDENIED, if this object was created using CreateIProp() and
- * a subsequent call to IPropData_SetObjAccess() was made specifying
- * IPROP_READONLY as the access type.
- *
- * NOTES
- * - lppProbs will not be populated for cases where a property Id is present
- * in lpTags but not in iface.
- * - lppProbs should be deleted with MAPIFreeBuffer() if returned.
- */
-static HRESULT WINAPI IPropData_fnDeleteProps(LPPROPDATA iface, LPSPropTagArray lpTags,
- LPSPropProblemArray *lppProbs)
-{
- IPropDataImpl *This = impl_from_IPropData(iface);
- ULONG i, numProbs = 0;
- HRESULT hRet = S_OK;
-
- TRACE("(%p,%p,%p)\n", iface, lpTags, lppProbs);
-
- if (!iface || !lpTags)
- return MAPI_E_INVALID_PARAMETER;
-
- if (lppProbs)
- *lppProbs = NULL;
-
- for (i = 0; i < lpTags->cValues; i++)
- {
- if (FBadPropTag(lpTags->aulPropTag[i]) ||
- PROP_TYPE(lpTags->aulPropTag[i]) == PT_OBJECT ||
- PROP_TYPE(lpTags->aulPropTag[i]) == PT_NULL)
- return MAPI_E_INVALID_PARAMETER;
- }
-
- IMAPIPROP_Lock(This);
-
- if (This->ulObjAccess != IPROP_READWRITE)
- {
- IMAPIPROP_Unlock(This);
- return E_ACCESSDENIED;
- }
-
- for (i = 0; i < lpTags->cValues; i++)
- {
- LPIPropDataItem item = IMAPIPROP_GetValue(This, lpTags->aulPropTag[i]);
-
- if (item)
- {
- if (item->ulAccess & IPROP_READWRITE)
- {
- /* Everything hunky-dory, remove the item */
- list_remove(&item->entry);
- This->lpFree(item->value); /* Also frees value pointers */
- This->lpFree(item);
- This->ulNumValues--;
- }
- else if (lppProbs)
- {
- /* Can't write the value. Create/populate problems array */
- if (!*lppProbs)
- {
- /* Create problems array */
- ULONG ulSize = CbNewSPropProblemArray(lpTags->cValues - i);
- HRESULT hRetTmp = MAPIAllocateBuffer(ulSize, (LPVOID*)lppProbs);
- if (FAILED(hRetTmp))
- hRet = hRetTmp;
- }
- if (*lppProbs)
- {
- LPSPropProblem lpProb = &(*lppProbs)->aProblem[numProbs];
- lpProb->ulIndex = i;
- lpProb->ulPropTag = lpTags->aulPropTag[i];
- lpProb->scode = E_ACCESSDENIED;
- numProbs++;
- }
- }
- }
- }
- if (lppProbs && *lppProbs)
- (*lppProbs)->cProblem = numProbs;
-
- IMAPIPROP_Unlock(This);
- return hRet;
-}
-
-
-/**************************************************************************
- * IPropData_CopyTo {MAPI32}
- *
- * Not documented at this time.
- *
- * RETURNS
- * An HRESULT success/failure code.
- */
-static HRESULT WINAPI IPropData_fnCopyTo(LPPROPDATA iface, ULONG niids, LPCIID lpiidExcl,
- LPSPropTagArray lpPropsExcl, ULONG ulParam,
- LPMAPIPROGRESS lpIProgress, LPCIID lpIfaceIid,
- LPVOID lpDstObj, ULONG ulFlags,
- LPSPropProblemArray *lppProbs)
-{
- FIXME("(%p,%u,%p,%p,%x,%p,%s,%p,0x%08X,%p) stub\n", iface, niids,
- lpiidExcl, lpPropsExcl, ulParam, lpIProgress,
- debugstr_guid(lpIfaceIid), lpDstObj, ulFlags, lppProbs);
- return MAPI_E_NO_SUPPORT;
-}
-
-/**************************************************************************
- * IPropData_CopyProps {MAPI32}
- *
- * Not documented at this time.
- *
- * RETURNS
- * An HRESULT success/failure code.
- */
-static HRESULT WINAPI IPropData_fnCopyProps(LPPROPDATA iface, LPSPropTagArray lpInclProps,
- ULONG ulParam, LPMAPIPROGRESS lpIProgress,
- LPCIID lpIface, LPVOID lpDstObj, ULONG ulFlags,
- LPSPropProblemArray *lppProbs)
-{
- FIXME("(%p,%p,%x,%p,%s,%p,0x%08X,%p) stub\n", iface, lpInclProps,
- ulParam, lpIProgress, debugstr_guid(lpIface), lpDstObj, ulFlags,
- lppProbs);
- return MAPI_E_NO_SUPPORT;
-}
-
-/**************************************************************************
- * IPropData_GetNamesFromIDs {MAPI32}
- *
- * Get the names of properties from their identifiers.
- *
- * PARAMS
- * iface [I] IMAPIProp object to operate on
- * lppPropTags [I/O] Property identifiers to get the names for, or NULL to
- * get all names
- * iid [I] Property set identifier, or NULL
- * ulFlags [I] MAPI_NO_IDS=Don't return numeric named properties,
- * or MAPI_NO_STRINGS=Don't return strings
- * lpCount [O] Destination for number of properties returned
- * lpppNames [O] Destination for returned names
- *
- * RETURNS
- * Success: S_OK. *lppPropTags and lpppNames contain the returned
- * name/identifiers.
- * Failure: MAPI_E_NO_SUPPORT, if the object does not support named properties,
- * MAPI_E_NOT_ENOUGH_MEMORY, if memory allocation fails, or
- * MAPI_W_ERRORS_RETURNED if not all properties were retrieved
- * successfully.
- */
-static HRESULT WINAPI IPropData_fnGetNamesFromIDs(LPPROPDATA iface, LPSPropTagArray *lppPropTags,
- LPGUID iid, ULONG ulFlags, ULONG *lpCount,
- LPMAPINAMEID **lpppNames)
-{
- FIXME("(%p,%p,%s,0x%08X,%p,%p) stub\n", iface, lppPropTags,
- debugstr_guid(iid), ulFlags, lpCount, lpppNames);
- return MAPI_E_NO_SUPPORT;
-}
-
-/**************************************************************************
- * IPropData_GetIDsFromNames {MAPI32}
- *
- * Get property identifiers associated with one or more named properties.
- *
- * PARAMS
- * iface [I] IMAPIProp object to operate on
- * ulNames [I] Number of names in lppNames
- * lppNames [I] Names to query or create, or NULL to query all names
- * ulFlags [I] Pass MAPI_CREATE to create new named properties
- * lppPropTags [O] Destination for queried or created property identifiers
- *
- * RETURNS
- * Success: S_OK. *lppPropTags contains the property tags created or requested.
- * Failure: MAPI_E_NO_SUPPORT, if the object does not support named properties,
- * MAPI_E_TOO_BIG, if the object cannot process the number of
- * properties involved.
- * MAPI_E_NOT_ENOUGH_MEMORY, if memory allocation fails, or
- * MAPI_W_ERRORS_RETURNED if not all properties were retrieved
- * successfully.
- */
-static HRESULT WINAPI IPropData_fnGetIDsFromNames(LPPROPDATA iface, ULONG ulNames,
- LPMAPINAMEID *lppNames, ULONG ulFlags,
- LPSPropTagArray *lppPropTags)
-{
- FIXME("(%p,%d,%p,0x%08X,%p) stub\n",
- iface, ulNames, lppNames, ulFlags, lppPropTags);
- return MAPI_E_NO_SUPPORT;
-}
-
-/**************************************************************************
- * IPropData_HrSetObjAccess {MAPI32}
- *
- * Set the access level of an IPropData object.
- *
- * PARAMS
- * iface [I] IPropData object to set the access on
- * ulAccess [I] Either IPROP_READONLY or IPROP_READWRITE for read or
- * read/write access respectively.
- *
- * RETURNS
- * Success: S_OK. The objects access level is changed.
- * Failure: MAPI_E_INVALID_PARAMETER, if any parameter is invalid.
- */
-static HRESULT WINAPI
-IPropData_fnHrSetObjAccess(LPPROPDATA iface, ULONG ulAccess)
-{
- IPropDataImpl *This = impl_from_IPropData(iface);
-
- TRACE("(%p,%x)\n", iface, ulAccess);
-
- if (!iface || ulAccess < IPROP_READONLY || ulAccess > IPROP_READWRITE)
- return MAPI_E_INVALID_PARAMETER;
-
- IMAPIPROP_Lock(This);
-
- This->ulObjAccess = ulAccess;
-
- IMAPIPROP_Unlock(This);
- return S_OK;
-}
-
-/* Internal - determine if an access value is bad */
-static inline BOOL PROP_IsBadAccess(ULONG ulAccess)
-{
- switch (ulAccess)
- {
- case IPROP_READONLY|IPROP_CLEAN:
- case IPROP_READONLY|IPROP_DIRTY:
- case IPROP_READWRITE|IPROP_CLEAN:
- case IPROP_READWRITE|IPROP_DIRTY:
- return FALSE;
- }
- return TRUE;
-}
-
-/**************************************************************************
- * IPropData_HrSetPropAccess {MAPI32}
- *
- * Set the access levels for a group of property values in an IPropData object.
- *
- * PARAMS
- * iface [I] IPropData object to set access levels in.
- * lpTags [I] List of property Id's to set access for.
- * lpAccess [O] Access level for each property in lpTags.
- *
- * RETURNS
- * Success: S_OK. The access level of each property value in lpTags that is
- * present in iface is changed.
- * Failure: MAPI_E_INVALID_PARAMETER, if any parameter is invalid.
- *
- * NOTES
- * - Each access level in lpAccess must contain at least one of IPROP_READONLY
- * or IPROP_READWRITE, but not both, and also IPROP_CLEAN or IPROP_DIRTY,
- * but not both. No other bits should be set.
- * - If a property Id in lpTags is not present in iface, it is ignored.
- */
-static HRESULT WINAPI
-IPropData_fnHrSetPropAccess(LPPROPDATA iface, LPSPropTagArray lpTags,
- ULONG *lpAccess)
-{
- IPropDataImpl *This = impl_from_IPropData(iface);
- ULONG i;
-
- TRACE("(%p,%p,%p)\n", iface, lpTags, lpAccess);
-
- if (!iface || !lpTags || !lpAccess)
- return MAPI_E_INVALID_PARAMETER;
-
- for (i = 0; i < lpTags->cValues; i++)
- {
- if (FBadPropTag(lpTags->aulPropTag[i]) || PROP_IsBadAccess(lpAccess[i]))
- return MAPI_E_INVALID_PARAMETER;
- }
-
- IMAPIPROP_Lock(This);
-
- for (i = 0; i < lpTags->cValues; i++)
- {
- LPIPropDataItem item = IMAPIPROP_GetValue(This, lpTags->aulPropTag[i]);
-
- if (item)
- item->ulAccess = lpAccess[i];
- }
-
- IMAPIPROP_Unlock(This);
- return S_OK;
-}
-
-/**************************************************************************
- * IPropData_HrGetPropAccess {MAPI32}
- *
- * Get the access levels for a group of property values in an IPropData object.
- *
- * PARAMS
- * iface [I] IPropData object to get access levels from.
- * lppTags [O] Destination for the list of property Id's in iface.
- * lppAccess [O] Destination for access level for each property in lppTags.
- *
- * RETURNS
- * Success: S_OK. lppTags and lppAccess contain the property Id's and the
- * Access level of each property value in iface.
- * Failure: MAPI_E_INVALID_PARAMETER, if any parameter is invalid, or
- * MAPI_E_NOT_ENOUGH_MEMORY if memory allocation fails.
- *
- * NOTES
- * - *lppTags and *lppAccess should be freed with MAPIFreeBuffer() by the caller.
- */
-static HRESULT WINAPI
-IPropData_fnHrGetPropAccess(LPPROPDATA iface, LPSPropTagArray *lppTags,
- ULONG **lppAccess)
-{
- IPropDataImpl *This = impl_from_IPropData(iface);
- LPVOID lpMem;
- HRESULT hRet;
- ULONG i;
-
- TRACE("(%p,%p,%p) stub\n", iface, lppTags, lppAccess);
-
- if (!iface || !lppTags || !lppAccess)
- return MAPI_E_INVALID_PARAMETER;
-
- *lppTags = NULL;
- *lppAccess = NULL;
-
- IMAPIPROP_Lock(This);
-
- hRet = This->lpAlloc(CbNewSPropTagArray(This->ulNumValues), &lpMem);
- if (SUCCEEDED(hRet))
- {
- *lppTags = lpMem;
-
- hRet = This->lpAlloc(This->ulNumValues * sizeof(ULONG), &lpMem);
- if (SUCCEEDED(hRet))
- {
- struct list *cursor;
-
- *lppAccess = lpMem;
- (*lppTags)->cValues = This->ulNumValues;
-
- i = 0;
- LIST_FOR_EACH(cursor, &This->values)
- {
- LPIPropDataItem item = LIST_ENTRY(cursor, IPropDataItem, entry);
- (*lppTags)->aulPropTag[i] = item->value->ulPropTag;
- (*lppAccess)[i] = item->ulAccess;
- i++;
- }
- IMAPIPROP_Unlock(This);
- return S_OK;
- }
- This->lpFree(*lppTags);
- *lppTags = 0;
- }
- IMAPIPROP_Unlock(This);
- return MAPI_E_NOT_ENOUGH_MEMORY;
-}
-
-/**************************************************************************
- * IPropData_HrAddObjProps {MAPI32}
- *
- * Not documented at this time.
- *
- * RETURNS
- * An HRESULT success/failure code.
- */
-static HRESULT WINAPI
-IPropData_fnHrAddObjProps(LPPROPDATA iface, LPSPropTagArray lpTags,
- LPSPropProblemArray *lppProbs)
-{
-#if 0
- ULONG i;
- HRESULT hRet;
- LPSPropValue lpValues;
-#endif
-
- FIXME("(%p,%p,%p) stub\n", iface, lpTags, lppProbs);
-
- if (!iface || !lpTags)
- return MAPI_E_INVALID_PARAMETER;
-
- /* FIXME: Below is the obvious implementation, adding all the properties
- * in lpTags to the object. However, it doesn't appear that this
- * is what this function does.
- */
- return S_OK;
-#if 0
- if (!lpTags->cValues)
- return S_OK;
-
- lpValues = HeapAlloc(GetProcessHeap(), HEAP_ZERO_MEMORY,
- lpTags->cValues * sizeof(SPropValue));
- if (!lpValues)
- return MAPI_E_NOT_ENOUGH_MEMORY;
-
- for (i = 0; i < lpTags->cValues; i++)
- lpValues[i].ulPropTag = lpTags->aulPropTag[i];
-
- hRet = IPropData_SetProps(iface, lpTags->cValues, lpValues, lppProbs);
- HeapFree(GetProcessHeap(), 0, lpValues);
- return hRet;
-#endif
-}
-
-static const IPropDataVtbl IPropDataImpl_vtbl =
-{
- IPropData_fnQueryInterface,
- IPropData_fnAddRef,
- IPropData_fnRelease,
- IPropData_fnGetLastError,
- IPropData_fnSaveChanges,
- IPropData_fnGetProps,
- IPropData_fnGetPropList,
- IPropData_fnOpenProperty,
- IPropData_fnSetProps,
- IPropData_fnDeleteProps,
- IPropData_fnCopyTo,
- IPropData_fnCopyProps,
- IPropData_fnGetNamesFromIDs,
- IPropData_fnGetIDsFromNames,
- IPropData_fnHrSetObjAccess,
- IPropData_fnHrSetPropAccess,
- IPropData_fnHrGetPropAccess,
- IPropData_fnHrAddObjProps
-};
-
-/*************************************************************************
- * CreateIProp@24 (MAPI32.60)
- *
- * Create an IPropData object.
- *
- * PARAMS
- * iid [I] GUID of the object to create. Use &IID_IMAPIPropData or NULL
- * lpAlloc [I] Memory allocation function. Use MAPIAllocateBuffer()
- * lpMore [I] Linked memory allocation function. Use MAPIAllocateMore()
- * lpFree [I] Memory free function. Use MAPIFreeBuffer()
- * lpReserved [I] Reserved, set to NULL
- * lppPropData [O] Destination for created IPropData object
- *
- * RETURNS
- * Success: S_OK. *lppPropData contains the newly created object.
- * Failure: MAPI_E_INTERFACE_NOT_SUPPORTED, if iid is non-NULL and not supported,
- * MAPI_E_INVALID_PARAMETER, if any parameter is invalid
- */
-SCODE WINAPI CreateIProp(LPCIID iid, ALLOCATEBUFFER *lpAlloc,
- ALLOCATEMORE *lpMore, FREEBUFFER *lpFree,
- LPVOID lpReserved, LPPROPDATA *lppPropData)
-{
- IPropDataImpl *lpPropData;
- SCODE scode;
-
- TRACE("(%s,%p,%p,%p,%p,%p)\n", debugstr_guid(iid), lpAlloc, lpMore, lpFree,
- lpReserved, lppPropData);
-
- if (lppPropData)
- *lppPropData = NULL;
-
- if (iid && !IsEqualGUID(iid, &IID_IMAPIPropData))
- return MAPI_E_INTERFACE_NOT_SUPPORTED;
-
- if (!lpAlloc || !lpMore || !lpFree || lpReserved || !lppPropData)
- return MAPI_E_INVALID_PARAMETER;
-
- scode = lpAlloc(sizeof(IPropDataImpl), (LPVOID*)&lpPropData);
-
- if (SUCCEEDED(scode))
- {
- lpPropData->IPropData_iface.lpVtbl = &IPropDataImpl_vtbl;
- lpPropData->lRef = 1;
- lpPropData->lpAlloc = lpAlloc;
- lpPropData->lpMore = lpMore;
- lpPropData->lpFree = lpFree;
- lpPropData->ulObjAccess = IPROP_READWRITE;
- lpPropData->ulNumValues = 0;
- list_init(&lpPropData->values);
- InitializeCriticalSection(&lpPropData->cs);
- lpPropData->cs.DebugInfo->Spare[0] = (DWORD_PTR)(__FILE__ ": IPropDataImpl.cs");
- *lppPropData = &lpPropData->IPropData_iface;
- }
- return scode;
-}