|
|
//+-------------------------------------------------------------------------
//
// Microsoft Windows
// Copyright (C) Microsoft Corporation, 1992 - 1993.
//
// File: Comdthk.c (16 bit target)
//
// Contents: CompObj Directly Thunked APIs
//
// Functions:
//
// History: 16-Dec-93 JohannP Created
// 07-Mar-94 BobDay Moved into COMTHUNK.C from COMAPI.CXX
//
//--------------------------------------------------------------------------
#include <headers.cxx>
#pragma hdrstop
#include <call32.hxx>
#include <apilist.hxx>
STDAPI_(BOOL) GUIDFromString(LPCSTR lpsz, LPGUID pguid);
//+---------------------------------------------------------------------------
//
// Function: Straight thunk routines
//
// Synopsis: The following routines do not need to do any special
// processing on the 16-bit side so they thunk straight
// through
//
// History: 18-Feb-94 JohannP Created
//
// Notes: "Review to ensure these don't have to do any work"
// 15-Feb-2000 I'm pretty sure they don't. JohnDoty
//
//----------------------------------------------------------------------------
//+---------------------------------------------------------------------------
//
// Function: CLSIDFromString, Remote
//
// History: Straight from OLE2 sources
//
//----------------------------------------------------------------------------
STDAPI CLSIDFromString(LPSTR lpsz, LPCLSID pclsid){ HRESULT hr;
thkDebugOut((DEB_ITRACE, "CLSIDFromString\n"));
//
// The 16-bit OLE2 application "Family Tree Maker" always passes a bad
// string to CLSIDFromString. We need to make sure we fail in the exact
// same way with the interop layer. This will also provide a speed
// improvement since we only need to remote to the 32bit version of
// CLSIDFromString when the string provided does not start with '{'.
//
if (lpsz[0] == '{') return GUIDFromString(lpsz, pclsid) ? NOERROR : ResultFromScode(CO_E_CLASSSTRING);
// Note: Corel calls this function prior to calling
// CoInitialize so use CheckInit
return (HRESULT)CallObjectInWOWCheckInit(THK_API_METHOD(THK_API_CLSIDFromString), PASCAL_STACK_PTR(lpsz));}
//+---------------------------------------------------------------------------
//
// Function: CoGetClassObject, Remote
//
// Synopsis:
//
// Effects:
//
// Arguments: [rclsid] --
// [dwClsContext] --
// [pvReserved] --
// [riid] --
// [ppv] --
//
// Requires:
//
// Returns:
//
// Signals:
//
// Modifies:
//
// Algorithm:
//
// History: 2-28-94 kevinro Created
//
// Notes:
//
//----------------------------------------------------------------------------
STDAPI CoGetClassObject(REFCLSID rclsid, DWORD dwClsContext, LPVOID pvReserved, REFIID riid, LPVOID FAR* ppv){ thkDebugOut((DEB_ITRACE, " CoGetClassObject\n")); return (HRESULT)CallObjectInWOW(THK_API_METHOD(THK_API_CoGetClassObject), PASCAL_STACK_PTR(rclsid) );}
//+---------------------------------------------------------------------------
//
// Function: CoRegisterClassObject, Remote
//
// Synopsis:
//
// Effects:
//
// Arguments: [rclsid] --
// [pUnk] --
// [dwClsContext] --
// [flags] --
// [lpdwRegister] --
//
// Requires:
//
// Returns:
//
// Signals:
//
// Modifies:
//
// Algorithm:
//
// History: 2-28-94 kevinro Created
//
// Notes:
//
//----------------------------------------------------------------------------
STDAPI CoRegisterClassObject(REFCLSID rclsid, LPUNKNOWN pUnk, DWORD dwClsContext, DWORD flags, LPDWORD lpdwRegister){ thkDebugOut((DEB_ITRACE, " CoRegisterClassObject\n")); return (HRESULT)CallObjectInWOW(THK_API_METHOD(THK_API_CoRegisterClassObject), PASCAL_STACK_PTR(rclsid));}
//+---------------------------------------------------------------------------
//
// Function: CoRevokeClassObject, Remote
//
// Synopsis:
//
// Effects:
//
// Arguments: [dwRegister] --
//
// Requires:
//
// Returns:
//
// Signals:
//
// Modifies:
//
// Algorithm:
//
// History: 2-28-94 kevinro Created
//
// Notes:
//
//----------------------------------------------------------------------------
STDAPI CoRevokeClassObject(DWORD dwRegister){ thkDebugOut((DEB_ITRACE, " CoRevokeClassObject\n")); return (HRESULT)CallObjectInWOW(THK_API_METHOD(THK_API_CoRevokeClassObject), PASCAL_STACK_PTR(dwRegister) );}
//+---------------------------------------------------------------------------
//
// Function: CoMarshalInterface, Unknown
//
// Synopsis:
//
// Effects:
//
// Arguments: [pStm] --
// [riid] --
// [pUnk] --
// [dwDestContext] --
// [pvDestContext] --
// [mshlflags] --
//
// Requires:
//
// Returns:
//
// Signals:
//
// Modifies:
//
// Algorithm:
//
// History: 2-28-94 kevinro Created
//
// Notes:
//
//----------------------------------------------------------------------------
STDAPI CoMarshalInterface(LPSTREAM pStm, REFIID riid, LPUNKNOWN pUnk, DWORD dwDestContext, LPVOID pvDestContext, DWORD mshlflags){ thkDebugOut((DEB_ITRACE, " CoMarshalInterface\n")); return (HRESULT)CallObjectInWOW(THK_API_METHOD(THK_API_CoMarshalInterface), PASCAL_STACK_PTR(pStm));}
//+---------------------------------------------------------------------------
//
// Function: CoUnmarshalInterface, Unknown
//
// Synopsis:
//
// Effects:
//
// Arguments: [pStm] --
// [riid] --
// [ppv] --
//
// Requires:
//
// Returns:
//
// Signals:
//
// Modifies:
//
// Algorithm:
//
// History: 2-28-94 kevinro Created
//
// Notes:
//
//----------------------------------------------------------------------------
STDAPI CoUnmarshalInterface(LPSTREAM pStm, REFIID riid, LPVOID FAR* ppv){ thkDebugOut((DEB_ITRACE, "CoUnmarshalInterface\n")); return (HRESULT)CallObjectInWOW(THK_API_METHOD(THK_API_CoUnmarshalInterface), PASCAL_STACK_PTR(pStm));}
//+---------------------------------------------------------------------------
//
// Function: CoReleaseMarshalData, Unknown
//
// Synopsis:
//
// Effects:
//
// Arguments: [pStm] --
//
// Requires:
//
// Returns:
//
// Signals:
//
// Modifies:
//
// Algorithm:
//
// History: 2-28-94 kevinro Created
//
// Notes:
//
//----------------------------------------------------------------------------
STDAPI CoReleaseMarshalData(LPSTREAM pStm){ thkDebugOut((DEB_ITRACE, "CoReleaseMarshalData\n")); return (HRESULT)CallObjectInWOW(THK_API_METHOD(THK_API_CoReleaseMarshalData), PASCAL_STACK_PTR(pStm));}
//+---------------------------------------------------------------------------
//
// Function: CoDisconnectObject, Remote
//
// Synopsis:
//
// Effects:
//
// Arguments: [pUnk] --
// [dwReserved] --
//
// Requires:
//
// Returns:
//
// Signals:
//
// Modifies:
//
// Algorithm:
//
// History: 2-28-94 kevinro Created
//
// Notes:
//
//----------------------------------------------------------------------------
STDAPI CoDisconnectObject(LPUNKNOWN pUnk, DWORD dwReserved){ thkDebugOut((DEB_ITRACE, "CoDisconnectObject\n")); return (HRESULT)CallObjectInWOW(THK_API_METHOD(THK_API_CoDisconnectObject), PASCAL_STACK_PTR(pUnk));}
//+---------------------------------------------------------------------------
//
// Function: CoLockObjectExternal, Remote
//
// Synopsis:
//
// Effects:
//
// Arguments: [pUnk] --
// [fLock] --
// [fLastUnlockReleases] --
//
// Requires:
//
// Returns:
//
// Signals:
//
// Modifies:
//
// Algorithm:
//
// History: 2-28-94 kevinro Created
//
// Notes:
//
//----------------------------------------------------------------------------
STDAPI CoLockObjectExternal(LPUNKNOWN pUnk, BOOL fLock, BOOL fLastUnlockReleases){ thkDebugOut((DEB_ITRACE, "CoLockObjectExternal\n")); return (HRESULT)CallObjectInWOW(THK_API_METHOD(THK_API_CoLockObjectExternal), PASCAL_STACK_PTR(pUnk));}
//+---------------------------------------------------------------------------
//
// Function: CoGetStandardMarshal, Remote
//
// Synopsis:
//
// Effects:
//
// Arguments: [riid] --
// [pUnk] --
// [dwDestContext] --
// [pvDestContext] --
// [mshlflags] --
// [ppMarshal] --
//
// Requires:
//
// Returns:
//
// Signals:
//
// Modifies:
//
// Algorithm:
//
// History: 2-28-94 kevinro Created
//
// Notes:
//
//----------------------------------------------------------------------------
STDAPI CoGetStandardMarshal(REFIID riid, LPUNKNOWN pUnk, DWORD dwDestContext, LPVOID pvDestContext, DWORD mshlflags, LPMARSHAL FAR* ppMarshal){ thkDebugOut((DEB_ITRACE, "CoGetStandardMarshal\n")); return (HRESULT)CallObjectInWOW(THK_API_METHOD(THK_API_CoGetStandardMarshal), PASCAL_STACK_PTR(riid));}
//+---------------------------------------------------------------------------
//
// Function: CoIsHandlerConnected, Remote
//
// Synopsis:
//
// Effects:
//
// Arguments: [pUnk] --
//
// Requires:
//
// Returns:
//
// Signals:
//
// Modifies:
//
// Algorithm:
//
// History: 2-28-94 kevinro Created
//
// Notes:
//
//----------------------------------------------------------------------------
STDAPI_(BOOL) CoIsHandlerConnected(LPUNKNOWN pUnk){ thkDebugOut((DEB_ITRACE, "CoIsHandlerConnected\n")); return (BOOL)CallObjectInWOW(THK_API_METHOD(THK_API_CoIsHandlerConnected), PASCAL_STACK_PTR(pUnk));}
//+---------------------------------------------------------------------------
//
// Function: CoCreateInstance, Remote
//
// Synopsis:
//
// Effects:
//
// Arguments: [rclsid] --
// [pUnkOuter] --
// [dwClsContext] --
// [riid] --
// [ppv] --
//
// Requires:
//
// Returns:
//
// Signals:
//
// Modifies:
//
// Algorithm:
//
// History: 2-28-94 kevinro Created
//
// Notes:
//
//----------------------------------------------------------------------------
STDAPI CoCreateInstance(REFCLSID rclsid, LPUNKNOWN pUnkOuter, DWORD dwClsContext, REFIID riid, LPVOID FAR* ppv){ thkDebugOut((DEB_ITRACE, "CoCreateInstance\n")); return (HRESULT)CallObjectInWOW(THK_API_METHOD(THK_API_CoCreateInstance), PASCAL_STACK_PTR(rclsid) );}
//+---------------------------------------------------------------------------
//
// Function: CoIsOle1Class, Remote
//
// Synopsis:
//
// Effects:
//
// Arguments: [rclsid] --
//
// Requires:
//
// Returns:
//
// Signals:
//
// Modifies:
//
// Algorithm:
//
// History: 2-28-94 kevinro Created
//
// Notes:
//
//----------------------------------------------------------------------------
STDAPI_(BOOL) CoIsOle1Class(REFCLSID rclsid){ thkDebugOut((DEB_ITRACE, "CoIsOle1Class\n")); return (BOOL)CallObjectInWOW(THK_API_METHOD(THK_API_CoIsOle1Class), PASCAL_STACK_PTR(rclsid) );}
//+---------------------------------------------------------------------------
//
// Function: ProgIDFromCLSID, Remote
//
// Synopsis:
//
// Effects:
//
// Arguments: [clsid] --
// [lplpszProgID] --
//
// Requires:
//
// Returns:
//
// Signals:
//
// Modifies:
//
// Algorithm:
//
// History: 2-28-94 kevinro Created
//
// Notes:
//
//----------------------------------------------------------------------------
STDAPI ProgIDFromCLSID(REFCLSID clsid, LPSTR FAR* lplpszProgID){ thkDebugOut((DEB_ITRACE, "ProgIDFromCLSID\n")); return (HRESULT)CallObjectInWOW(THK_API_METHOD(THK_API_ProgIDFromCLSID), PASCAL_STACK_PTR(clsid) );}
//+---------------------------------------------------------------------------
//
// Function: CLSIDFromProgID, Remote
//
// Synopsis:
//
// Effects:
//
// Arguments: [lpszProgID] --
// [lpclsid] --
//
// Requires:
//
// Returns:
//
// Signals:
//
// Modifies:
//
// Algorithm:
//
// History: 2-28-94 kevinro Created
//
// Notes:
//
//----------------------------------------------------------------------------
STDAPI CLSIDFromProgID(LPCSTR lpszProgID, LPCLSID lpclsid){ thkDebugOut((DEB_ITRACE, "CLSIDFromProgID\n"));
// Note: Word 6 calls this function prior to calling
// CoInitialize so use CheckInit
return (HRESULT)CallObjectInWOWCheckInit(THK_API_METHOD(THK_API_CLSIDFromProgID), PASCAL_STACK_PTR(lpszProgID) );}
//+---------------------------------------------------------------------------
//
// Function: CoCreateGuid, Remote
//
// Synopsis:
//
// Effects:
//
// Arguments: [pguid] --
//
// Requires:
//
// Returns:
//
// Signals:
//
// Modifies:
//
// Algorithm:
//
// History: 2-28-94 kevinro Created
//
// Notes:
//
//----------------------------------------------------------------------------
STDAPI CoCreateGuid(GUID FAR *pguid){ thkDebugOut((DEB_ITRACE, "CoCreateGuid\n")); return (HRESULT)CallObjectInWOW(THK_API_METHOD(THK_API_CoCreateGuid), PASCAL_STACK_PTR(pguid));}
//+---------------------------------------------------------------------------
//
// Function: CoFileTimeToDosDateTime, Remote
//
// Synopsis:
//
// Effects:
//
// Arguments: [lpFileTime] --
// [lpDosDate] --
// [lpDosTime] --
//
// Requires:
//
// Returns:
//
// Signals:
//
// Modifies:
//
// Algorithm:
//
// History: 2-28-94 kevinro Created
//
// Notes:
//
//----------------------------------------------------------------------------
STDAPI_(BOOL) CoFileTimeToDosDateTime(FILETIME FAR* lpFileTime, LPWORD lpDosDate, LPWORD lpDosTime){ thkDebugOut((DEB_ITRACE, "CoFileTimeToDosDateTime\n")); return (BOOL)CallObjectInWOW(THK_API_METHOD(THK_API_CoFileTimeToDosDateTime), PASCAL_STACK_PTR(lpFileTime));}
//+---------------------------------------------------------------------------
//
// Function: CoDosDateTimeToFileTime, Remote
//
// Synopsis:
//
// Effects:
//
// Arguments: [nDosDate] --
// [nDosTime] --
// [lpFileTime] --
//
// Requires:
//
// Returns:
//
// Signals:
//
// Modifies:
//
// Algorithm:
//
// History: 2-28-94 kevinro Created
//
// Notes:
//
//----------------------------------------------------------------------------
STDAPI_(BOOL) CoDosDateTimeToFileTime(WORD nDosDate, WORD nDosTime, FILETIME FAR* lpFileTime){ thkDebugOut((DEB_ITRACE, "CoDosDateTimeToFileTime\n")); return (BOOL)CallObjectInWOW(THK_API_METHOD(THK_API_CoDosDateTimeToFileTime), PASCAL_STACK_PTR(nDosDate));}
//+---------------------------------------------------------------------------
//
// Function: CoFileTimeNow, Remote
//
// Synopsis:
//
// Effects:
//
// Arguments: [lpFileTime] --
//
// Requires:
//
// Returns:
//
// Signals:
//
// Modifies:
//
// Algorithm:
//
// History: 2-28-94 kevinro Created
//
// Notes:
//
//----------------------------------------------------------------------------
STDAPI CoFileTimeNow(FILETIME FAR* lpFileTime){ thkDebugOut((DEB_ITRACE, "CoFileTimeNow\n")); return (HRESULT)CallObjectInWOW(THK_API_METHOD(THK_API_CoFileTimeNow), PASCAL_STACK_PTR(lpFileTime));}
//+---------------------------------------------------------------------------
//
// Function: CoRegisterMessageFilter, Remote
//
// Synopsis:
//
// Effects:
//
// Arguments: [lpMessageFilter] --
// [lplpMessageFilter] --
//
// Requires:
//
// Returns:
//
// Signals:
//
// Modifies:
//
// Algorithm:
//
// History: 2-28-94 kevinro Created
//
// Notes:
//
//----------------------------------------------------------------------------
STDAPI CoRegisterMessageFilter(LPMESSAGEFILTER lpMessageFilter, LPMESSAGEFILTER FAR* lplpMessageFilter){ thkDebugOut((DEB_ITRACE, "CoRegisterMessageFilter\n"));
return (HRESULT)CallObjectInWOW(THK_API_METHOD(THK_API_CoRegisterMessageFilter), PASCAL_STACK_PTR(lpMessageFilter) );}
//+---------------------------------------------------------------------------
//
// Function: CoGetTreatAsClass, Remote
//
// Synopsis:
//
// Effects:
//
// Arguments: [clsidOld] --
// [pClsidNew] --
//
// Requires:
//
// Returns:
//
// Signals:
//
// Modifies:
//
// Algorithm:
//
// History: 2-28-94 kevinro Created
//
// Notes:
//
//----------------------------------------------------------------------------
STDAPI CoGetTreatAsClass(REFCLSID clsidOld, LPCLSID pClsidNew){ thkDebugOut((DEB_ITRACE, "CoGetTreatAsClass\n")); return (HRESULT)CallObjectInWOW(THK_API_METHOD(THK_API_CoGetTreatAsClass), PASCAL_STACK_PTR(clsidOld) );}
//+---------------------------------------------------------------------------
//
// Function: CoTreatAsClass, Remote
//
// Synopsis:
//
// Effects:
//
// Arguments: [clsidOld] --
// [clsidNew] --
//
// Requires:
//
// Returns:
//
// Signals:
//
// Modifies:
//
// Algorithm:
//
// History: 2-28-94 kevinro Created
//
// Notes:
//
//----------------------------------------------------------------------------
STDAPI CoTreatAsClass(REFCLSID clsidOld, REFCLSID clsidNew){ thkDebugOut((DEB_ITRACE, "CoTreatAsClass\n")); return (HRESULT)CallObjectInWOW(THK_API_METHOD(THK_API_CoTreatAsClass), PASCAL_STACK_PTR(clsidOld) );}
|
