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 "winerror.h"
  11 #include "ole.h"
  12 #include "gdi.h"
  13 #include "objidl.h"
  14 #include "debug.h"
  15
  16 DEFAULT_DEBUG_CHANNEL(ole)
  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 OleRegisterClientDoc(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 OleRenameClientDoc(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 OleRevokeClientDoc(LHCLIENTDOC hServerDoc)
  74 {
  75     FIXME(ole,"(%ld): stub\n",hServerDoc);
  76     return OLE_OK;
  77 }
  78
  79 /******************************************************************************
  80  *              OleRevertClientDoc16    [OLECLI.44]
  81  */
  82 OLESTATUS WINAPI OleRevertClientDoc16(LHCLIENTDOC hServerDoc)
  83 {
  84     FIXME(ole, "(%ld): stub\n", hServerDoc);
  85     return OLE_OK;
  86 }
  87
  88 /******************************************************************************
  89  *              OleEnumObjects16        [OLECLI.47]
  90  */
  91 OLESTATUS WINAPI OleEnumObjects16(LHCLIENTDOC hServerDoc, SEGPTR data)
  92 {
  93     FIXME(ole, "(%ld, %04x:%04x): stub\n", hServerDoc, HIWORD(data),
  94         LOWORD(data));
  95     return OLE_OK;
  96 }
  97
  98 /******************************************************************************
  99  *           OleCreateLinkFromClip16    [OLECLI.11]
 100  */
 101 OLESTATUS WINAPI OleCreateLinkFromClip16(
 102         LPCSTR name, LPOLECLIENT olecli, LHCLIENTDOC hclientdoc, LPCSTR xname,
 103         LPOLEOBJECT *lpoleob, UINT16 render, UINT16 clipformat
 104 ) {
 105         FIXME(ole, "(%s, %04x:%04x, %ld, %s, %04x:%04x, %d, %d): stub!\n",
 106             (char *)PTR_SEG_TO_LIN(name), HIWORD(olecli), LOWORD(olecli),
 107             hclientdoc, (char *)PTR_SEG_TO_LIN(xname), HIWORD(lpoleob),
 108             LOWORD(lpoleob), render, clipformat);
 109         return OLE_OK;
 110 }
 111
 112 /******************************************************************************
 113  *           OleCreateLinkFromClip32    [OLECLI32.11]
 114  */
 115 OLESTATUS WINAPI OleCreateLinkFromClip(
 116         LPCSTR name,LPOLECLIENT olecli,LHCLIENTDOC hclientdoc,LPCSTR xname,
 117         LPOLEOBJECT *lpoleob,OLEOPT_RENDER render,OLECLIPFORMAT clipformat
 118 ) {
 119         FIXME(ole,"(%s,%p,%08lx,%s,%p,%d,%ld): stub!\n",
 120               name,olecli,hclientdoc,xname,lpoleob,render,clipformat);
 121         return OLE_OK;
 122 }
 123
 124 /******************************************************************************
 125  *           OleQueryLinkFromClip16     [OLECLI.9]
 126  */
 127 OLESTATUS WINAPI OleQueryLinkFromClip16(LPCSTR name, UINT16 render, UINT16 clipformat) {
 128         FIXME(ole, "(%s, %d, %d): stub!\n", (char*)(PTR_SEG_TO_LIN(name)),
 129                 render, clipformat);
 130         return OLE_OK;
 131 }
 132
 133 /******************************************************************************
 134  *           OleQueryLinkFromClip32     [OLECLI32.9]
 135  */
 136 OLESTATUS WINAPI OleQueryLinkFromClip(LPCSTR name,OLEOPT_RENDER render,OLECLIPFORMAT clipformat) {
 137         FIXME(ole,"(%s,%d,%ld): stub!\n",name,render,clipformat);
 138         return OLE_OK;
 139 }
 140
 141 /******************************************************************************
 142  *           OleQueryCreateFromClip16   [OLECLI.10]
 143  */
 144 OLESTATUS WINAPI OleQueryCreateFromClip16(LPCSTR name, UINT16 render, UINT16 clipformat) {
 145         FIXME(ole, "(%s, %d, %d): stub!\n", (char*)(PTR_SEG_TO_LIN(name)),
 146                 render, clipformat);
 147         return OLE_OK;
 148 }
 149
 150 /******************************************************************************
 151  *           OleQueryCreateFromClip32   [OLECLI32.10]
 152  */
 153 OLESTATUS WINAPI OleQueryCreateFromClip(LPCSTR name,OLEOPT_RENDER render,OLECLIPFORMAT clipformat) {
 154         FIXME(ole,"(%s,%d,%ld): stub!\n",name,render,clipformat);
 155         return OLE_OK;
 156 }
 157
 158 /******************************************************************************
 159  *              OleIsDcMeta16   [OLECLI.60]
 160  */
 161 BOOL16 WINAPI OleIsDcMeta16(HDC16 hdc)
 162 {
 163         TRACE(ole,"(%04x)\n",hdc);
 164         if (GDI_GetObjPtr( hdc, METAFILE_DC_MAGIC ) != 0) {
 165             GDI_HEAP_UNLOCK( hdc );
 166             return TRUE;
 167         }
 168         return FALSE;
 169 }
 170
 171
 172 /******************************************************************************
 173  *              OleIsDcMeta32   [OLECLI32.60]
 174  */
 175 BOOL WINAPI OleIsDcMeta(HDC hdc)
 176 {
 177         TRACE(ole,"(%04x)\n",hdc);
 178         if (GDI_GetObjPtr( hdc, METAFILE_DC_MAGIC ) != 0) {
 179             GDI_HEAP_UNLOCK( hdc );
 180             return TRUE;
 181         }
 182         return FALSE;
 183 }
 184
 185
 186 /******************************************************************************
 187  *              OleSetHostNames32       [OLECLI32.15]
 188  */
 189 OLESTATUS WINAPI OleSetHostNames(LPOLEOBJECT oleob,LPCSTR name1,LPCSTR name2) {
 190         FIXME(ole,"(%p,%s,%s): stub\n",oleob,name1,name2);
 191         return OLE_OK;
 192 }
 193
 194 /******************************************************************************
 195  *              OleQueryType16  [OLECLI.14]
 196  */
 197 OLESTATUS WINAPI OleQueryType16(LPOLEOBJECT oleob,  SEGPTR xlong) {
 198         FIXME(ole, "(%p, %p): stub!\n",
 199                 PTR_SEG_TO_LIN(oleob), PTR_SEG_TO_LIN(xlong));
 200         return OLE_OK;
 201 }
 202
 203 /******************************************************************************
 204  *              OleQueryType32  [OLECLI32.14]
 205  */
 206 OLESTATUS WINAPI OleQueryType(LPOLEOBJECT oleob,LONG*xlong) {
 207         FIXME(ole,"(%p,%p): stub!\n",oleob,xlong);
 208         if (!oleob)
 209                 return 0x10;
 210         TRACE(ole,"Calling OLEOBJECT.QueryType (%p) (%p,%p)\n",
 211               oleob->lpvtbl->QueryType,oleob,xlong);
 212         return oleob->lpvtbl->QueryType(oleob,xlong);
 213 }
 214
 215 /******************************************************************************
 216  *              OleCreateFromClip16     [OLECLI.12]
 217  */
 218 OLESTATUS WINAPI OleCreateFromClip16(
 219         LPCSTR name, LPOLECLIENT olecli, LHCLIENTDOC hclientdoc, LPCSTR xname,
 220         LPOLEOBJECT *lpoleob, UINT16 render, UINT16 clipformat
 221 ) {
 222         FIXME(ole, "(%s, %04x:%04x, %ld, %s, %04x:%04x, %d, %d): stub!\n",
 223             (char *)PTR_SEG_TO_LIN(name), HIWORD(olecli), LOWORD(olecli),
 224             hclientdoc, (char *)PTR_SEG_TO_LIN(xname), HIWORD(lpoleob),
 225             LOWORD(lpoleob), render, clipformat);
 226         return OLE_OK;
 227 }
 228
 229 /******************************************************************************
 230  *              OleCreateFromClip32     [OLECLI32.12]
 231  */
 232 OLESTATUS WINAPI OleCreateFromClip(
 233         LPCSTR name,LPOLECLIENT olecli,LHCLIENTDOC hclientdoc,LPCSTR xname,
 234         LPOLEOBJECT *lpoleob,OLEOPT_RENDER render, OLECLIPFORMAT clipformat
 235 ) {
 236         FIXME(ole,"(%s,%p,%08lx,%s,%p,%d,%ld): stub!\n",
 237               name,olecli,hclientdoc,xname,lpoleob,render,clipformat);
 238         /* clipb type, object kreieren entsprechend etc. */
 239         return OLE_OK;
 240 }
 241
 242 /***********************************************************************
 243  *           OleIsCurrentClipboard32 [OLE32.110]
 244  */
 245 HRESULT WINAPI OleIsCurrentClipboard (
 246   IDataObject *pDataObject)  /* ptr to the data obj previously copied or cut */
 247 {
 248   FIXME(ole,"(DataObject %p): stub!\n", pDataObject);
 249   return S_FALSE;
 250 }
 251