dlls/olecli/olecli_main.c

   1 /*
   2  *      OLECLI library
   3  *
   4  *      Copyright 1995  Martin von Loewis
   5  *
   6  * This library is free software; you can redistribute it and/or
   7  * modify it under the terms of the GNU Lesser General Public
   8  * License as published by the Free Software Foundation; either
   9  * version 2.1 of the License, or (at your option) any later version.
  10  *
  11  * This library is distributed in the hope that it will be useful,
  12  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  13  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  14  * Lesser General Public License for more details.
  15  *
  16  * You should have received a copy of the GNU Lesser General Public
  17  * License along with this library; if not, write to the Free Software
  18  * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
  19  */
  20
  21 /*      At the moment, these are only empty stubs.
  22  */
  23
  24 #include "config.h"
  25
  26 #include "ole.h"
  27 #include "winbase.h"
  28 #include "wingdi.h"
  29
  30 #include "wine/debug.h"
  31
  32 WINE_DEFAULT_DEBUG_CHANNEL(ole);
  33
  34
  35 static LONG OLE_current_handle;
  36
  37 /******************************************************************************
  38  *              OleSavedClientDoc       [OLECLI32.45]
  39  */
  40 OLESTATUS WINAPI OleSavedClientDoc(LHCLIENTDOC hDoc)
  41 {
  42     FIXME("(%ld: stub\n", hDoc);
  43     return OLE_OK;
  44 }
  45
  46 /******************************************************************************
  47  *              OleSavedClientDoc       [OLECLI.45]
  48  */
  49 OLESTATUS WINAPI OleSavedClientDoc16(LHCLIENTDOC hDoc)
  50 {
  51     FIXME("(%ld: stub\n", hDoc);
  52     return OLE_OK;
  53 }
  54
  55 /******************************************************************************
  56  *              OleRegisterClientDoc    [OLECLI.41]
  57  */
  58 OLESTATUS WINAPI OleRegisterClientDoc16(LPCSTR classname, LPCSTR docname,
  59                                         LONG reserved, LHCLIENTDOC *hRet )
  60 {
  61     FIXME("(%s,%s,...): stub\n",classname,docname);
  62     *hRet=++OLE_current_handle;
  63     return OLE_OK;
  64 }
  65
  66 /******************************************************************************
  67  *              OleRegisterClientDoc    [OLECLI32.41]
  68  */
  69 OLESTATUS WINAPI OleRegisterClientDoc(LPCSTR classname, LPCSTR docname,
  70                                         LONG reserved, LHCLIENTDOC *hRet )
  71 {
  72     FIXME("(%s,%s,...): stub\n",classname,docname);
  73     *hRet=++OLE_current_handle;
  74     return OLE_OK;
  75 }
  76
  77 /******************************************************************************
  78  *              OleRenameClientDoc      [OLECLI.43]
  79  */
  80 OLESTATUS WINAPI OleRenameClientDoc16(LHCLIENTDOC hDoc, LPCSTR newName)
  81 {
  82     FIXME("(%ld,%s,...): stub\n",hDoc, newName);
  83     return OLE_OK;
  84 }
  85
  86 /******************************************************************************
  87  *              OleRenameClientDoc      [OLECLI32.43]
  88  */
  89 OLESTATUS WINAPI OleRenameClientDoc(LHCLIENTDOC hDoc, LPCSTR newName)
  90 {
  91     FIXME("(%ld,%s,...): stub\n",hDoc, newName);
  92     return OLE_OK;
  93 }
  94
  95 /******************************************************************************
  96  *              OleRevokeClientDoc      [OLECLI.42]
  97  */
  98 OLESTATUS WINAPI OleRevokeClientDoc16(LHCLIENTDOC hServerDoc)
  99 {
 100     FIXME("(%ld): stub\n",hServerDoc);
 101     return OLE_OK;
 102 }
 103
 104 /******************************************************************************
 105  *              OleRevokeClientDoc      [OLECLI32.42]
 106  */
 107 OLESTATUS WINAPI OleRevokeClientDoc(LHCLIENTDOC hServerDoc)
 108 {
 109     FIXME("(%ld): stub\n",hServerDoc);
 110     return OLE_OK;
 111 }
 112
 113 /******************************************************************************
 114  *              OleRevertClientDoc      [OLECLI.44]
 115  */
 116 OLESTATUS WINAPI OleRevertClientDoc16(LHCLIENTDOC hServerDoc)
 117 {
 118     FIXME("(%ld): stub\n", hServerDoc);
 119     return OLE_OK;
 120 }
 121
 122 /******************************************************************************
 123  *              OleEnumObjects  [OLECLI.47]
 124  */
 125 OLESTATUS WINAPI OleEnumObjects16(LHCLIENTDOC hServerDoc, SEGPTR data)
 126 {
 127     FIXME("(%ld, %04x:%04x): stub\n", hServerDoc, HIWORD(data),
 128         LOWORD(data));
 129     return OLE_OK;
 130 }
 131
 132 /******************************************************************************
 133  *           OleCreateLinkFromClip      [OLECLI.11]
 134  */
 135 OLESTATUS WINAPI OleCreateLinkFromClip16( LPCSTR name, SEGPTR olecli, LHCLIENTDOC hclientdoc,
 136                                           LPCSTR xname, SEGPTR lpoleob, UINT16 render,
 137                                           UINT16 clipformat )
 138 {
 139         FIXME("(%s, %04x:%04x, %ld, %s, %04x:%04x, %d, %d): stub!\n",
 140               name, HIWORD(olecli), LOWORD(olecli), hclientdoc, xname, HIWORD(lpoleob),
 141               LOWORD(lpoleob), render, clipformat);
 142         return OLE_OK;
 143 }
 144
 145 /******************************************************************************
 146  *           OleCreateLinkFromClip      [OLECLI32.11]
 147  */
 148 OLESTATUS WINAPI OleCreateLinkFromClip(
 149         LPCSTR name,LPOLECLIENT olecli,LHCLIENTDOC hclientdoc,LPCSTR xname,
 150         LPOLEOBJECT *lpoleob,OLEOPT_RENDER render,OLECLIPFORMAT clipformat
 151 ) {
 152         FIXME("(%s,%p,%08lx,%s,%p,%d,%ld): stub!\n",
 153               name,olecli,hclientdoc,xname,lpoleob,render,clipformat);
 154         return OLE_OK;
 155 }
 156
 157 /******************************************************************************
 158  *           OleQueryLinkFromClip       [OLECLI.9]
 159  */
 160 OLESTATUS WINAPI OleQueryLinkFromClip16(LPCSTR name, UINT16 render, UINT16 clipformat)
 161 {
 162         FIXME("(%s, %d, %d): stub!\n", name, render, clipformat);
 163         return OLE_OK;
 164 }
 165
 166 /******************************************************************************
 167  *           OleQueryLinkFromClip       [OLECLI32.9]
 168  */
 169 OLESTATUS WINAPI OleQueryLinkFromClip(LPCSTR name,OLEOPT_RENDER render,OLECLIPFORMAT clipformat) {
 170         FIXME("(%s,%d,%ld): stub!\n",name,render,clipformat);
 171         return OLE_OK;
 172 }
 173
 174 /******************************************************************************
 175  *           OleQueryCreateFromClip     [OLECLI.10]
 176  */
 177 OLESTATUS WINAPI OleQueryCreateFromClip16(LPCSTR name, UINT16 render, UINT16 clipformat)
 178 {
 179         FIXME("(%s, %d, %d): stub!\n", name, render, clipformat);
 180         return OLE_OK;
 181 }
 182
 183 /******************************************************************************
 184  *           OleQueryCreateFromClip     [OLECLI32.10]
 185  */
 186 OLESTATUS WINAPI OleQueryCreateFromClip(LPCSTR name,OLEOPT_RENDER render,OLECLIPFORMAT clipformat) {
 187         FIXME("(%s,%d,%ld): stub!\n",name,render,clipformat);
 188         return OLE_OK;
 189 }
 190
 191 /******************************************************************************
 192  *              OleIsDcMeta     [OLECLI32.60]
 193  */
 194 BOOL WINAPI OleIsDcMeta(HDC hdc)
 195 {
 196     TRACE("(%04x)\n",hdc);
 197     return GetObjectType( hdc ) == OBJ_METADC;
 198 }
 199
 200
 201 /******************************************************************************
 202  *              OleIsDcMeta     [OLECLI.60]
 203  */
 204 BOOL16 WINAPI OleIsDcMeta16(HDC16 hdc)
 205 {
 206     return OleIsDcMeta( hdc );
 207 }
 208
 209
 210 /******************************************************************************
 211  *              OleSetHostNames [OLECLI32.15]
 212  */
 213 OLESTATUS WINAPI OleSetHostNames(LPOLEOBJECT oleob,LPCSTR name1,LPCSTR name2) {
 214         FIXME("(%p,%s,%s): stub\n",oleob,name1,name2);
 215         return OLE_OK;
 216 }
 217
 218 /******************************************************************************
 219  *              OleQueryType    [OLECLI.14]
 220  */
 221 OLESTATUS WINAPI OleQueryType16(LPOLEOBJECT oleob,  SEGPTR xlong) {
 222         FIXME("(%p, %p): stub!\n", oleob, MapSL(xlong));
 223         return OLE_OK;
 224 }
 225
 226 /******************************************************************************
 227  *              OleQueryType    [OLECLI32.14]
 228  */
 229 OLESTATUS WINAPI OleQueryType(LPOLEOBJECT oleob,LONG*xlong) {
 230         FIXME("(%p,%p): stub!\n",oleob,xlong);
 231         if (!oleob)
 232                 return 0x10;
 233         TRACE("Calling OLEOBJECT.QueryType (%p) (%p,%p)\n",
 234               oleob->lpvtbl->QueryType,oleob,xlong);
 235         return oleob->lpvtbl->QueryType(oleob,xlong);
 236 }
 237
 238 /******************************************************************************
 239  *              OleCreateFromClip       [OLECLI.12]
 240  */
 241 OLESTATUS WINAPI OleCreateFromClip16( LPCSTR name, SEGPTR olecli, LHCLIENTDOC hclientdoc,
 242                                       LPCSTR xname, SEGPTR lpoleob,
 243                                       UINT16 render, UINT16 clipformat )
 244 {
 245         FIXME("(%s, %04x:%04x, %ld, %s, %04x:%04x, %d, %d): stub!\n",
 246               name, HIWORD(olecli), LOWORD(olecli), hclientdoc, xname, HIWORD(lpoleob),
 247               LOWORD(lpoleob), render, clipformat);
 248         return OLE_OK;
 249 }
 250
 251 /******************************************************************************
 252  *              OleCreateFromClip       [OLECLI32.12]
 253  */
 254 OLESTATUS WINAPI OleCreateFromClip(
 255         LPCSTR name,LPOLECLIENT olecli,LHCLIENTDOC hclientdoc,LPCSTR xname,
 256         LPOLEOBJECT *lpoleob,OLEOPT_RENDER render, OLECLIPFORMAT clipformat
 257 ) {
 258         FIXME("(%s,%p,%08lx,%s,%p,%d,%ld): stub!\n",
 259               name,olecli,hclientdoc,xname,lpoleob,render,clipformat);
 260         /* clipb type, object kreieren entsprechend etc. */
 261         return OLE_OK;
 262 }
 263