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