Change calls to CLSIDFromString to SHCLSIDFromStringW except in
[wine] / 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 #include "wownt32.h"
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("(%p)\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_32(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