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 "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     fprintf(stdnimp,"OleRegisterClientDoc:%s %s\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     fprintf(stdnimp,"OleRegisterClientDoc:%s %s\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     fprintf(stdnimp,"OleRenameClientDoc: %ld %s\n",hDoc, newName);
  45     return OLE_OK;
  46 }
  47
  48 /***********************************************************************
  49  *           OleRenameClientDoc
  50  */
  51 OLESTATUS WINAPI OleRenameClientDoc32(LHCLIENTDOC hDoc, LPCSTR newName)
  52 {
  53     fprintf(stdnimp,"OleRenameClientDoc: %ld %s\n",hDoc, newName);
  54     return OLE_OK;
  55 }
  56
  57 /***********************************************************************
  58  *           OleRevokeClientDoc
  59  */
  60 OLESTATUS WINAPI OleRevokeClientDoc16(LHCLIENTDOC hServerDoc)
  61 {
  62     fprintf(stdnimp,"OleRevokeClientDoc:%ld\n",hServerDoc);
  63     return OLE_OK;
  64 }
  65
  66 /***********************************************************************
  67  *           OleRevokeClientDoc
  68  */
  69 OLESTATUS WINAPI OleRevokeClientDoc32(LHCLIENTDOC hServerDoc)
  70 {
  71     fprintf(stdnimp,"OleRevokeClientDoc:%ld\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         fprintf(stdnimp,"OleCreateLinkFromClip(%s,%p,%08lx,%s,%p,%d,%ld),stub!\n",
  83                 name,olecli,hclientdoc,xname,lpoleob,render,clipformat
  84         );
  85         return OLE_OK;
  86 }
  87
  88 /***********************************************************************
  89  *           OleQueryLinkFromClip32
  90  */
  91 OLESTATUS WINAPI OleQueryLinkFromClip32(LPCSTR name,OLEOPT_RENDER render,OLECLIPFORMAT clipformat) {
  92         fprintf(stdnimp,"OleQueryLinkFromClip(%s,%d,%ld),stub!\n",
  93                 name,render,clipformat
  94         );
  95         return OLE_OK;
  96 }
  97 /***********************************************************************
  98  *           OleQueryCreateFromClip32
  99  */
 100 OLESTATUS WINAPI OleQueryCreateFromClip32(LPCSTR name,OLEOPT_RENDER render,OLECLIPFORMAT clipformat) {
 101         fprintf(stdnimp,"OleQueryCreateFromClip(%s,%d,%ld),stub!\n",
 102                 name,render,clipformat
 103         );
 104         return OLE_OK;
 105 }
 106
 107
 108 /***********************************************************************
 109  *           OleIsDcMeta
 110  */
 111 BOOL16 WINAPI OleIsDcMeta(HDC16 hdc)
 112 {
 113         dprintf_info(ole,"OleIsDCMeta(%04x)\n",hdc);
 114         return GDI_GetObjPtr( hdc, METAFILE_DC_MAGIC ) != 0;
 115 }
 116
 117 /***********************************************************************
 118  *           OleSetHostNames
 119  */
 120 OLESTATUS WINAPI OleSetHostNames32(LPOLEOBJECT oleob,LPCSTR name1,LPCSTR name2) {
 121         fprintf(stdnimp,"OleSetHostNames(%p,%s,%s),stub\n",oleob,name1,name2);
 122         return OLE_OK;
 123 }
 124
 125 /***********************************************************************
 126  *           OleQueryType32
 127  */
 128 OLESTATUS WINAPI OleQueryType32(LPOLEOBJECT oleob,LONG*xlong) {
 129         fprintf(stdnimp,"OleQueryType(%p,%p),stub!\n",oleob,xlong);
 130         if (!oleob)
 131                 return 0x10;
 132         fprintf(stddeb,"Calling OLEOBJECT.QueryType (%p) (%p,%p)\n",
 133                 oleob->lpvtbl->QueryType,oleob,xlong
 134         );
 135         return oleob->lpvtbl->QueryType(oleob,xlong);
 136 }
 137
 138 /***********************************************************************
 139  *           OleCreateFromClip
 140  */
 141 OLESTATUS WINAPI OleCreateFromClip32(
 142         LPCSTR name,LPOLECLIENT olecli,LHCLIENTDOC hclientdoc,LPCSTR xname,
 143         LPOLEOBJECT *lpoleob,OLEOPT_RENDER render, OLECLIPFORMAT clipformat
 144 ) {
 145         fprintf(stdnimp,"OleCreateLinkFromClip(%s,%p,%08lx,%s,%p,%d,%ld),stub!\n",
 146                 name,olecli,hclientdoc,xname,lpoleob,render,clipformat
 147         );
 148         /* clipb type, object kreieren entsprechend etc. */
 149         return OLE_OK;
 150 }