Sweden-Number/ole/olecli.c

163 lines
4.6 KiB
C

/*
* OLECLI library
*
* Copyright 1995 Martin von Loewis
*/
/* At the moment, these are only empty stubs.
*/
#include "windows.h"
#include "ole.h"
#include "gdi.h"
#include "debug.h"
extern LONG OLE_current_handle;
/***********************************************************************
* OleRegisterClientDoc
*/
OLESTATUS WINAPI OleRegisterClientDoc16(LPCSTR classname, LPCSTR docname,
LONG reserved, LHCLIENTDOC *hRet )
{
FIXME(ole,"(%s,%s,...): stub\n",classname,docname);
*hRet=++OLE_current_handle;
return OLE_OK;
}
/***********************************************************************
* OleRegisterClientDoc
*/
OLESTATUS WINAPI OleRegisterClientDoc32(LPCSTR classname, LPCSTR docname,
LONG reserved, LHCLIENTDOC *hRet )
{
FIXME(ole,"(%s,%s,...): stub\n",classname,docname);
*hRet=++OLE_current_handle;
return OLE_OK;
}
/***********************************************************************
* OleRenameClientDoc
*/
OLESTATUS WINAPI OleRenameClientDoc16(LHCLIENTDOC hDoc, LPCSTR newName)
{
FIXME(ole,"(%ld,%s,...): stub\n",hDoc, newName);
return OLE_OK;
}
/***********************************************************************
* OleRenameClientDoc
*/
OLESTATUS WINAPI OleRenameClientDoc32(LHCLIENTDOC hDoc, LPCSTR newName)
{
FIXME(ole,"(%ld,%s,...): stub\n",hDoc, newName);
return OLE_OK;
}
/***********************************************************************
* OleRevokeClientDoc
*/
OLESTATUS WINAPI OleRevokeClientDoc16(LHCLIENTDOC hServerDoc)
{
FIXME(ole,"(%ld): stub\n",hServerDoc);
return OLE_OK;
}
/***********************************************************************
* OleRevokeClientDoc
*/
OLESTATUS WINAPI OleRevokeClientDoc32(LHCLIENTDOC hServerDoc)
{
FIXME(ole,"(%ld): stub\n",hServerDoc);
return OLE_OK;
}
/***********************************************************************
* OleCreateLinkFromClip32
*/
OLESTATUS WINAPI OleCreateLinkFromClip32(
LPCSTR name,LPOLECLIENT olecli,LHCLIENTDOC hclientdoc,LPCSTR xname,
LPOLEOBJECT *lpoleob,OLEOPT_RENDER render,OLECLIPFORMAT clipformat
) {
FIXME(ole,"(%s,%p,%08lx,%s,%p,%d,%ld): stub!\n",
name,olecli,hclientdoc,xname,lpoleob,render,clipformat);
return OLE_OK;
}
/***********************************************************************
* OleQueryLinkFromClip32
*/
OLESTATUS WINAPI OleQueryLinkFromClip32(LPCSTR name,OLEOPT_RENDER render,OLECLIPFORMAT clipformat) {
FIXME(ole,"(%s,%d,%ld): stub!\n",name,render,clipformat);
return OLE_OK;
}
/***********************************************************************
* OleQueryCreateFromClip32
*/
OLESTATUS WINAPI OleQueryCreateFromClip32(LPCSTR name,OLEOPT_RENDER render,OLECLIPFORMAT clipformat) {
FIXME(ole,"(%s,%d,%ld): stub!\n",name,render,clipformat);
return OLE_OK;
}
/***********************************************************************
* OleIsDcMeta16
*/
BOOL16 WINAPI OleIsDcMeta16(HDC16 hdc)
{
TRACE(ole,"(%04x)\n",hdc);
if (GDI_GetObjPtr( hdc, METAFILE_DC_MAGIC ) != 0) {
GDI_HEAP_UNLOCK( hdc );
return TRUE;
}
return FALSE;
}
/***********************************************************************
* OleIsDcMeta32
*/
BOOL32 WINAPI OleIsDcMeta32(HDC32 hdc)
{
TRACE(ole,"(%04x)\n",hdc);
if (GDI_GetObjPtr( hdc, METAFILE_DC_MAGIC ) != 0) {
GDI_HEAP_UNLOCK( hdc );
return TRUE;
}
return FALSE;
}
/***********************************************************************
* OleSetHostNames
*/
OLESTATUS WINAPI OleSetHostNames32(LPOLEOBJECT oleob,LPCSTR name1,LPCSTR name2) {
FIXME(ole,"(%p,%s,%s): stub\n",oleob,name1,name2);
return OLE_OK;
}
/***********************************************************************
* OleQueryType32
*/
OLESTATUS WINAPI OleQueryType32(LPOLEOBJECT oleob,LONG*xlong) {
FIXME(ole,"(%p,%p): stub!\n",oleob,xlong);
if (!oleob)
return 0x10;
TRACE(ole,"Calling OLEOBJECT.QueryType (%p) (%p,%p)\n",
oleob->lpvtbl->QueryType,oleob,xlong);
return oleob->lpvtbl->QueryType(oleob,xlong);
}
/***********************************************************************
* OleCreateFromClip
*/
OLESTATUS WINAPI OleCreateFromClip32(
LPCSTR name,LPOLECLIENT olecli,LHCLIENTDOC hclientdoc,LPCSTR xname,
LPOLEOBJECT *lpoleob,OLEOPT_RENDER render, OLECLIPFORMAT clipformat
) {
FIXME(ole,"(%s,%p,%08lx,%s,%p,%d,%ld): stub!\n",
name,olecli,hclientdoc,xname,lpoleob,render,clipformat);
/* clipb type, object kreieren entsprechend etc. */
return OLE_OK;
}