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