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