Leaked source code of windows server 2003
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
 
 
 
 
 
 

252 lines
14 KiB

#define BAIL_ON_NULL(p) \
if (!(p)) { \
goto error; \
}
#define BAIL_IF_ERROR(hr) \
if (FAILED(hr)) { \
goto cleanup; \
}\
#define BAIL_ON_FAILURE(hr) \
if (FAILED(hr)) { \
goto error; \
}\
#define CONTINUE_ON_FAILURE(hr) \
if (FAILED(hr)) { \
continue; \
}\
#define BAIL_ON_SUCCESS(hr) \
if (SUCCEEDED(hr)) { \
goto error; \
}\
#define QUERY_INTERFACE(hr, ptr, iid, ppObj) \
hr = ptr->QueryInterface(iid, (void **)ppObj); \
if (FAILED(hr)) { \
goto cleanup;\
}\
#define RRETURN_ENUM_STATUS(hr) \
if (hr != S_OK) { \
RRETURN(S_FALSE); \
} \
RRETURN(S_OK);
#define DEFINE_IDispatch_Implementation_Unimplemented(cls) \
STDMETHODIMP \
cls::GetTypeInfoCount(unsigned int FAR* pctinfo) \
{ \
RRETURN(E_NOTIMPL); \
} \
\
STDMETHODIMP \
cls::GetTypeInfo(unsigned int itinfo, LCID lcid, \
ITypeInfo FAR* FAR* pptinfo) \
{ \
RRETURN(E_NOTIMPL); \
} \
\
STDMETHODIMP \
cls::GetIDsOfNames(REFIID iid, LPWSTR FAR* rgszNames, \
unsigned int cNames, LCID lcid, DISPID FAR* rgdispid) \
{ \
RRETURN(E_NOTIMPL); \
} \
\
STDMETHODIMP \
cls::Invoke(DISPID dispidMember, REFIID iid, LCID lcid, \
unsigned short wFlags, DISPPARAMS FAR* pdispparams, \
VARIANT FAR* pvarResult, EXCEPINFO FAR* pexcepinfo, \
unsigned int FAR* puArgErr) \
{ \
RRETURN(E_NOTIMPL); \
}
#define DEFINE_IDispatch_Implementation(cls) \
STDMETHODIMP \
cls::GetTypeInfoCount(unsigned int FAR* pctinfo) \
{ \
RRETURN(_pDispMgr->GetTypeInfoCount(pctinfo)); \
} \
\
STDMETHODIMP \
cls::GetTypeInfo(unsigned int itinfo, LCID lcid, \
ITypeInfo FAR* FAR* pptinfo) \
{ \
RRETURN(_pDispMgr->GetTypeInfo(itinfo, \
lcid, \
pptinfo \
)); \
} \
STDMETHODIMP \
cls::GetIDsOfNames(REFIID iid, LPWSTR FAR* rgszNames, \
unsigned int cNames, LCID lcid, DISPID FAR* rgdispid) \
{ \
RRETURN(_pDispMgr->GetIDsOfNames(iid, \
rgszNames, \
cNames, \
lcid, \
rgdispid \
)); \
} \
\
STDMETHODIMP \
cls::Invoke(DISPID dispidMember, REFIID iid, LCID lcid, \
unsigned short wFlags, DISPPARAMS FAR* pdispparams, \
VARIANT FAR* pvarResult, EXCEPINFO FAR* pexcepinfo, \
unsigned int FAR* puArgErr) \
{ \
RRETURN (_pDispMgr->Invoke(dispidMember, \
iid, \
lcid, \
wFlags, \
pdispparams, \
pvarResult, \
pexcepinfo, \
puArgErr \
)); \
}
#define DEFINE_IADs_Implementation(cls) \
STDMETHODIMP \
cls::get_Name(THIS_ BSTR FAR* retval) \
{ \
RRETURN(get_CoreName(retval)); \
} \
\
STDMETHODIMP \
cls::get_ADsPath(THIS_ BSTR FAR* retval) \
{ \
\
RRETURN(get_CoreADsPath(retval)); \
} \
\
STDMETHODIMP \
cls::get_Class(THIS_ BSTR FAR* retval) \
{ \
\
RRETURN(get_CoreADsClass(retval)); \
} \
\
\
STDMETHODIMP \
cls::get_Parent(THIS_ BSTR FAR* retval) \
{ \
RRETURN(get_CoreParent(retval)); \
} \
\
STDMETHODIMP \
cls::get_Schema(THIS_ BSTR FAR* retval) \
{ \
RRETURN(get_CoreSchema(retval)); \
} \
\
STDMETHODIMP \
cls::get_GUID(THIS_ BSTR FAR* retval) \
{ \
RRETURN(get_CoreGUID(retval)); \
}
//
// Use this if the object needs to go on the wire to
// get any of the core properties (will be case for FAST_BIND
// and GUID in all cases). Also takes care of <WkGuid=...> case.
//
#define DEFINE_IADs_Shorter_Implementation(cls) \
STDMETHODIMP \
cls::get_ADsPath(THIS_ BSTR FAR* retval) \
{ \
\
RRETURN(get_CoreADsPath(retval)); \
} \
#define DEFINE_IADsPutGet_UnImplementation(cls) \
STDMETHODIMP \
cls::Get(THIS_ BSTR bstrName, VARIANT FAR* pvProp) \
{ \
RRETURN(E_NOTIMPL); \
} \
\
STDMETHODIMP \
cls::Put(THIS_ BSTR bstrName, VARIANT vProp) \
{ \
RRETURN(E_NOTIMPL); \
} \
\
STDMETHODIMP \
cls::GetEx(THIS_ BSTR bstrName, VARIANT FAR* pvProp) \
{ \
RRETURN(E_NOTIMPL); \
} \
\
STDMETHODIMP \
cls::PutEx(THIS_ long lnControlCode, BSTR bstrName, VARIANT vProp) \
{ \
RRETURN(E_NOTIMPL); \
}
#define DEFINE_IDispatch_ExtMgr_Implementation(cls) \
STDMETHODIMP \
cls::GetTypeInfoCount(unsigned int FAR* pctinfo) \
{ \
RRETURN(_pExtMgr->GetTypeInfoCount(pctinfo)); \
} \
\
STDMETHODIMP \
cls::GetTypeInfo(unsigned int itinfo, LCID lcid, \
ITypeInfo FAR* FAR* pptinfo) \
{ \
RRETURN(_pExtMgr->GetTypeInfo(itinfo, \
lcid, \
pptinfo \
)); \
} \
STDMETHODIMP \
cls::GetIDsOfNames(REFIID iid, LPWSTR FAR* rgszNames, \
unsigned int cNames, LCID lcid, DISPID FAR* rgdispid) \
{ \
RRETURN(_pExtMgr->GetIDsOfNames(iid, \
rgszNames, \
cNames, \
lcid, \
rgdispid \
)); \
} \
\
STDMETHODIMP \
cls::Invoke(DISPID dispidMember, REFIID iid, LCID lcid, \
unsigned short wFlags, DISPPARAMS FAR* pdispparams, \
VARIANT FAR* pvarResult, EXCEPINFO FAR* pexcepinfo, \
unsigned int FAR* puArgErr) \
{ \
RRETURN (_pExtMgr->Invoke(dispidMember, \
iid, \
lcid, \
wFlags, \
pdispparams, \
pvarResult, \
pexcepinfo, \
puArgErr \
)); \
}
/* Macro to call the ADsSetLastError function */
#define Macro_ClearADsLastError(providerString) \
ADsSetLastError(NO_ERROR, NULL, providerString);