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  *           OleRegisterClientDoc
  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  *           OleRegisterClientDoc
  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  *           OleRenameClientDoc
  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  *           OleRenameClientDoc
  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  *           OleRevokeClientDoc
  59  */
  60 OLESTATUS WINAPI OleRevokeClientDoc16(LHCLIENTDOC hServerDoc)
  61 {
  62     FIXME(ole,"(%ld): stub\n",hServerDoc);
  63     return OLE_OK;
  64 }
  65
  66 /***********************************************************************
  67  *           OleRevokeClientDoc
  68  */
  69 OLESTATUS WINAPI OleRevokeClientDoc32(LHCLIENTDOC hServerDoc)
  70 {
  71     FIXME(ole,"(%ld): stub\n",hServerDoc);
  72     return OLE_OK;
  73 }
  74
  75 /***********************************************************************
  76  *           OleCreateLinkFromClip32
  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
  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
  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
 105  */
 106 BOOL16 WINAPI OleIsDcMeta16(HDC16 hdc)
 107 {
 108         TRACE(ole,"(%04x)\n",hdc);
 109         return GDI_GetObjPtr( hdc, METAFILE_DC_MAGIC ) != 0;
 110 }
 111
 112
 113 /***********************************************************************
 114  *           OleIsDcMeta32
 115  */
 116 BOOL32 WINAPI OleIsDcMeta32(HDC32 hdc)
 117 {
 118         TRACE(ole,"(%04x)\n",hdc);
 119         return GDI_GetObjPtr( hdc, METAFILE_DC_MAGIC ) != 0;
 120 }
 121
 122
 123 /***********************************************************************
 124  *           OleSetHostNames
 125  */
 126 OLESTATUS WINAPI OleSetHostNames32(LPOLEOBJECT oleob,LPCSTR name1,LPCSTR name2) {
 127         FIXME(ole,"(%p,%s,%s): stub\n",oleob,name1,name2);
 128         return OLE_OK;
 129 }
 130
 131 /***********************************************************************
 132  *           OleQueryType32
 133  */
 134 OLESTATUS WINAPI OleQueryType32(LPOLEOBJECT oleob,LONG*xlong) {
 135         FIXME(ole,"(%p,%p): stub!\n",oleob,xlong);
 136         if (!oleob)
 137                 return 0x10;
 138         TRACE(ole,"Calling OLEOBJECT.QueryType (%p) (%p,%p)\n",
 139               oleob->lpvtbl->QueryType,oleob,xlong);
 140         return oleob->lpvtbl->QueryType(oleob,xlong);
 141 }
 142
 143 /***********************************************************************
 144  *           OleCreateFromClip
 145  */
 146 OLESTATUS WINAPI OleCreateFromClip32(
 147         LPCSTR name,LPOLECLIENT olecli,LHCLIENTDOC hclientdoc,LPCSTR xname,
 148         LPOLEOBJECT *lpoleob,OLEOPT_RENDER render, OLECLIPFORMAT clipformat
 149 ) {
 150         FIXME(ole,"(%s,%p,%08lx,%s,%p,%d,%ld): stub!\n",
 151               name,olecli,hclientdoc,xname,lpoleob,render,clipformat);
 152         /* clipb type, object kreieren entsprechend etc. */
 153         return OLE_OK;
 154 }