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