windows-nt/Source/XPSP1/NT/ds/adsi/ldap/umi2ldap.cxx

867 lines
23 KiB
C++
Raw Normal View History

2020-09-26 03:20:57 -05:00
//+---------------------------------------------------------------------------
//
// Microsoft Windows
// Copyright (C) Microsoft Corporation, 1992 - 2000.
//
// File: umi2ldap.cxx
//
// Contents: File containing the implemenation of the conversion routines
// that convert the user given UMI values to ldap values that can
// subsequently be cached if required.
//
// History: 02-17-00 AjayR Created.
//
//----------------------------------------------------------------------------
#include "ldap.hxx"
//+---------------------------------------------------------------------------
// Function: UmiTypeLPWSTRToLdapString
//
// Synopsis: Converts a string value to an equivalent ldap value.
//
// Arguments: Self explanatory
//
//
// Returns: HRESULT - S_OK or any failure error code.
//
// Modifies: LDAPOBJECT_STRING(pLdaDestObject)
//
//----------------------------------------------------------------------------
HRESULT
UmiTypeLPWSTRToLdapString(
LPWSTR pszSourceString,
PLDAPOBJECT pLdapDestObject
)
{
ADsAssert(pszSourceString);
//
// We should not have NULL values but it is a good idea to check.
//
if (pszSourceString) {
LDAPOBJECT_STRING(pLdapDestObject) = AllocADsStr(pszSourceString);
if (!LDAPOBJECT_STRING(pLdapDestObject)) {
RRETURN(E_OUTOFMEMORY);
}
}
RRETURN(S_OK);
}
//+---------------------------------------------------------------------------
// Function: UmiTypeToLdapTypeBoolean
//
// Synopsis: Converts a bool value to an ldap boolean value.
//
// Arguments: Self explanatory
//
// Returns: HRESULT - S_OK or any failure error code.
//
// Modifies: LDAPOBJECT_STRING(pLdaDestObject) appropriately.
//
//----------------------------------------------------------------------------
HRESULT
UmiTypeToLdapTypeBoolean(
BOOL fBool,
PLDAPOBJECT pLdapDestObject
)
{
if (fBool) {
LDAPOBJECT_STRING(pLdapDestObject) = AllocADsStr(L"TRUE");
}
else {
LDAPOBJECT_STRING(pLdapDestObject) = AllocADsStr(L"FALSE");
}
if (!LDAPOBJECT_STRING(pLdapDestObject)) {
RRETURN(E_OUTOFMEMORY);
}
RRETURN(S_OK);
}
//+---------------------------------------------------------------------------
// Function: UmiTypeToLdapTypeCopyI4
//
// Synopsis: Converts a long (I4) value to an equivalent ldap value.
//
// Arguments: Self explanatory
//
// Returns: HRESULT - S_OK or any failure error code.
//
// Modifies: LDAPOBJECT_STRING(pLdaDestObject) contains the new values.
//
//----------------------------------------------------------------------------
HRESULT
UmiTypeToLdapTypeCopyI4(
LONG lVal,
PLDAPOBJECT pLdapDestObject
)
{
HRESULT hr = S_OK;
TCHAR Buffer[64];
ADsAssert(pLdapDestObject);
_ltot(lVal, Buffer, 10);
LDAPOBJECT_STRING(pLdapDestObject) = AllocADsStr(Buffer);
if (!LDAPOBJECT_STRING(pLdapDestObject)) {
hr = E_OUTOFMEMORY;
}
RRETURN(hr);
}
//+---------------------------------------------------------------------------
// Function: UmiTypeToLdapTypeOctetString
//
// Synopsis: Converts an UmiOctetString to an ldap ber value.
//
// Arguments: Self explanatory
//
// Returns: HRESULT - S_OK or any failure error code.
//
// Modifies: pLdapDestObject is updated suitably with the ber value.
//
//----------------------------------------------------------------------------
HRESULT
UmiTypeToLdapTypeOctetString(
UMI_OCTET_STRING umiOctetStr,
PLDAPOBJECT pLdapDestObject
)
{
DWORD dwLength = 0;
if (umiOctetStr.lpValue) {
dwLength = umiOctetStr.uLength;
LDAPOBJECT_BERVAL(pLdapDestObject) = (struct berval *)
AllocADsMem(dwLength + sizeof(struct berval));
if (!LDAPOBJECT_BERVAL(pLdapDestObject)) {
RRETURN(E_OUTOFMEMORY);
}
//
// Set the pointer to data and the length in the dest object.
//
LDAPOBJECT_BERVAL_LEN(pLdapDestObject) = dwLength;
LDAPOBJECT_BERVAL_VAL(pLdapDestObject) = (CHAR *)
( (LPBYTE) LDAPOBJECT_BERVAL(pLdapDestObject)
+ sizeof(struct berval));
memcpy(
LDAPOBJECT_BERVAL_VAL(pLdapDestObject),
umiOctetStr.lpValue,
dwLength
);
} // umiOctetStr.lpValue
RRETURN(S_OK);
}
//+---------------------------------------------------------------------------
// Function: UmiTypeToLdapTypeSecurityDescriptor.
//
// Synopsis: Converts a UmiComObject that is an SD to an equivalent
// ldap binary blob.
//
// Arguments: umiComObject - Has the IADsSecDesc to convert.
// pLdapDestObjects - Return value of encoded ldap data.
// pCreds - Credentials to use for conversion.
// pszServerName - ServerName associated with SD.
//
// Returns: HRESULT - S_OK or any failure error code.
//
// Modifies: pLdapDestObject is updated suitably with the ber value.
//
//----------------------------------------------------------------------------
HRESULT
UmiTypeToLdapTypeCopySecurityDescriptor(
UMI_COM_OBJECT umiComObject,
PLDAPOBJECT pLdapDestObject,
CCredentials *pCreds,
LPWSTR pszServerName
)
{
HRESULT hr = S_OK;
PSECURITY_DESCRIPTOR pBinarySecDesc = NULL;
IUnknown *pUnk = (IUnknown *) umiComObject.pInterface;
IADsSecurityDescriptor* pADsSecDesc = NULL;
CCredentials creds;
DWORD dwSDLength = 0;
//
// QI for the IADsSecDesc, that way we can be sure of the interface.
//
hr = pUnk->QueryInterface(
IID_IADsSecurityDescriptor,
(void **) &pADsSecDesc
);
BAIL_ON_FAILURE(hr);
//
// Update the credentials if needed.
//
if (pCreds) {
creds = *pCreds;
}
//
// Call the helper that does the conversion in activeds.dll
//
hr = ConvertSecurityDescriptorToSecDes(
pszServerName,
creds,
pADsSecDesc,
&pBinarySecDesc,
&dwSDLength,
TRUE // NT style SD.
);
BAIL_ON_FAILURE(hr);
//
// Now we need to copy over the data into the ldap struct.
//
LDAPOBJECT_BERVAL(pLdapDestObject) =
(struct berval *) AllocADsMem( sizeof(struct berval) + dwSDLength);
if ( LDAPOBJECT_BERVAL(pLdapDestObject) == NULL) {
BAIL_ON_FAILURE(hr = E_OUTOFMEMORY);
}
LDAPOBJECT_BERVAL_LEN(pLdapDestObject) = dwSDLength;
LDAPOBJECT_BERVAL_VAL(pLdapDestObject) =
(CHAR *) ((LPBYTE) LDAPOBJECT_BERVAL(pLdapDestObject)
+ sizeof(struct berval));
memcpy(
LDAPOBJECT_BERVAL_VAL(pLdapDestObject),
pBinarySecDesc,
dwSDLength
);
error:
if (pBinarySecDesc) {
FreeADsMem(pBinarySecDesc);
}
if (pADsSecDesc) {
pADsSecDesc->Release();
}
RRETURN(hr);
}
//+---------------------------------------------------------------------------
// Function: UmiTypeToLdapTypeCopyDNWithBinary.
//
// Synopsis: Converts a UmiComObject that is DNWithBinary obj to
// and equivalent ldap data.
//
// Arguments: umiComObject - Has the IADsDNWithBinary to convert.
// pLdapDestObjects - Return value of encoded ldap data.
//
// Returns: HRESULT - S_OK or any failure error code.
//
// Modifies: pLdapDestObject is updated suitably with the ber value.
//
//----------------------------------------------------------------------------
HRESULT
UmiTypeToLdapTypeCopyDNWithBinary(
UMI_COM_OBJECT umiComObject,
PLDAPOBJECT pLdapDestObject
)
{
HRESULT hr = S_OK;
IUnknown * pUnk = (IUnknown *)umiComObject.pInterface;
VARIANT vVar;
VariantInit(&vVar);
vVar.vt = VT_DISPATCH;
hr = pUnk->QueryInterface(IID_IDispatch, (void **) &vVar.pdispVal);
BAIL_ON_FAILURE(hr);
//
// Call the var2ldap conversion helper to do all the hard work !.
//
hr = VarTypeToLdapTypeDNWithBinary(
&vVar,
pLdapDestObject
);
error:
VariantClear(&vVar);
RRETURN(hr);
}
//+---------------------------------------------------------------------------
// Function: UmiTypeToLdapTypeCopyDNWithString.
//
// Synopsis: Converts a UmiComObject that is DNWithString obj to
// and equivalent ldap data.
//
// Arguments: umiComObject - Has the IADsDNWithString to convert.
// pLdapDestObjects - Return value of encoded ldap data.
//
// Returns: HRESULT - S_OK or any failure error code.
//
// Modifies: pLdapDestObject is updated suitably with the ber value.
//
//----------------------------------------------------------------------------
HRESULT
UmiTypeToLdapTypeCopyDNWithString(
UMI_COM_OBJECT umiComObject,
PLDAPOBJECT pLdapDestObject
)
{
HRESULT hr = S_OK;
IUnknown * pUnk = (IUnknown *)umiComObject.pInterface;
VARIANT vVar;
VariantInit(&vVar);
vVar.vt = VT_DISPATCH;
hr = pUnk->QueryInterface(IID_IDispatch, (void **) &vVar.pdispVal);
BAIL_ON_FAILURE(hr);
//
// Call the var2ldap conversion helper to do all the hard work !.
//
hr = VarTypeToLdapTypeDNWithString(
&vVar,
pLdapDestObject
);
error:
VariantClear(&vVar);
RRETURN(hr);
}
//+---------------------------------------------------------------------------
// Function: UmiTypeToLdapTypeCopyI8
//
// Synopsis: Convert an int64 value to the corresponding ldap value.
//
// Arguments: Self explanatory
//
// Returns: HRESULT - S_OK or any failure error code.
//
// Modifies: pLdapDestObject contains the encoded large integer object.
//
//----------------------------------------------------------------------------
HRESULT
UmiTypeToLdapTypeCopyI8(
__int64 int64Val,
PLDAPOBJECT pLdapDestObject
)
{
HRESULT hr = S_OK;
TCHAR Buffer[64];
if (!swprintf (Buffer, L"%I64d", int64Val))
BAIL_ON_FAILURE(hr = E_ADS_CANT_CONVERT_DATATYPE);
LDAPOBJECT_STRING(pLdapDestObject) = /*(LPTSTR)*/ AllocADsStr( Buffer );
if (!LDAPOBJECT_STRING(pLdapDestObject)) {
BAIL_ON_FAILURE(hr = E_OUTOFMEMORY);
}
error :
RRETURN(hr);
}
//+---------------------------------------------------------------------------
// Function: UmiTypeToLdapTypeCopyUTCTime
//
// Synopsis: Convert a SYSTEMTIME object to the corresponding ldap value.
//
// Arguments: Self explanatory
//
// Returns: HRESULT - S_OK or any failure error code.
//
// Modifies: pLdapDestObject contains the encoded utc time value.
//
//----------------------------------------------------------------------------
HRESULT
UmiTypeToLdapTypeCopyUTCTime(
SYSTEMTIME sysTimeObj,
PLDAPOBJECT pLdapDestObject
)
{
HRESULT hr;
DWORD dwSyntaxId;
ADSVALUE adsValue;
adsValue.dwType = ADSTYPE_UTC_TIME;
adsValue.UTCTime = sysTimeObj;
//
// Use the helper to convert the value appropriately.
//
hr = AdsTypeToLdapTypeCopyTime(
&adsValue,
pLdapDestObject,
&dwSyntaxId
);
RRETURN(hr);
}
//+---------------------------------------------------------------------------
// Function: UmiTypeToLdapTypeCopyGeneralizedTime
//
// Synopsis: Converts a SystemTime value to a ldap generalized time value.
//
// Arguments: Self explanatory
//
// Returns: HRESULT - S_OK or any failure error code.
//
// Modifies: pLdapDestObject contains the encoded generalized time value.
//
//----------------------------------------------------------------------------
HRESULT
UmiTypeToLdapTypeCopyGeneralizedTime(
SYSTEMTIME sysTimeObj,
PLDAPOBJECT pLdapDestObject
)
{
HRESULT hr;
DWORD dwSyntaxId;
ADSVALUE adsValue;
adsValue.dwType = ADSTYPE_UTC_TIME;
adsValue.UTCTime = sysTimeObj;
//
// Use the helper to convert the value appropriately.
//
hr = AdsTypeToLdapTypeCopyGeneralizedTime(
&adsValue,
pLdapDestObject,
&dwSyntaxId
);
RRETURN(hr);
}
//+---------------------------------------------------------------------------
// Function: UmiTypeEnumToLdapTypeEnum
//
// Synopsis: Converts the passed in umiType to the equivalent ldapType.
// Note that the conversion is just for the type and not the actual
// data itself. Example UMI_TYPE_I4 to LDAPTYPE_INTEGER.
//
// Arguments: ulUmiType - Umi type to convert.
// pdwSyntax - Return ldap syntax.
//
// Returns: HRESULT - S_OK or any failure error code.
//
// Modifies: *pdwSyntax with appropriate value.
//
//----------------------------------------------------------------------------
HRESULT
UmiTypeToLdapTypeEnum(
ULONG ulUmiType,
PDWORD pdwSyntax
)
{
HRESULT hr = S_OK;
switch (ulUmiType) {
case UMI_TYPE_I4 :
*pdwSyntax = LDAPTYPE_INTEGER;
break;
case UMI_TYPE_I8 :
*pdwSyntax = LDAPTYPE_INTEGER8;
break;
case UMI_TYPE_SYSTEMTIME :
//
// What about utc Time ?
//
*pdwSyntax = LDAPTYPE_GENERALIZEDTIME;
break;
case UMI_TYPE_BOOL :
*pdwSyntax = LDAPTYPE_BOOLEAN;
break;
case UMI_TYPE_IUNKNOWN :
//
// How about the other IUnknowns ?
//
*pdwSyntax = LDAPTYPE_SECURITY_DESCRIPTOR;
break;
case UMI_TYPE_LPWSTR :
*pdwSyntax = LDAPTYPE_CASEIGNORESTRING;
break;
case UMI_TYPE_OCTETSTRING :
*pdwSyntax = LDAPTYPE_OCTETSTRING;
break;
case UMI_TYPE_UNDEFINED:
case UMI_TYPE_NULL :
case UMI_TYPE_I1 :
case UMI_TYPE_I2 :
case UMI_TYPE_UI1 :
case UMI_TYPE_UI2 :
case UMI_TYPE_UI4 :
case UMI_TYPE_UI8 :
case UMI_TYPE_R4 :
case UMI_TYPE_R8 :
case UMI_TYPE_FILETIME :
case UMI_TYPE_IDISPATCH :
case UMI_TYPE_VARIANT :
case UMI_TYPE_UMIARRAY :
case UMI_TYPE_DISCOVERY :
case UMI_TYPE_DEFAULT :
default:
*pdwSyntax = (DWORD) -1;
hr = E_FAIL;
break;
}
RRETURN(hr);
}
//+---------------------------------------------------------------------------
// Function: UmiTypeToLdapTypeCopy
//
// Synopsis: Helper routine to convert ldap values to the required UMI
// data type.
//
// Arguments: umiPropArray - input UMI data.
// ulFlags - flags indicating type of operation.
// pLdapDestObjects - Ptr to hold the output from routine.
// dwLdapSyntaxId - ref to dword.
// fUtcTime - optional defaulted to False.
//
// Returns: HRESULT - S_OK or any failure error code.
//
// Modifies: pLdapDestObjects to point to valid data.
// dwLdapSyntaxId with the ldap syntax id for the data type (this
// will enable us to return the data correctly to the user).
//
//----------------------------------------------------------------------------
HRESULT
UmiTypeToLdapTypeCopy(
UMI_PROPERTY_VALUES umiPropArray,
ULONG ulFlags,
LDAPOBJECTARRAY *pLdapDestObjects,
DWORD &dwLdapSyntaxId,
CCredentials *pCreds,
LPWSTR pszServerName,
BOOL fUtcTime
)
{
HRESULT hr = S_OK;
ULONG ulUmiType, ulCount, ulCtr;
PUMI_PROPERTY pUmiProp;
//
// Internal routine so an assert should be enough.
//
ADsAssert(pLdapDestObjects);
//
// Initalize count on ldapobjects to zero and
// default is string values for the contents.
//
pLdapDestObjects->dwCount = 0;
pLdapDestObjects->fIsString = TRUE;
//
// Verify that we have some valid data.
//
if (!umiPropArray.pPropArray || (umiPropArray.uCount != 1)) {
BAIL_ON_FAILURE(hr = E_INVALIDARG);
}
pUmiProp = umiPropArray.pPropArray;
ulUmiType = pUmiProp->uType;
ulCount = pUmiProp->uCount;
if ( ulCount == 0 ) {
pLdapDestObjects->dwCount = 0;
pLdapDestObjects->pLdapObjects = NULL;
RRETURN(S_OK);
}
pLdapDestObjects->pLdapObjects =
(PLDAPOBJECT)AllocADsMem( ulCount * sizeof(LDAPOBJECT));
if (pLdapDestObjects->pLdapObjects == NULL)
RRETURN(E_OUTOFMEMORY);
//
// If we are here, then pUmiValue has to be valid.
//
if (!pUmiProp->pUmiValue) {
BAIL_ON_FAILURE(hr = E_INVALIDARG);
}
for (ulCtr =0; ulCtr < ulCount; ulCtr++) {
//
// Need to go through and convert each of the values.
//
switch (ulUmiType) {
//
// Call appropriate routine based on type.
//
case UMI_TYPE_I1 :
case UMI_TYPE_I2 :
hr = E_ADS_CANT_CONVERT_DATATYPE;
break;
case UMI_TYPE_I4 :
if (!pUmiProp->pUmiValue->lValue) {
BAIL_ON_FAILURE(hr = E_INVALIDARG);
}
hr = UmiTypeToLdapTypeCopyI4(
pUmiProp->pUmiValue->lValue[ulCtr],
pLdapDestObjects->pLdapObjects + ulCtr
);
dwLdapSyntaxId = LDAPTYPE_INTEGER;
break;
case UMI_TYPE_I8 :
if (!pUmiProp->pUmiValue->nValue64) {
BAIL_ON_FAILURE(hr = E_INVALIDARG);
}
hr = UmiTypeToLdapTypeCopyI8(
pUmiProp->pUmiValue->nValue64[ulCtr],
pLdapDestObjects->pLdapObjects + ulCtr
);
dwLdapSyntaxId = LDAPTYPE_INTEGER8;
break;
case UMI_TYPE_UI1 :
case UMI_TYPE_UI2 :
case UMI_TYPE_UI4 :
case UMI_TYPE_UI8 :
case UMI_TYPE_R4 :
case UMI_TYPE_R8 :
//
// We do not handle any of the unsigned data types or
// the real data types..
//
hr = E_ADS_CANT_CONVERT_DATATYPE;
break;
case UMI_TYPE_SYSTEMTIME :
if (!pUmiProp->pUmiValue->sysTimeValue) {
BAIL_ON_FAILURE(hr = E_INVALIDARG);
}
//
// Need to use the special info to see if this is an UTC Time
// value or if this is a Generalized time value - GenTime is
// always the default value though.
//
if (fUtcTime) {
hr = UmiTypeToLdapTypeCopyUTCTime(
pUmiProp->pUmiValue->sysTimeValue[ulCtr],
pLdapDestObjects->pLdapObjects + ulCtr
);
dwLdapSyntaxId = LDAPTYPE_UTCTIME;
}
else {
hr = UmiTypeToLdapTypeCopyGeneralizedTime(
pUmiProp->pUmiValue->sysTimeValue[ulCtr],
pLdapDestObjects->pLdapObjects + ulCtr
);
dwLdapSyntaxId = LDAPTYPE_GENERALIZEDTIME;
}
break;
case UMI_TYPE_BOOL :
if (!pUmiProp->pUmiValue->bValue) {
BAIL_ON_FAILURE(hr = E_INVALIDARG);
}
hr = UmiTypeToLdapTypeBoolean(
pUmiProp->pUmiValue->bValue[ulCtr],
pLdapDestObjects->pLdapObjects + ulCtr
);
dwLdapSyntaxId = LDAPTYPE_BOOLEAN;
break;
case UMI_TYPE_IDISPATCH :
case UMI_TYPE_VARIANT :
//
// We do not support these.
//
hr = E_ADS_CANT_CONVERT_DATATYPE;
break;
case UMI_TYPE_LPWSTR :
if (!pUmiProp->pUmiValue->pszStrValue) {
BAIL_ON_FAILURE(hr = E_INVALIDARG);
}
hr = UmiTypeLPWSTRToLdapString(
pUmiProp->pUmiValue->pszStrValue[ulCtr],
pLdapDestObjects->pLdapObjects + ulCtr
);
dwLdapSyntaxId = LDAPTYPE_CASEEXACTSTRING;
break;
case UMI_TYPE_OCTETSTRING :
if (!pUmiProp->pUmiValue->octetStr) {
BAIL_ON_FAILURE(hr = E_INVALIDARG);
}
//
// Override default settings as this is no longer true.
//
pLdapDestObjects->fIsString = FALSE;
hr = UmiTypeToLdapTypeOctetString(
pUmiProp->pUmiValue->octetStr[ulCtr],
pLdapDestObjects->pLdapObjects + ulCtr
);
dwLdapSyntaxId = LDAPTYPE_OCTETSTRING;
break;
case UMI_TYPE_IUNKNOWN:
if (!pUmiProp->pUmiValue->comObject
|| !pUmiProp->pUmiValue->comObject[ulCtr].pInterface
) {
BAIL_ON_FAILURE(hr = E_INVALIDARG);
}
//
// Based on the type we should call the appropriate function.
//
IID *priid;
priid = pUmiProp->pUmiValue->comObject[ulCtr].priid;
if (!priid) {
BAIL_ON_FAILURE(hr = E_ADS_BAD_PARAMETER);
}
if (*priid == IID_IADsSecurityDescriptor) {
//
// SD is stored as berval in cache.
//
pLdapDestObjects->fIsString = FALSE;
//
// SD needs the servername and credentials for conversion.
//
hr = UmiTypeToLdapTypeCopySecurityDescriptor(
pUmiProp->pUmiValue->comObject[ulCtr],
pLdapDestObjects->pLdapObjects + ulCtr,
pCreds,
pszServerName
);
dwLdapSyntaxId = LDAPTYPE_SECURITY_DESCRIPTOR;
}
else if (*priid == IID_IADsDNWithBinary) {
//
// Convert DNBin obj to ldap equivalent.
//
hr = UmiTypeToLdapTypeCopyDNWithBinary(
pUmiProp->pUmiValue->comObject[ulCtr],
pLdapDestObjects->pLdapObjects + ulCtr
);
dwLdapSyntaxId = LDAPTYPE_DNWITHBINARY;
}
else if (*priid == IID_IADsDNWithString) {
//
// Convert DNStr obj to ldap equivalent.
//
hr = UmiTypeToLdapTypeCopyDNWithString(
pUmiProp->pUmiValue->comObject[ulCtr],
pLdapDestObjects->pLdapObjects + ulCtr
);
dwLdapSyntaxId = LDAPTYPE_DNWITHSTRING;
}
else {
//
// Unknown type.
//
BAIL_ON_FAILURE(hr = E_ADS_BAD_PARAMETER);
}
break;
case UMI_TYPE_UMIARRAY :
case UMI_TYPE_DISCOVERY :
case UMI_TYPE_UNDEFINED :
case UMI_TYPE_DEFAULT :
hr = HRESULT_FROM_WIN32(ERROR_INVALID_PARAMETER);
break;
default :
hr = HRESULT_FROM_WIN32(ERROR_INVALID_PARAMETER);
break;
} // end of case statement
//
// if hr is set there was a problem converting value.
//
BAIL_ON_FAILURE(hr);
//
// In case of failure we now have one more object to free
// in the ldap object array.
//
pLdapDestObjects->dwCount++;
} // end of for statement
BAIL_ON_FAILURE(hr);
RRETURN(hr);
error:
//
// Free the ldapProperty array as needed.
//
LdapTypeFreeLdapObjects(pLdapDestObjects);
RRETURN(hr);
}