git.oblomov.eu Git - wine/blob - dlls/olecli/olecli_main.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 #include "winbase.h"
  10 #include "wingdi.h"
  11 #include "wtypes.h"
  12 #include "ole.h"
  13 #include "debugtools.h"
  14
  15 DEFAULT_DEBUG_CHANNEL(ole);
  16
  17
  18 static LONG OLE_current_handle;
  19
  20 /******************************************************************************
  21  *              OleRegisterClientDoc16  [OLECLI.41]
  22  */
  23 OLESTATUS WINAPI OleRegisterClientDoc16(LPCSTR classname, LPCSTR docname,
  24                                         LONG reserved, LHCLIENTDOC *hRet )
  25 {
  26     FIXME("(%s,%s,...): stub\n",classname,docname);
  27     *hRet=++OLE_current_handle;
  28     return OLE_OK;
  29 }
  30
  31 /******************************************************************************
  32  *              OleRegisterClientDoc    [OLECLI32.41]
  33  */
  34 OLESTATUS WINAPI OleRegisterClientDoc(LPCSTR classname, LPCSTR docname,
  35                                         LONG reserved, LHCLIENTDOC *hRet )
  36 {
  37     FIXME("(%s,%s,...): stub\n",classname,docname);
  38     *hRet=++OLE_current_handle;
  39     return OLE_OK;
  40 }
  41
  42 /******************************************************************************
  43  *              OleRenameClientDoc16    [OLECLI.43]
  44  */
  45 OLESTATUS WINAPI OleRenameClientDoc16(LHCLIENTDOC hDoc, LPCSTR newName)
  46 {
  47     FIXME("(%ld,%s,...): stub\n",hDoc, newName);
  48     return OLE_OK;
  49 }
  50
  51 /******************************************************************************
  52  *              OleRenameClientDoc      [OLECLI32.43]
  53  */
  54 OLESTATUS WINAPI OleRenameClientDoc(LHCLIENTDOC hDoc, LPCSTR newName)
  55 {
  56     FIXME("(%ld,%s,...): stub\n",hDoc, newName);
  57     return OLE_OK;
  58 }
  59
  60 /******************************************************************************
  61  *              OleRevokeClientDoc16    [OLECLI.42]
  62  */
  63 OLESTATUS WINAPI OleRevokeClientDoc16(LHCLIENTDOC hServerDoc)
  64 {
  65     FIXME("(%ld): stub\n",hServerDoc);
  66     return OLE_OK;
  67 }
  68
  69 /******************************************************************************
  70  *              OleRevokeClientDoc      [OLECLI32.42]
  71  */
  72 OLESTATUS WINAPI OleRevokeClientDoc(LHCLIENTDOC hServerDoc)
  73 {
  74     FIXME("(%ld): stub\n",hServerDoc);
  75     return OLE_OK;
  76 }
  77
  78 /******************************************************************************
  79  *              OleRevertClientDoc16    [OLECLI.44]
  80  */
  81 OLESTATUS WINAPI OleRevertClientDoc16(LHCLIENTDOC hServerDoc)
  82 {
  83     FIXME("(%ld): stub\n", hServerDoc);
  84     return OLE_OK;
  85 }
  86
  87 /******************************************************************************
  88  *              OleEnumObjects16        [OLECLI.47]
  89  */
  90 OLESTATUS WINAPI OleEnumObjects16(LHCLIENTDOC hServerDoc, SEGPTR data)
  91 {
  92     FIXME("(%ld, %04x:%04x): stub\n", hServerDoc, HIWORD(data),
  93         LOWORD(data));
  94     return OLE_OK;
  95 }
  96
  97 /******************************************************************************
  98  *           OleCreateLinkFromClip16    [OLECLI.11]
  99  */
 100 OLESTATUS WINAPI OleCreateLinkFromClip16( LPCSTR name, SEGPTR olecli, LHCLIENTDOC hclientdoc,
 101                                           LPCSTR xname, SEGPTR lpoleob, UINT16 render,
 102                                           UINT16 clipformat )
 103 {
 104         FIXME("(%s, %04x:%04x, %ld, %s, %04x:%04x, %d, %d): stub!\n",
 105               name, HIWORD(olecli), LOWORD(olecli), hclientdoc, xname, HIWORD(lpoleob),
 106               LOWORD(lpoleob), render, clipformat);
 107         return OLE_OK;
 108 }
 109
 110 /******************************************************************************
 111  *           OleCreateLinkFromClip      [OLECLI32.11]
 112  */
 113 OLESTATUS WINAPI OleCreateLinkFromClip(
 114         LPCSTR name,LPOLECLIENT olecli,LHCLIENTDOC hclientdoc,LPCSTR xname,
 115         LPOLEOBJECT *lpoleob,OLEOPT_RENDER render,OLECLIPFORMAT clipformat
 116 ) {
 117         FIXME("(%s,%p,%08lx,%s,%p,%d,%ld): stub!\n",
 118               name,olecli,hclientdoc,xname,lpoleob,render,clipformat);
 119         return OLE_OK;
 120 }
 121
 122 /******************************************************************************
 123  *           OleQueryLinkFromClip16     [OLECLI.9]
 124  */
 125 OLESTATUS WINAPI OleQueryLinkFromClip16(LPCSTR name, UINT16 render, UINT16 clipformat)
 126 {
 127         FIXME("(%s, %d, %d): stub!\n", name, render, clipformat);
 128         return OLE_OK;
 129 }
 130
 131 /******************************************************************************
 132  *           OleQueryLinkFromClip       [OLECLI32.9]
 133  */
 134 OLESTATUS WINAPI OleQueryLinkFromClip(LPCSTR name,OLEOPT_RENDER render,OLECLIPFORMAT clipformat) {
 135         FIXME("(%s,%d,%ld): stub!\n",name,render,clipformat);
 136         return OLE_OK;
 137 }
 138
 139 /******************************************************************************
 140  *           OleQueryCreateFromClip16   [OLECLI.10]
 141  */
 142 OLESTATUS WINAPI OleQueryCreateFromClip16(LPCSTR name, UINT16 render, UINT16 clipformat)
 143 {
 144         FIXME("(%s, %d, %d): stub!\n", name, render, clipformat);
 145         return OLE_OK;
 146 }
 147
 148 /******************************************************************************
 149  *           OleQueryCreateFromClip     [OLECLI32.10]
 150  */
 151 OLESTATUS WINAPI OleQueryCreateFromClip(LPCSTR name,OLEOPT_RENDER render,OLECLIPFORMAT clipformat) {
 152         FIXME("(%s,%d,%ld): stub!\n",name,render,clipformat);
 153         return OLE_OK;
 154 }
 155
 156 /******************************************************************************
 157  *              OleIsDcMeta     [OLECLI32.60]
 158  */
 159 BOOL WINAPI OleIsDcMeta(HDC hdc)
 160 {
 161     TRACE("(%04x)\n",hdc);
 162     return GetObjectType( hdc ) == OBJ_METADC;
 163 }
 164
 165
 166 /******************************************************************************
 167  *              OleIsDcMeta16   [OLECLI.60]
 168  */
 169 BOOL16 WINAPI OleIsDcMeta16(HDC16 hdc)
 170 {
 171     return OleIsDcMeta( hdc );
 172 }
 173
 174
 175 /******************************************************************************
 176  *              OleSetHostNames [OLECLI32.15]
 177  */
 178 OLESTATUS WINAPI OleSetHostNames(LPOLEOBJECT oleob,LPCSTR name1,LPCSTR name2) {
 179         FIXME("(%p,%s,%s): stub\n",oleob,name1,name2);
 180         return OLE_OK;
 181 }
 182
 183 /******************************************************************************
 184  *              OleQueryType16  [OLECLI.14]
 185  */
 186 OLESTATUS WINAPI OleQueryType16(LPOLEOBJECT oleob,  SEGPTR xlong) {
 187         FIXME("(%p, %p): stub!\n", oleob, MapSL(xlong));
 188         return OLE_OK;
 189 }
 190
 191 /******************************************************************************
 192  *              OleQueryType    [OLECLI32.14]
 193  */
 194 OLESTATUS WINAPI OleQueryType(LPOLEOBJECT oleob,LONG*xlong) {
 195         FIXME("(%p,%p): stub!\n",oleob,xlong);
 196         if (!oleob)
 197                 return 0x10;
 198         TRACE("Calling OLEOBJECT.QueryType (%p) (%p,%p)\n",
 199               oleob->lpvtbl->QueryType,oleob,xlong);
 200         return oleob->lpvtbl->QueryType(oleob,xlong);
 201 }
 202
 203 /******************************************************************************
 204  *              OleCreateFromClip16     [OLECLI.12]
 205  */
 206 OLESTATUS WINAPI OleCreateFromClip16( LPCSTR name, SEGPTR olecli, LHCLIENTDOC hclientdoc,
 207                                       LPCSTR xname, SEGPTR lpoleob,
 208                                       UINT16 render, UINT16 clipformat )
 209 {
 210         FIXME("(%s, %04x:%04x, %ld, %s, %04x:%04x, %d, %d): stub!\n",
 211               name, HIWORD(olecli), LOWORD(olecli), hclientdoc, xname, HIWORD(lpoleob),
 212               LOWORD(lpoleob), render, clipformat);
 213         return OLE_OK;
 214 }
 215
 216 /******************************************************************************
 217  *              OleCreateFromClip       [OLECLI32.12]
 218  */
 219 OLESTATUS WINAPI OleCreateFromClip(
 220         LPCSTR name,LPOLECLIENT olecli,LHCLIENTDOC hclientdoc,LPCSTR xname,
 221         LPOLEOBJECT *lpoleob,OLEOPT_RENDER render, OLECLIPFORMAT clipformat
 222 ) {
 223         FIXME("(%s,%p,%08lx,%s,%p,%d,%ld): stub!\n",
 224               name,olecli,hclientdoc,xname,lpoleob,render,clipformat);
 225         /* clipb type, object kreieren entsprechend etc. */
 226         return OLE_OK;
 227 }
 228