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