urlmon: Win64 printf format warning fixes.
[wine] / dlls / urlmon / internet.c
1 /*
2  * Copyright 2005 Jacek Caban
3  *
4  * This library is free software; you can redistribute it and/or
5  * modify it under the terms of the GNU Lesser General Public
6  * License as published by the Free Software Foundation; either
7  * version 2.1 of the License, or (at your option) any later version.
8  *
9  * This library is distributed in the hope that it will be useful,
10  * but WITHOUT ANY WARRANTY; without even the implied warranty of
11  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
12  * Lesser General Public License for more details.
13  *
14  * You should have received a copy of the GNU Lesser General Public
15  * License along with this library; if not, write to the Free Software
16  * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
17  */
18
19 #include <stdarg.h>
20
21 #define COBJMACROS
22
23 #include "windef.h"
24 #include "winbase.h"
25 #include "winuser.h"
26 #include "winreg.h"
27 #include "shlwapi.h"
28 #include "ole2.h"
29 #include "urlmon.h"
30 #include "urlmon_main.h"
31
32 #include "wine/debug.h"
33 #include "wine/unicode.h"
34
35 WINE_DEFAULT_DEBUG_CHANNEL(urlmon);
36
37 static HRESULT parse_schema(LPCWSTR url, DWORD flags, LPWSTR result, DWORD size, DWORD *rsize)
38 {
39     WCHAR *ptr;
40     DWORD len = 0;
41
42     TRACE("(%s %08x %p %d %p)\n", debugstr_w(url), flags, result, size, rsize);
43
44     if(flags)
45         ERR("wrong flags\n");
46     
47     ptr = strchrW(url, ':');
48     if(ptr)
49         len = ptr-url;
50
51     if(len >= size)
52         return E_POINTER;
53
54     if(len)
55         memcpy(result, url, len*sizeof(WCHAR));
56     result[len] = 0;
57
58     if(rsize)
59         *rsize = len;
60
61     return S_OK;
62 }
63
64 static HRESULT parse_canonicalize_url(LPCWSTR url, DWORD flags, LPWSTR result,
65         DWORD size, DWORD *rsize)
66 {
67     IInternetProtocolInfo *protocol_info;
68     DWORD prsize = size;
69     HRESULT hres;
70
71     TRACE("(%s %08x %p %d %p)\n", debugstr_w(url), flags, result, size, rsize);
72
73     protocol_info = get_protocol_info(url);
74
75     if(protocol_info) {
76         hres = IInternetProtocolInfo_ParseUrl(protocol_info, url, PARSE_CANONICALIZE,
77                 flags, result, size, rsize, 0);
78         if(SUCCEEDED(hres))
79             return hres;
80     }
81
82     hres = UrlCanonicalizeW(url, result, &prsize, flags);
83
84     if(rsize)
85         *rsize = prsize;
86     return hres;
87 }
88
89 static HRESULT parse_security_url(LPCWSTR url, DWORD flags, LPWSTR result, DWORD size, DWORD *rsize)
90 {
91     IInternetProtocolInfo *protocol_info;
92     HRESULT hres;
93
94     TRACE("(%s %08x %p %d %p)\n", debugstr_w(url), flags, result, size, rsize);
95
96     protocol_info = get_protocol_info(url);
97
98     if(protocol_info) {
99         hres = IInternetProtocolInfo_ParseUrl(protocol_info, url, PARSE_SECURITY_URL,
100                 flags, result, size, rsize, 0);
101         return hres;
102     }
103
104     return E_FAIL;
105 }
106
107 static HRESULT parse_encode(LPCWSTR url, DWORD flags, LPWSTR result, DWORD size, DWORD *rsize)
108 {
109     IInternetProtocolInfo *protocol_info;
110     DWORD prsize;
111     HRESULT hres;
112
113     TRACE("(%s %08x %p %d %p)\n", debugstr_w(url), flags, result, size, rsize);
114
115     protocol_info = get_protocol_info(url);
116
117     if(protocol_info) {
118         hres = IInternetProtocolInfo_ParseUrl(protocol_info, url, PARSE_ENCODE,
119                 flags, result, size, rsize, 0);
120         if(SUCCEEDED(hres))
121             return hres;
122     }
123
124     prsize = size;
125     hres = UrlUnescapeW((LPWSTR)url, result, &prsize, flags);
126
127     if(rsize)
128         *rsize = prsize;
129
130     return hres;
131 }
132
133 static HRESULT parse_path_from_url(LPCWSTR url, DWORD flags, LPWSTR result, DWORD size, DWORD *rsize)
134 {
135     IInternetProtocolInfo *protocol_info;
136     DWORD prsize;
137     HRESULT hres;
138
139     TRACE("(%s %08x %p %d %p)\n", debugstr_w(url), flags, result, size, rsize);
140
141     protocol_info = get_protocol_info(url);
142
143     if(protocol_info) {
144         hres = IInternetProtocolInfo_ParseUrl(protocol_info, url, PARSE_PATH_FROM_URL,
145                 flags, result, size, rsize, 0);
146         if(SUCCEEDED(hres))
147             return hres;
148     }
149
150     prsize = size;
151     hres = PathCreateFromUrlW(url, result, &prsize, 0);
152
153     if(rsize)
154         *rsize = prsize;
155     return hres;
156 }
157
158 static HRESULT parse_security_domain(LPCWSTR url, DWORD flags, LPWSTR result,
159         DWORD size, DWORD *rsize)
160 {
161     IInternetProtocolInfo *protocol_info;
162     HRESULT hres;
163
164     TRACE("(%s %08x %p %d %p)\n", debugstr_w(url), flags, result, size, rsize);
165
166     protocol_info = get_protocol_info(url);
167
168     if(protocol_info) {
169         hres = IInternetProtocolInfo_ParseUrl(protocol_info, url, PARSE_SECURITY_DOMAIN,
170                 flags, result, size, rsize, 0);
171         if(SUCCEEDED(hres))
172             return hres;
173     }
174
175     return E_FAIL;
176 }
177
178 /**************************************************************************
179  *          CoInternetParseUrl    (URLMON.@)
180  */
181 HRESULT WINAPI CoInternetParseUrl(LPCWSTR pwzUrl, PARSEACTION ParseAction, DWORD dwFlags,
182         LPWSTR pszResult, DWORD cchResult, DWORD *pcchResult, DWORD dwReserved)
183 {
184     if(dwReserved)
185         WARN("dwReserved = %d\n", dwReserved);
186
187     switch(ParseAction) {
188     case PARSE_CANONICALIZE:
189         return parse_canonicalize_url(pwzUrl, dwFlags, pszResult, cchResult, pcchResult);
190     case PARSE_SECURITY_URL:
191         return parse_security_url(pwzUrl, dwFlags, pszResult, cchResult, pcchResult);
192     case PARSE_ENCODE:
193         return parse_encode(pwzUrl, dwFlags, pszResult, cchResult, pcchResult);
194     case PARSE_PATH_FROM_URL:
195         return parse_path_from_url(pwzUrl, dwFlags, pszResult, cchResult, pcchResult);
196     case PARSE_SCHEMA:
197         return parse_schema(pwzUrl, dwFlags, pszResult, cchResult, pcchResult);
198     case PARSE_SECURITY_DOMAIN:
199         return parse_security_domain(pwzUrl, dwFlags, pszResult, cchResult, pcchResult);
200     default:
201         FIXME("not supported action %d\n", ParseAction);
202     }
203
204     return E_NOTIMPL;
205 }
206
207 /**************************************************************************
208  *          CoInternetCombineUrl    (URLMON.@)
209  */
210 HRESULT WINAPI CoInternetCombineUrl(LPCWSTR pwzBaseUrl, LPCWSTR pwzRelativeUrl,
211         DWORD dwCombineFlags, LPWSTR pwzResult, DWORD cchResult, DWORD *pcchResult,
212         DWORD dwReserved)
213 {
214     IInternetProtocolInfo *protocol_info;
215     DWORD size = cchResult;
216     HRESULT hres;
217     
218     TRACE("(%s,%s,0x%08x,%p,%d,%p,%d)\n", debugstr_w(pwzBaseUrl),
219           debugstr_w(pwzRelativeUrl), dwCombineFlags, pwzResult, cchResult, pcchResult,
220           dwReserved);
221
222     protocol_info = get_protocol_info(pwzBaseUrl);
223
224     if(protocol_info) {
225         hres = IInternetProtocolInfo_CombineUrl(protocol_info, pwzBaseUrl, pwzRelativeUrl,
226                 dwCombineFlags, pwzResult, cchResult, pcchResult, dwReserved);
227         if(SUCCEEDED(hres))
228             return hres;
229     }
230
231
232     hres = UrlCombineW(pwzBaseUrl, pwzRelativeUrl, pwzResult, &size, dwCombineFlags);
233
234     if(pcchResult)
235         *pcchResult = size;
236
237     return hres;
238 }