ole/olecli.c

   1 /*
   2  *      OLECLI library
   3  *
   4  *      Copyright 1995  Martin von Loewis
   5  */
   6
   7 /*      At the moment, these are only empty stubs.
   8  */
   9
  10 #include "windows.h"
  11 #include "winerror.h"
  12 #include "ole.h"
  13 #include "gdi.h"
  14 #include "debug.h"
  15 #include "ole2.h"
  16 #include "objidl.h"
  17
  18
  19 extern LONG     OLE_current_handle;
  20
  21 /******************************************************************************
  22  *              OleRegisterClientDoc16  [OLECLI.41]
  23  */
  24 OLESTATUS WINAPI OleRegisterClientDoc16(LPCSTR classname, LPCSTR docname,
  25                                         LONG reserved, LHCLIENTDOC *hRet )
  26 {
  27     FIXME(ole,"(%s,%s,...): stub\n",classname,docname);
  28     *hRet=++OLE_current_handle;
  29     return OLE_OK;
  30 }
  31
  32 /******************************************************************************
  33  *              OleRegisterClientDoc32  [OLECLI32.41]
  34  */
  35 OLESTATUS WINAPI OleRegisterClientDoc32(LPCSTR classname, LPCSTR docname,
  36                                         LONG reserved, LHCLIENTDOC *hRet )
  37 {
  38     FIXME(ole,"(%s,%s,...): stub\n",classname,docname);
  39     *hRet=++OLE_current_handle;
  40     return OLE_OK;
  41 }
  42
  43 /******************************************************************************
  44  *              OleRenameClientDoc16    [OLECLI.43]
  45  */
  46 OLESTATUS WINAPI OleRenameClientDoc16(LHCLIENTDOC hDoc, LPCSTR newName)
  47 {
  48     FIXME(ole,"(%ld,%s,...): stub\n",hDoc, newName);
  49     return OLE_OK;
  50 }
  51
  52 /******************************************************************************
  53  *              OleRenameClientDoc32    [OLECLI32.43]
  54  */
  55 OLESTATUS WINAPI OleRenameClientDoc32(LHCLIENTDOC hDoc, LPCSTR newName)
  56 {
  57     FIXME(ole,"(%ld,%s,...): stub\n",hDoc, newName);
  58     return OLE_OK;
  59 }
  60
  61 /******************************************************************************
  62  *              OleRevokeClientDoc16    [OLECLI.42]
  63  */
  64 OLESTATUS WINAPI OleRevokeClientDoc16(LHCLIENTDOC hServerDoc)
  65 {
  66     FIXME(ole,"(%ld): stub\n",hServerDoc);
  67     return OLE_OK;
  68 }
  69
  70 /******************************************************************************
  71  *              OleRevokeClientDoc32    [OLECLI32.42]
  72  */
  73 OLESTATUS WINAPI OleRevokeClientDoc32(LHCLIENTDOC hServerDoc)
  74 {
  75     FIXME(ole,"(%ld): stub\n",hServerDoc);
  76     return OLE_OK;
  77 }
  78
  79 /******************************************************************************
  80  *           OleCreateLinkFromClip32    [OLECLI32.11]
  81  */
  82 OLESTATUS WINAPI OleCreateLinkFromClip32(
  83         LPCSTR name,LPOLECLIENT olecli,LHCLIENTDOC hclientdoc,LPCSTR xname,
  84         LPOLEOBJECT *lpoleob,OLEOPT_RENDER render,OLECLIPFORMAT clipformat
  85 ) {
  86         FIXME(ole,"(%s,%p,%08lx,%s,%p,%d,%ld): stub!\n",
  87               name,olecli,hclientdoc,xname,lpoleob,render,clipformat);
  88         return OLE_OK;
  89 }
  90
  91 /******************************************************************************
  92  *           OleQueryLinkFromClip32     [OLECLI32.9]
  93  */
  94 OLESTATUS WINAPI OleQueryLinkFromClip32(LPCSTR name,OLEOPT_RENDER render,OLECLIPFORMAT clipformat) {
  95         FIXME(ole,"(%s,%d,%ld): stub!\n",name,render,clipformat);
  96         return OLE_OK;
  97 }
  98 /******************************************************************************
  99  *           OleQueryCreateFromClip32   [OLECLI32.10]
 100  */
 101 OLESTATUS WINAPI OleQueryCreateFromClip32(LPCSTR name,OLEOPT_RENDER render,OLECLIPFORMAT clipformat) {
 102         FIXME(ole,"(%s,%d,%ld): stub!\n",name,render,clipformat);
 103         return OLE_OK;
 104 }
 105
 106
 107 /******************************************************************************
 108  *              OleIsDcMeta16   [OLECLI.60]
 109  */
 110 BOOL16 WINAPI OleIsDcMeta16(HDC16 hdc)
 111 {
 112         TRACE(ole,"(%04x)\n",hdc);
 113         if (GDI_GetObjPtr( hdc, METAFILE_DC_MAGIC ) != 0) {
 114             GDI_HEAP_UNLOCK( hdc );
 115             return TRUE;
 116         }
 117         return FALSE;
 118 }
 119
 120
 121 /******************************************************************************
 122  *              OleIsDcMeta32   [OLECLI32.60]
 123  */
 124 BOOL32 WINAPI OleIsDcMeta32(HDC32 hdc)
 125 {
 126         TRACE(ole,"(%04x)\n",hdc);
 127         if (GDI_GetObjPtr( hdc, METAFILE_DC_MAGIC ) != 0) {
 128             GDI_HEAP_UNLOCK( hdc );
 129             return TRUE;
 130         }
 131         return FALSE;
 132 }
 133
 134
 135 /******************************************************************************
 136  *              OleSetHostNames32       [OLECLI32.15]
 137  */
 138 OLESTATUS WINAPI OleSetHostNames32(LPOLEOBJECT oleob,LPCSTR name1,LPCSTR name2) {
 139         FIXME(ole,"(%p,%s,%s): stub\n",oleob,name1,name2);
 140         return OLE_OK;
 141 }
 142
 143 /******************************************************************************
 144  *              OleQueryType32  [OLECLI32.14]
 145  */
 146 OLESTATUS WINAPI OleQueryType32(LPOLEOBJECT oleob,LONG*xlong) {
 147         FIXME(ole,"(%p,%p): stub!\n",oleob,xlong);
 148         if (!oleob)
 149                 return 0x10;
 150         TRACE(ole,"Calling OLEOBJECT.QueryType (%p) (%p,%p)\n",
 151               oleob->lpvtbl->QueryType,oleob,xlong);
 152         return oleob->lpvtbl->QueryType(oleob,xlong);
 153 }
 154
 155 /******************************************************************************
 156  *              OleCreateFromClip32     [OLECLI32.12]
 157  */
 158 OLESTATUS WINAPI OleCreateFromClip32(
 159         LPCSTR name,LPOLECLIENT olecli,LHCLIENTDOC hclientdoc,LPCSTR xname,
 160         LPOLEOBJECT *lpoleob,OLEOPT_RENDER render, OLECLIPFORMAT clipformat
 161 ) {
 162         FIXME(ole,"(%s,%p,%08lx,%s,%p,%d,%ld): stub!\n",
 163               name,olecli,hclientdoc,xname,lpoleob,render,clipformat);
 164         /* clipb type, object kreieren entsprechend etc. */
 165         return OLE_OK;
 166 }
 167
 168 /***********************************************************************
 169  *           OleIsCurrentClipboard32 [OLE32.110]
 170  */
 171 HRESULT WINAPI OleIsCurrentClipboard32 (
 172   IDataObject *pDataObject)  /* ptr to the data obj previously copied or cut */
 173 {
 174   FIXME(ole,"(DataObject %p): stub!\n", pDataObject);
 175   return S_FALSE;
 176 }
 177