2 * Copyright 2005 Jacek Caban
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.
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.
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
30 #include "urlmon_main.h"
32 #include "wine/debug.h"
33 #include "wine/unicode.h"
35 WINE_DEFAULT_DEBUG_CHANNEL(urlmon);
37 static HRESULT parse_schema(LPCWSTR url, DWORD flags, LPWSTR result, DWORD size, DWORD *rsize)
42 TRACE("(%s %08x %p %d %p)\n", debugstr_w(url), flags, result, size, rsize);
47 ptr = strchrW(url, ':');
55 memcpy(result, url, len*sizeof(WCHAR));
64 static HRESULT parse_canonicalize_url(LPCWSTR url, DWORD flags, LPWSTR result,
65 DWORD size, DWORD *rsize)
67 IInternetProtocolInfo *protocol_info;
71 TRACE("(%s %08x %p %d %p)\n", debugstr_w(url), flags, result, size, rsize);
73 protocol_info = get_protocol_info(url);
76 hres = IInternetProtocolInfo_ParseUrl(protocol_info, url, PARSE_CANONICALIZE,
77 flags, result, size, rsize, 0);
82 hres = UrlCanonicalizeW(url, result, &prsize, flags);
89 static HRESULT parse_security_url(LPCWSTR url, DWORD flags, LPWSTR result, DWORD size, DWORD *rsize)
91 IInternetProtocolInfo *protocol_info;
94 TRACE("(%s %08x %p %d %p)\n", debugstr_w(url), flags, result, size, rsize);
96 protocol_info = get_protocol_info(url);
99 hres = IInternetProtocolInfo_ParseUrl(protocol_info, url, PARSE_SECURITY_URL,
100 flags, result, size, rsize, 0);
107 static HRESULT parse_encode(LPCWSTR url, DWORD flags, LPWSTR result, DWORD size, DWORD *rsize)
109 IInternetProtocolInfo *protocol_info;
113 TRACE("(%s %08x %p %d %p)\n", debugstr_w(url), flags, result, size, rsize);
115 protocol_info = get_protocol_info(url);
118 hres = IInternetProtocolInfo_ParseUrl(protocol_info, url, PARSE_ENCODE,
119 flags, result, size, rsize, 0);
125 hres = UrlUnescapeW((LPWSTR)url, result, &prsize, flags);
133 static HRESULT parse_path_from_url(LPCWSTR url, DWORD flags, LPWSTR result, DWORD size, DWORD *rsize)
135 IInternetProtocolInfo *protocol_info;
139 TRACE("(%s %08x %p %d %p)\n", debugstr_w(url), flags, result, size, rsize);
141 protocol_info = get_protocol_info(url);
144 hres = IInternetProtocolInfo_ParseUrl(protocol_info, url, PARSE_PATH_FROM_URL,
145 flags, result, size, rsize, 0);
151 hres = PathCreateFromUrlW(url, result, &prsize, 0);
158 static HRESULT parse_security_domain(LPCWSTR url, DWORD flags, LPWSTR result,
159 DWORD size, DWORD *rsize)
161 IInternetProtocolInfo *protocol_info;
164 TRACE("(%s %08x %p %d %p)\n", debugstr_w(url), flags, result, size, rsize);
166 protocol_info = get_protocol_info(url);
169 hres = IInternetProtocolInfo_ParseUrl(protocol_info, url, PARSE_SECURITY_DOMAIN,
170 flags, result, size, rsize, 0);
178 /**************************************************************************
179 * CoInternetParseUrl (URLMON.@)
181 HRESULT WINAPI CoInternetParseUrl(LPCWSTR pwzUrl, PARSEACTION ParseAction, DWORD dwFlags,
182 LPWSTR pszResult, DWORD cchResult, DWORD *pcchResult, DWORD dwReserved)
185 WARN("dwReserved = %d\n", dwReserved);
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);
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);
197 return parse_schema(pwzUrl, dwFlags, pszResult, cchResult, pcchResult);
198 case PARSE_SECURITY_DOMAIN:
199 return parse_security_domain(pwzUrl, dwFlags, pszResult, cchResult, pcchResult);
201 FIXME("not supported action %d\n", ParseAction);
207 /**************************************************************************
208 * CoInternetCombineUrl (URLMON.@)
210 HRESULT WINAPI CoInternetCombineUrl(LPCWSTR pwzBaseUrl, LPCWSTR pwzRelativeUrl,
211 DWORD dwCombineFlags, LPWSTR pwzResult, DWORD cchResult, DWORD *pcchResult,
214 IInternetProtocolInfo *protocol_info;
215 DWORD size = cchResult;
218 TRACE("(%s,%s,0x%08x,%p,%d,%p,%d)\n", debugstr_w(pwzBaseUrl),
219 debugstr_w(pwzRelativeUrl), dwCombineFlags, pwzResult, cchResult, pcchResult,
222 protocol_info = get_protocol_info(pwzBaseUrl);
225 hres = IInternetProtocolInfo_CombineUrl(protocol_info, pwzBaseUrl, pwzRelativeUrl,
226 dwCombineFlags, pwzResult, cchResult, pcchResult, dwReserved);
232 hres = UrlCombineW(pwzBaseUrl, pwzRelativeUrl, pwzResult, &size, dwCombineFlags);