git.oblomov.eu Git - wine/blob - dlls/shlwapi/url.c

   1 /*
   2  * Url functions
   3  *
   4  * Copyright 2000 Huw D M Davies for CodeWeavers.
   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., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
  19  */
  20
  21 #include "config.h"
  22 #include "wine/port.h"
  23 #include <stdarg.h>
  24 #include <string.h>
  25 #include <stdlib.h>
  26 #include "windef.h"
  27 #include "winbase.h"
  28 #include "winnls.h"
  29 #include "winerror.h"
  30 #include "wine/unicode.h"
  31 #include "wininet.h"
  32 #include "winreg.h"
  33 #include "winternl.h"
  34 #define NO_SHLWAPI_STREAM
  35 #include "shlwapi.h"
  36 #include "wine/debug.h"
  37
  38 HMODULE WINAPI MLLoadLibraryW(LPCWSTR,HMODULE,DWORD);
  39 BOOL    WINAPI MLFreeLibrary(HMODULE);
  40 HRESULT WINAPI MLBuildResURLW(LPCWSTR,HMODULE,DWORD,LPCWSTR,LPWSTR,DWORD);
  41
  42 WINE_DEFAULT_DEBUG_CHANNEL(shell);
  43
  44 /* The following schemes were identified in the native version of
  45  * SHLWAPI.DLL version 5.50
  46  */
  47 typedef struct {
  48     URL_SCHEME  scheme_number;
  49     LPCSTR scheme_name;
  50 } SHL_2_inet_scheme;
  51
  52 static const SHL_2_inet_scheme shlwapi_schemes[] = {
  53   {URL_SCHEME_FTP,        "ftp"},
  54   {URL_SCHEME_HTTP,       "http"},
  55   {URL_SCHEME_GOPHER,     "gopher"},
  56   {URL_SCHEME_MAILTO,     "mailto"},
  57   {URL_SCHEME_NEWS,       "news"},
  58   {URL_SCHEME_NNTP,       "nntp"},
  59   {URL_SCHEME_TELNET,     "telnet"},
  60   {URL_SCHEME_WAIS,       "wais"},
  61   {URL_SCHEME_FILE,       "file"},
  62   {URL_SCHEME_MK,         "mk"},
  63   {URL_SCHEME_HTTPS,      "https"},
  64   {URL_SCHEME_SHELL,      "shell"},
  65   {URL_SCHEME_SNEWS,      "snews"},
  66   {URL_SCHEME_LOCAL,      "local"},
  67   {URL_SCHEME_JAVASCRIPT, "javascript"},
  68   {URL_SCHEME_VBSCRIPT,   "vbscript"},
  69   {URL_SCHEME_ABOUT,      "about"},
  70   {URL_SCHEME_RES,        "res"},
  71   {0, 0}
  72 };
  73
  74 typedef struct {
  75     LPCWSTR pScheme;      /* [out] start of scheme                     */
  76     DWORD   szScheme;     /* [out] size of scheme (until colon)        */
  77     LPCWSTR pUserName;    /* [out] start of Username                   */
  78     DWORD   szUserName;   /* [out] size of Username (until ":" or "@") */
  79     LPCWSTR pPassword;    /* [out] start of Password                   */
  80     DWORD   szPassword;   /* [out] size of Password (until "@")        */
  81     LPCWSTR pHostName;    /* [out] start of Hostname                   */
  82     DWORD   szHostName;   /* [out] size of Hostname (until ":" or "/") */
  83     LPCWSTR pPort;        /* [out] start of Port                       */
  84     DWORD   szPort;       /* [out] size of Port (until "/" or eos)     */
  85     LPCWSTR pQuery;       /* [out] start of Query                      */
  86     DWORD   szQuery;      /* [out] size of Query (until eos)           */
  87 } WINE_PARSE_URL;
  88
  89 typedef enum {
  90     SCHEME,
  91     HOST,
  92     PORT,
  93     USERPASS,
  94 } WINE_URL_SCAN_TYPE;
  95
  96 static const CHAR hexDigits[] = "0123456789ABCDEF";
  97
  98 static const WCHAR fileW[] = {'f','i','l','e','\0'};
  99
 100 static const unsigned char HashDataLookup[256] = {
 101  0x01, 0x0E, 0x6E, 0x19, 0x61, 0xAE, 0x84, 0x77, 0x8A, 0xAA, 0x7D, 0x76, 0x1B,
 102  0xE9, 0x8C, 0x33, 0x57, 0xC5, 0xB1, 0x6B, 0xEA, 0xA9, 0x38, 0x44, 0x1E, 0x07,
 103  0xAD, 0x49, 0xBC, 0x28, 0x24, 0x41, 0x31, 0xD5, 0x68, 0xBE, 0x39, 0xD3, 0x94,
 104  0xDF, 0x30, 0x73, 0x0F, 0x02, 0x43, 0xBA, 0xD2, 0x1C, 0x0C, 0xB5, 0x67, 0x46,
 105  0x16, 0x3A, 0x4B, 0x4E, 0xB7, 0xA7, 0xEE, 0x9D, 0x7C, 0x93, 0xAC, 0x90, 0xB0,
 106  0xA1, 0x8D, 0x56, 0x3C, 0x42, 0x80, 0x53, 0x9C, 0xF1, 0x4F, 0x2E, 0xA8, 0xC6,
 107  0x29, 0xFE, 0xB2, 0x55, 0xFD, 0xED, 0xFA, 0x9A, 0x85, 0x58, 0x23, 0xCE, 0x5F,
 108  0x74, 0xFC, 0xC0, 0x36, 0xDD, 0x66, 0xDA, 0xFF, 0xF0, 0x52, 0x6A, 0x9E, 0xC9,
 109  0x3D, 0x03, 0x59, 0x09, 0x2A, 0x9B, 0x9F, 0x5D, 0xA6, 0x50, 0x32, 0x22, 0xAF,
 110  0xC3, 0x64, 0x63, 0x1A, 0x96, 0x10, 0x91, 0x04, 0x21, 0x08, 0xBD, 0x79, 0x40,
 111  0x4D, 0x48, 0xD0, 0xF5, 0x82, 0x7A, 0x8F, 0x37, 0x69, 0x86, 0x1D, 0xA4, 0xB9,
 112  0xC2, 0xC1, 0xEF, 0x65, 0xF2, 0x05, 0xAB, 0x7E, 0x0B, 0x4A, 0x3B, 0x89, 0xE4,
 113  0x6C, 0xBF, 0xE8, 0x8B, 0x06, 0x18, 0x51, 0x14, 0x7F, 0x11, 0x5B, 0x5C, 0xFB,
 114  0x97, 0xE1, 0xCF, 0x15, 0x62, 0x71, 0x70, 0x54, 0xE2, 0x12, 0xD6, 0xC7, 0xBB,
 115  0x0D, 0x20, 0x5E, 0xDC, 0xE0, 0xD4, 0xF7, 0xCC, 0xC4, 0x2B, 0xF9, 0xEC, 0x2D,
 116  0xF4, 0x6F, 0xB6, 0x99, 0x88, 0x81, 0x5A, 0xD9, 0xCA, 0x13, 0xA5, 0xE7, 0x47,
 117  0xE6, 0x8E, 0x60, 0xE3, 0x3E, 0xB3, 0xF6, 0x72, 0xA2, 0x35, 0xA0, 0xD7, 0xCD,
 118  0xB4, 0x2F, 0x6D, 0x2C, 0x26, 0x1F, 0x95, 0x87, 0x00, 0xD8, 0x34, 0x3F, 0x17,
 119  0x25, 0x45, 0x27, 0x75, 0x92, 0xB8, 0xA3, 0xC8, 0xDE, 0xEB, 0xF8, 0xF3, 0xDB,
 120  0x0A, 0x98, 0x83, 0x7B, 0xE5, 0xCB, 0x4C, 0x78, 0xD1 };
 121
 122 static BOOL URL_JustLocation(LPCWSTR str)
 123 {
 124     while(*str && (*str == L'/')) str++;
 125     if (*str) {
 126         while (*str && ((*str == L'-') ||
 127                         (*str == L'.') ||
 128                         isalnumW(*str))) str++;
 129         if (*str == L'/') return FALSE;
 130     }
 131     return TRUE;
 132 }
 133
 134
 135 /*************************************************************************
 136  *      @       [SHLWAPI.1]
 137  *
 138  * Parse a Url into its constituent parts.
 139  *
 140  * PARAMS
 141  *  x [I] Url to parse
 142  *  y [O] Undocumented structure holding the parsed information
 143  *
 144  * RETURNS
 145  *  Success: S_OK. y contains the parsed Url details.
 146  *  Failure: An HRESULT error code.
 147  */
 148 HRESULT WINAPI ParseURLA(LPCSTR x, PARSEDURLA *y)
 149 {
 150     DWORD cnt;
 151     const SHL_2_inet_scheme *inet_pro;
 152
 153     y->nScheme = URL_SCHEME_INVALID;
 154     if (y->cbSize != sizeof(*y)) return E_INVALIDARG;
 155     /* FIXME: leading white space generates error of 0x80041001 which
 156      *        is undefined
 157      */
 158     if (*x <= ' ') return 0x80041001;
 159     cnt = 0;
 160     y->cchProtocol = 0;
 161     y->pszProtocol = x;
 162     while (*x) {
 163         if (*x == ':') {
 164             y->cchProtocol = cnt;
 165             cnt = -1;
 166             y->pszSuffix = x+1;
 167             break;
 168         }
 169         x++;
 170         cnt++;
 171     }
 172
 173     /* check for no scheme in string start */
 174     /* (apparently schemes *must* be larger than a single character)  */
 175     if ((*x == '\0') || (y->cchProtocol <= 1)) {
 176         y->pszProtocol = NULL;
 177         return 0x80041001;
 178     }
 179
 180     /* found scheme, set length of remainder */
 181     y->cchSuffix = lstrlenA(y->pszSuffix);
 182
 183     /* see if known scheme and return indicator number */
 184     y->nScheme = URL_SCHEME_UNKNOWN;
 185     inet_pro = shlwapi_schemes;
 186     while (inet_pro->scheme_name) {
 187         if (!strncasecmp(inet_pro->scheme_name, y->pszProtocol,
 188                     min(y->cchProtocol, lstrlenA(inet_pro->scheme_name)))) {
 189             y->nScheme = inet_pro->scheme_number;
 190             break;
 191         }
 192         inet_pro++;
 193     }
 194     return S_OK;
 195 }
 196
 197 /*************************************************************************
 198  *      @       [SHLWAPI.2]
 199  *
 200  * Unicode version of ParseURLA.
 201  */
 202 HRESULT WINAPI ParseURLW(LPCWSTR x, PARSEDURLW *y)
 203 {
 204     DWORD cnt;
 205     const SHL_2_inet_scheme *inet_pro;
 206     LPSTR cmpstr;
 207     INT len;
 208
 209     y->nScheme = URL_SCHEME_INVALID;
 210     if (y->cbSize != sizeof(*y)) return E_INVALIDARG;
 211     /* FIXME: leading white space generates error of 0x80041001 which
 212      *        is undefined
 213      */
 214     if (*x <= L' ') return 0x80041001;
 215     cnt = 0;
 216     y->cchProtocol = 0;
 217     y->pszProtocol = x;
 218     while (*x) {
 219         if (*x == L':') {
 220             y->cchProtocol = cnt;
 221             cnt = -1;
 222             y->pszSuffix = x+1;
 223             break;
 224         }
 225         x++;
 226         cnt++;
 227     }
 228
 229     /* check for no scheme in string start */
 230     /* (apparently schemes *must* be larger than a single character)  */
 231     if ((*x == L'\0') || (y->cchProtocol <= 1)) {
 232         y->pszProtocol = NULL;
 233         return 0x80041001;
 234     }
 235
 236     /* found scheme, set length of remainder */
 237     y->cchSuffix = lstrlenW(y->pszSuffix);
 238
 239     /* see if known scheme and return indicator number */
 240     len = WideCharToMultiByte(0, 0, y->pszProtocol, y->cchProtocol, 0, 0, 0, 0);
 241     cmpstr = HeapAlloc(GetProcessHeap(), 0, len);
 242     WideCharToMultiByte(0, 0, y->pszProtocol, y->cchProtocol, cmpstr, len, 0, 0);
 243     y->nScheme = URL_SCHEME_UNKNOWN;
 244     inet_pro = shlwapi_schemes;
 245     while (inet_pro->scheme_name) {
 246         if (!strncasecmp(inet_pro->scheme_name, cmpstr,
 247                     min(len, lstrlenA(inet_pro->scheme_name)))) {
 248             y->nScheme = inet_pro->scheme_number;
 249             break;
 250         }
 251         inet_pro++;
 252     }
 253     HeapFree(GetProcessHeap(), 0, cmpstr);
 254     return S_OK;
 255 }
 256
 257 /*************************************************************************
 258  *        UrlCanonicalizeA     [SHLWAPI.@]
 259  *
 260  * Canonicalize a Url.
 261  *
 262  * PARAMS
 263  *  pszUrl            [I]   Url to cCanonicalize
 264  *  pszCanonicalized  [O]   Destination for converted Url.
 265  *  pcchCanonicalized [I/O] Length of pszUrl, destination for length of pszCanonicalized
 266  *  dwFlags           [I]   Flags controlling the conversion.
 267  *
 268  * RETURNS
 269  *  Success: S_OK. The pszCanonicalized contains the converted Url.
 270  *  Failure: E_POINTER, if *pcchCanonicalized is too small.
 271  *
 272  * MSDN incorrectly describes the flags for this function. They should be:
 273  *|    URL_DONT_ESCAPE_EXTRA_INFO    0x02000000
 274  *|    URL_ESCAPE_SPACES_ONLY        0x04000000
 275  *|    URL_ESCAPE_PERCENT            0x00001000
 276  *|    URL_ESCAPE_UNSAFE             0x10000000
 277  *|    URL_UNESCAPE                  0x10000000
 278  *|    URL_DONT_SIMPLIFY             0x08000000
 279  *|    URL_ESCAPE_SEGMENT_ONLY       0x00002000
 280  */
 281 HRESULT WINAPI UrlCanonicalizeA(LPCSTR pszUrl, LPSTR pszCanonicalized,
 282         LPDWORD pcchCanonicalized, DWORD dwFlags)
 283 {
 284     LPWSTR base, canonical;
 285     DWORD ret, len, len2;
 286
 287     TRACE("(%s %p %p 0x%08lx) using W version\n",
 288           debugstr_a(pszUrl), pszCanonicalized,
 289           pcchCanonicalized, dwFlags);
 290
 291     if(!pszUrl || !pszCanonicalized || !pcchCanonicalized)
 292         return E_INVALIDARG;
 293
 294     base = HeapAlloc(GetProcessHeap(), 0,
 295                               (2*INTERNET_MAX_URL_LENGTH) * sizeof(WCHAR));
 296     canonical = base + INTERNET_MAX_URL_LENGTH;
 297
 298     MultiByteToWideChar(0, 0, pszUrl, -1, base, INTERNET_MAX_URL_LENGTH);
 299     len = INTERNET_MAX_URL_LENGTH;
 300
 301     ret = UrlCanonicalizeW(base, canonical, &len, dwFlags);
 302     if (ret != S_OK) {
 303         HeapFree(GetProcessHeap(), 0, base);
 304         return ret;
 305     }
 306
 307     len2 = WideCharToMultiByte(0, 0, canonical, len, 0, 0, 0, 0);
 308     if (len2 > *pcchCanonicalized) {
 309         *pcchCanonicalized = len;
 310         HeapFree(GetProcessHeap(), 0, base);
 311         return E_POINTER;
 312     }
 313     WideCharToMultiByte(0, 0, canonical, len+1, pszCanonicalized,
 314                         *pcchCanonicalized, 0, 0);
 315     *pcchCanonicalized = len2;
 316     HeapFree(GetProcessHeap(), 0, base);
 317     return S_OK;
 318 }
 319
 320 /*************************************************************************
 321  *        UrlCanonicalizeW     [SHLWAPI.@]
 322  *
 323  * See UrlCanonicalizeA.
 324  */
 325 HRESULT WINAPI UrlCanonicalizeW(LPCWSTR pszUrl, LPWSTR pszCanonicalized,
 326                                 LPDWORD pcchCanonicalized, DWORD dwFlags)
 327 {
 328     HRESULT hr = S_OK;
 329     DWORD EscapeFlags;
 330     LPWSTR lpszUrlCpy, wk1, wk2, mp, mp2, root;
 331     INT nByteLen, state;
 332     DWORD nLen, nWkLen;
 333     WCHAR slash = '/';
 334
 335     static const WCHAR wszFile[] = {'f','i','l','e',':'};
 336
 337     TRACE("(%s %p %p 0x%08lx)\n", debugstr_w(pszUrl), pszCanonicalized,
 338           pcchCanonicalized, dwFlags);
 339
 340     if(!pszUrl || !pszCanonicalized || !pcchCanonicalized)
 341         return E_INVALIDARG;
 342
 343     if(!*pszUrl) {
 344         *pszCanonicalized = 0;
 345         return S_OK;
 346     }
 347
 348     nByteLen = (lstrlenW(pszUrl) + 1) * sizeof(WCHAR); /* length in bytes */
 349     lpszUrlCpy = HeapAlloc(GetProcessHeap(), 0, INTERNET_MAX_URL_LENGTH);
 350
 351     if((dwFlags & URL_FILE_USE_PATHURL) && nByteLen >= sizeof(wszFile)
 352             && !memcmp(wszFile, pszUrl, sizeof(wszFile)))
 353         slash = '\\';
 354
 355     /*
 356      * state =
 357      *         0   initial  1,3
 358      *         1   have 2[+] alnum  2,3
 359      *         2   have scheme (found :)  4,6,3
 360      *         3   failed (no location)
 361      *         4   have //  5,3
 362      *         5   have 1[+] alnum  6,3
 363      *         6   have location (found /) save root location
 364      */
 365
 366     wk1 = (LPWSTR)pszUrl;
 367     wk2 = lpszUrlCpy;
 368     state = 0;
 369
 370     if(pszUrl[1] == ':') { /* Assume path */
 371         static const WCHAR wszFilePrefix[] = {'f','i','l','e',':','/','/','/'};
 372
 373         memcpy(wk2, wszFilePrefix, sizeof(wszFilePrefix));
 374         wk2 += sizeof(wszFilePrefix)/sizeof(WCHAR);
 375         state = 5;
 376     }
 377
 378     while (*wk1) {
 379         switch (state) {
 380         case 0:
 381             if (!isalnumW(*wk1)) {state = 3; break;}
 382             *wk2++ = *wk1++;
 383             if (!isalnumW(*wk1)) {state = 3; break;}
 384             *wk2++ = *wk1++;
 385             state = 1;
 386             break;
 387         case 1:
 388             *wk2++ = *wk1;
 389             if (*wk1++ == L':') state = 2;
 390             break;
 391         case 2:
 392             if (*wk1 != L'/') {state = 3; break;}
 393             *wk2++ = *wk1++;
 394             if (*wk1 != L'/') {state = 6; break;}
 395             *wk2++ = *wk1++;
 396             if(*wk1 == '/' && (dwFlags & URL_FILE_USE_PATHURL))
 397                 wk1++;
 398             state = 4;
 399             break;
 400         case 3:
 401             nWkLen = strlenW(wk1);
 402             memcpy(wk2, wk1, (nWkLen + 1) * sizeof(WCHAR));
 403             mp = wk2;
 404             wk1 += nWkLen;
 405             wk2 += nWkLen;
 406
 407             while(mp < wk2) {
 408                 if(*mp == '/' || *mp == '\\')
 409                     *mp = slash;
 410                 mp++;
 411             }
 412             break;
 413         case 4:
 414             if (!isalnumW(*wk1) && (*wk1 != L'-') && (*wk1 != L'.') && (*wk1 != ':'))
 415                 {state = 3; break;}
 416             while(isalnumW(*wk1) || (*wk1 == L'-') || (*wk1 == L'.') || (*wk1 == ':'))
 417                 *wk2++ = *wk1++;
 418             state = 5;
 419             break;
 420         case 5:
 421             if (*wk1 != '/' && *wk1 != '\\') {state = 3; break;}
 422             while(*wk1 == '/' || *wk1 == '\\') {
 423                 *wk2++ = slash;
 424                 wk1++;
 425             }
 426             state = 6;
 427             break;
 428         case 6:
 429             if(dwFlags & URL_DONT_SIMPLIFY) {
 430                 state = 3;
 431                 break;
 432             }
 433
 434             /* Now at root location, cannot back up any more. */
 435             /* "root" will point at the '/' */
 436
 437             root = wk2-1;
 438             while (*wk1) {
 439                 mp = strchrW(wk1, '/');
 440                 mp2 = strchrW(wk1, '\\');
 441                 if(mp2 && (!mp || mp2 < mp))
 442                     mp = mp2;
 443                 if (!mp) {
 444                     nWkLen = strlenW(wk1);
 445                     memcpy(wk2, wk1, (nWkLen + 1) * sizeof(WCHAR));
 446                     wk1 += nWkLen;
 447                     wk2 += nWkLen;
 448                     continue;
 449                 }
 450                 nLen = mp - wk1;
 451                 if(nLen) {
 452                     memcpy(wk2, wk1, nLen * sizeof(WCHAR));
 453                     wk2 += nLen;
 454                     wk1 += nLen;
 455                 }
 456                 *wk2++ = slash;
 457                 wk1++;
 458
 459                 if (*wk1 == L'.') {
 460                     TRACE("found '/.'\n");
 461                     if (wk1[1] == '/' || wk1[1] == '\\') {
 462                         /* case of /./ -> skip the ./ */
 463                         wk1 += 2;
 464                     }
 465                     else if (wk1[1] == '.') {
 466                         /* found /..  look for next / */
 467                         TRACE("found '/..'\n");
 468                         if (wk1[2] == '/' || wk1[2] == '\\' ||wk1[2] == '?'
 469                             || wk1[2] == '#' || !wk1[2]) {
 470                             /* case /../ -> need to backup wk2 */
 471                             TRACE("found '/../'\n");
 472                             *(wk2-1) = L'\0';  /* set end of string */
 473                             mp = strrchrW(root, slash);
 474                             if (mp && (mp >= root)) {
 475                                 /* found valid backup point */
 476                                 wk2 = mp + 1;
 477                                 if(wk1[2] != '/' && wk1[2] != '\\')
 478                                     wk1 += 2;
 479                                 else
 480                                     wk1 += 3;
 481                             }
 482                             else {
 483                                 /* did not find point, restore '/' */
 484                                 *(wk2-1) = slash;
 485                             }
 486                         }
 487                     }
 488                 }
 489             }
 490             *wk2 = L'\0';
 491             break;
 492         default:
 493             FIXME("how did we get here - state=%d\n", state);
 494             HeapFree(GetProcessHeap(), 0, lpszUrlCpy);
 495             return E_INVALIDARG;
 496         }
 497         *wk2 = L'\0';
 498         TRACE("Simplified, orig <%s>, simple <%s>\n",
 499               debugstr_w(pszUrl), debugstr_w(lpszUrlCpy));
 500     }
 501     nLen = lstrlenW(lpszUrlCpy);
 502     while ((nLen > 0) && ((lpszUrlCpy[nLen-1] == '\r')||(lpszUrlCpy[nLen-1] == '\n')))
 503         lpszUrlCpy[--nLen]=0;
 504
 505     if(dwFlags & (URL_UNESCAPE | URL_FILE_USE_PATHURL))
 506         UrlUnescapeW(lpszUrlCpy, NULL, &nLen, URL_UNESCAPE_INPLACE);
 507
 508     if((EscapeFlags = dwFlags & (URL_ESCAPE_UNSAFE |
 509                                  URL_ESCAPE_SPACES_ONLY |
 510                                  URL_ESCAPE_PERCENT |
 511                                  URL_DONT_ESCAPE_EXTRA_INFO |
 512                                  URL_ESCAPE_SEGMENT_ONLY ))) {
 513         EscapeFlags &= ~URL_ESCAPE_UNSAFE;
 514         hr = UrlEscapeW(lpszUrlCpy, pszCanonicalized, pcchCanonicalized,
 515                         EscapeFlags);
 516     } else { /* No escaping needed, just copy the string */
 517         nLen = lstrlenW(lpszUrlCpy);
 518         if(nLen < *pcchCanonicalized)
 519             memcpy(pszCanonicalized, lpszUrlCpy, (nLen + 1)*sizeof(WCHAR));
 520         else {
 521             hr = E_POINTER;
 522             nLen++;
 523         }
 524         *pcchCanonicalized = nLen;
 525     }
 526
 527     HeapFree(GetProcessHeap(), 0, lpszUrlCpy);
 528
 529     if (hr == S_OK)
 530         TRACE("result %s\n", debugstr_w(pszCanonicalized));
 531
 532     return hr;
 533 }
 534
 535 /*************************************************************************
 536  *        UrlCombineA     [SHLWAPI.@]
 537  *
 538  * Combine two Urls.
 539  *
 540  * PARAMS
 541  *  pszBase      [I] Base Url
 542  *  pszRelative  [I] Url to combine with pszBase
 543  *  pszCombined  [O] Destination for combined Url
 544  *  pcchCombined [O] Destination for length of pszCombined
 545  *  dwFlags      [I] URL_ flags from "shlwapi.h"
 546  *
 547  * RETURNS
 548  *  Success: S_OK. pszCombined contains the combined Url, pcchCombined
 549  *           contains its length.
 550  *  Failure: An HRESULT error code indicating the error.
 551  */
 552 HRESULT WINAPI UrlCombineA(LPCSTR pszBase, LPCSTR pszRelative,
 553                            LPSTR pszCombined, LPDWORD pcchCombined,
 554                            DWORD dwFlags)
 555 {
 556     LPWSTR base, relative, combined;
 557     DWORD ret, len, len2;
 558
 559     TRACE("(base %s, Relative %s, Combine size %ld, flags %08lx) using W version\n",
 560           debugstr_a(pszBase),debugstr_a(pszRelative),
 561           pcchCombined?*pcchCombined:0,dwFlags);
 562
 563     if(!pszBase || !pszRelative || !pcchCombined)
 564         return E_INVALIDARG;
 565
 566     base = HeapAlloc(GetProcessHeap(), 0,
 567                               (3*INTERNET_MAX_URL_LENGTH) * sizeof(WCHAR));
 568     relative = base + INTERNET_MAX_URL_LENGTH;
 569     combined = relative + INTERNET_MAX_URL_LENGTH;
 570
 571     MultiByteToWideChar(0, 0, pszBase, -1, base, INTERNET_MAX_URL_LENGTH);
 572     MultiByteToWideChar(0, 0, pszRelative, -1, relative, INTERNET_MAX_URL_LENGTH);
 573     len = *pcchCombined;
 574
 575     ret = UrlCombineW(base, relative, pszCombined?combined:NULL, &len, dwFlags);
 576     if (ret != S_OK) {
 577         *pcchCombined = len;
 578         HeapFree(GetProcessHeap(), 0, base);
 579         return ret;
 580     }
 581
 582     len2 = WideCharToMultiByte(0, 0, combined, len, 0, 0, 0, 0);
 583     if (len2 > *pcchCombined) {
 584         *pcchCombined = len2;
 585         HeapFree(GetProcessHeap(), 0, base);
 586         return E_POINTER;
 587     }
 588     WideCharToMultiByte(0, 0, combined, len+1, pszCombined, (*pcchCombined)+1,
 589                         0, 0);
 590     *pcchCombined = len2;
 591     HeapFree(GetProcessHeap(), 0, base);
 592     return S_OK;
 593 }
 594
 595 /*************************************************************************
 596  *        UrlCombineW     [SHLWAPI.@]
 597  *
 598  * See UrlCombineA.
 599  */
 600 HRESULT WINAPI UrlCombineW(LPCWSTR pszBase, LPCWSTR pszRelative,
 601                            LPWSTR pszCombined, LPDWORD pcchCombined,
 602                            DWORD dwFlags)
 603 {
 604     PARSEDURLW base, relative;
 605     DWORD myflags, sizeloc = 0;
 606     DWORD len, res1, res2, process_case = 0;
 607     LPWSTR work, preliminary, mbase, mrelative;
 608     static const WCHAR myfilestr[] = {'f','i','l','e',':','/','/','/','\0'};
 609     static const WCHAR single_slash[] = {'/','\0'};
 610     HRESULT ret;
 611
 612     TRACE("(base %s, Relative %s, Combine size %ld, flags %08lx)\n",
 613           debugstr_w(pszBase),debugstr_w(pszRelative),
 614           pcchCombined?*pcchCombined:0,dwFlags);
 615
 616     if(!pszBase || !pszRelative || !pcchCombined)
 617         return E_INVALIDARG;
 618
 619     base.cbSize = sizeof(base);
 620     relative.cbSize = sizeof(relative);
 621
 622     /* Get space for duplicates of the input and the output */
 623     preliminary = HeapAlloc(GetProcessHeap(), 0, (3*INTERNET_MAX_URL_LENGTH) *
 624                             sizeof(WCHAR));
 625     mbase = preliminary + INTERNET_MAX_URL_LENGTH;
 626     mrelative = mbase + INTERNET_MAX_URL_LENGTH;
 627     *preliminary = L'\0';
 628
 629     /* Canonicalize the base input prior to looking for the scheme */
 630     myflags = dwFlags & (URL_DONT_SIMPLIFY | URL_UNESCAPE);
 631     len = INTERNET_MAX_URL_LENGTH;
 632     ret = UrlCanonicalizeW(pszBase, mbase, &len, myflags);
 633
 634     /* Canonicalize the relative input prior to looking for the scheme */
 635     len = INTERNET_MAX_URL_LENGTH;
 636     ret = UrlCanonicalizeW(pszRelative, mrelative, &len, myflags);
 637
 638     /* See if the base has a scheme */
 639     res1 = ParseURLW(mbase, &base);
 640     if (res1) {
 641         /* if pszBase has no scheme, then return pszRelative */
 642         TRACE("no scheme detected in Base\n");
 643         process_case = 1;
 644     }
 645     else do {
 646
 647         /* get size of location field (if it exists) */
 648         work = (LPWSTR)base.pszSuffix;
 649         sizeloc = 0;
 650         if (*work++ == L'/') {
 651             if (*work++ == L'/') {
 652                 /* At this point have start of location and
 653                  * it ends at next '/' or end of string.
 654                  */
 655                 while(*work && (*work != L'/')) work++;
 656                 sizeloc = (DWORD)(work - base.pszSuffix);
 657             }
 658         }
 659
 660         /* Change .sizep2 to not have the last leaf in it,
 661          * Note: we need to start after the location (if it exists)
 662          */
 663         work = strrchrW((base.pszSuffix+sizeloc), L'/');
 664         if (work) {
 665             len = (DWORD)(work - base.pszSuffix + 1);
 666             base.cchSuffix = len;
 667         }
 668         /*
 669          * At this point:
 670          *    .pszSuffix   points to location (starting with '//')
 671          *    .cchSuffix   length of location (above) and rest less the last
 672          *                 leaf (if any)
 673          *    sizeloc   length of location (above) up to but not including
 674          *              the last '/'
 675          */
 676
 677         res2 = ParseURLW(mrelative, &relative);
 678         if (res2) {
 679             /* no scheme in pszRelative */
 680             TRACE("no scheme detected in Relative\n");
 681             relative.pszSuffix = mrelative;  /* case 3,4,5 depends on this */
 682             relative.cchSuffix = strlenW(mrelative);
 683             if (*pszRelative  == L':') {
 684                 /* case that is either left alone or uses pszBase */
 685                 if (dwFlags & URL_PLUGGABLE_PROTOCOL) {
 686                     process_case = 5;
 687                     break;
 688                 }
 689                 process_case = 1;
 690                 break;
 691             }
 692             if (isalnum(*mrelative) && (*(mrelative + 1) == L':')) {
 693                 /* case that becomes "file:///" */
 694                 strcpyW(preliminary, myfilestr);
 695                 process_case = 1;
 696                 break;
 697             }
 698             if ((*mrelative == L'/') && (*(mrelative+1) == L'/')) {
 699                 /* pszRelative has location and rest */
 700                 process_case = 3;
 701                 break;
 702             }
 703             if (*mrelative == L'/') {
 704                 /* case where pszRelative is root to location */
 705                 process_case = 4;
 706                 break;
 707             }
 708             process_case = (*base.pszSuffix == L'/') ? 5 : 3;
 709             break;
 710         }
 711
 712         /* handle cases where pszRelative has scheme */
 713         if ((base.cchProtocol == relative.cchProtocol) &&
 714             (strncmpW(base.pszProtocol, relative.pszProtocol, base.cchProtocol) == 0)) {
 715
 716             /* since the schemes are the same */
 717             if ((*relative.pszSuffix == L'/') && (*(relative.pszSuffix+1) == L'/')) {
 718                 /* case where pszRelative replaces location and following */
 719                 process_case = 3;
 720                 break;
 721             }
 722             if (*relative.pszSuffix == L'/') {
 723                 /* case where pszRelative is root to location */
 724                 process_case = 4;
 725                 break;
 726             }
 727             /* case where scheme is followed by document path */
 728             process_case = 5;
 729             break;
 730         }
 731         if ((*relative.pszSuffix == L'/') && (*(relative.pszSuffix+1) == L'/')) {
 732             /* case where pszRelative replaces scheme, location,
 733              * and following and handles PLUGGABLE
 734              */
 735             process_case = 2;
 736             break;
 737         }
 738         process_case = 1;
 739         break;
 740     } while(FALSE); /* a litte trick to allow easy exit from nested if's */
 741
 742
 743     ret = S_OK;
 744     switch (process_case) {
 745
 746     case 1:  /*
 747               * Return pszRelative appended to what ever is in pszCombined,
 748               * (which may the string "file:///"
 749               */
 750         strcatW(preliminary, mrelative);
 751         break;
 752
 753     case 2:  /*
 754               * Same as case 1, but if URL_PLUGGABLE_PROTOCOL was specified
 755               * and pszRelative starts with "//", then append a "/"
 756               */
 757         strcpyW(preliminary, mrelative);
 758         if (!(dwFlags & URL_PLUGGABLE_PROTOCOL) &&
 759             URL_JustLocation(relative.pszSuffix))
 760             strcatW(preliminary, single_slash);
 761         break;
 762
 763     case 3:  /*
 764               * Return the pszBase scheme with pszRelative. Basically
 765               * keeps the scheme and replaces the domain and following.
 766               */
 767         memcpy(preliminary, base.pszProtocol, (base.cchProtocol + 1)*sizeof(WCHAR));
 768         work = preliminary + base.cchProtocol + 1;
 769         strcpyW(work, relative.pszSuffix);
 770         if (!(dwFlags & URL_PLUGGABLE_PROTOCOL) &&
 771             URL_JustLocation(relative.pszSuffix))
 772             strcatW(work, single_slash);
 773         break;
 774
 775     case 4:  /*
 776               * Return the pszBase scheme and location but everything
 777               * after the location is pszRelative. (Replace document
 778               * from root on.)
 779               */
 780         memcpy(preliminary, base.pszProtocol, (base.cchProtocol+1+sizeloc)*sizeof(WCHAR));
 781         work = preliminary + base.cchProtocol + 1 + sizeloc;
 782         if (dwFlags & URL_PLUGGABLE_PROTOCOL)
 783             *(work++) = L'/';
 784         strcpyW(work, relative.pszSuffix);
 785         break;
 786
 787     case 5:  /*
 788               * Return the pszBase without its document (if any) and
 789               * append pszRelative after its scheme.
 790               */
 791         memcpy(preliminary, base.pszProtocol,
 792                (base.cchProtocol+1+base.cchSuffix)*sizeof(WCHAR));
 793         work = preliminary + base.cchProtocol+1+base.cchSuffix - 1;
 794         if (*work++ != L'/')
 795             *(work++) = L'/';
 796         strcpyW(work, relative.pszSuffix);
 797         break;
 798
 799     default:
 800         FIXME("How did we get here????? process_case=%ld\n", process_case);
 801         ret = E_INVALIDARG;
 802     }
 803
 804     if (ret == S_OK) {
 805         /* Reuse mrelative as temp storage as its already allocated and not needed anymore */
 806         ret = UrlCanonicalizeW(preliminary, mrelative, pcchCombined, dwFlags);
 807         if(SUCCEEDED(ret) && pszCombined) {
 808             lstrcpyW(pszCombined, mrelative);
 809         }
 810         TRACE("return-%ld len=%ld, %s\n",
 811               process_case, *pcchCombined, debugstr_w(pszCombined));
 812     }
 813     HeapFree(GetProcessHeap(), 0, preliminary);
 814     return ret;
 815 }
 816
 817 /*************************************************************************
 818  *      UrlEscapeA      [SHLWAPI.@]
 819  */
 820
 821 HRESULT WINAPI UrlEscapeA(
 822         LPCSTR pszUrl,
 823         LPSTR pszEscaped,
 824         LPDWORD pcchEscaped,
 825         DWORD dwFlags)
 826 {
 827     WCHAR bufW[INTERNET_MAX_URL_LENGTH];
 828     WCHAR *escapedW = bufW;
 829     UNICODE_STRING urlW;
 830     HRESULT ret;
 831     DWORD lenW = sizeof(bufW)/sizeof(WCHAR), lenA;
 832
 833     if(!RtlCreateUnicodeStringFromAsciiz(&urlW, pszUrl))
 834         return E_INVALIDARG;
 835     if((ret = UrlEscapeW(urlW.Buffer, escapedW, &lenW, dwFlags)) == E_POINTER) {
 836         escapedW = HeapAlloc(GetProcessHeap(), 0, lenW * sizeof(WCHAR));
 837         ret = UrlEscapeW(urlW.Buffer, escapedW, &lenW, dwFlags);
 838     }
 839     if(ret == S_OK) {
 840         RtlUnicodeToMultiByteSize(&lenA, escapedW, lenW * sizeof(WCHAR));
 841         if(*pcchEscaped > lenA) {
 842             RtlUnicodeToMultiByteN(pszEscaped, *pcchEscaped - 1, &lenA, escapedW, lenW * sizeof(WCHAR));
 843             pszEscaped[lenA] = 0;
 844             *pcchEscaped = lenA;
 845         } else {
 846             *pcchEscaped = lenA + 1;
 847             ret = E_POINTER;
 848         }
 849     }
 850     if(escapedW != bufW) HeapFree(GetProcessHeap(), 0, escapedW);
 851     RtlFreeUnicodeString(&urlW);
 852     return ret;
 853 }
 854
 855 #define WINE_URL_BASH_AS_SLASH    0x01
 856 #define WINE_URL_COLLAPSE_SLASHES 0x02
 857 #define WINE_URL_ESCAPE_SLASH     0x04
 858 #define WINE_URL_ESCAPE_HASH      0x08
 859 #define WINE_URL_ESCAPE_QUESTION  0x10
 860 #define WINE_URL_STOP_ON_HASH     0x20
 861 #define WINE_URL_STOP_ON_QUESTION 0x40
 862
 863 static inline BOOL URL_NeedEscapeW(WCHAR ch, DWORD dwFlags, DWORD int_flags)
 864 {
 865
 866     if (isalnumW(ch))
 867         return FALSE;
 868
 869     if(dwFlags & URL_ESCAPE_SPACES_ONLY) {
 870         if(ch == ' ')
 871             return TRUE;
 872         else
 873             return FALSE;
 874     }
 875
 876     if ((dwFlags & URL_ESCAPE_PERCENT) && (ch == '%'))
 877         return TRUE;
 878
 879     if (ch <= 31 || ch >= 127)
 880         return TRUE;
 881
 882     else {
 883         switch (ch) {
 884         case ' ':
 885         case '<':
 886         case '>':
 887         case '\"':
 888         case '{':
 889         case '}':
 890         case '|':
 891         case '\\':
 892         case '^':
 893         case ']':
 894         case '[':
 895         case '`':
 896         case '&':
 897             return TRUE;
 898
 899         case '/':
 900             if (int_flags & WINE_URL_ESCAPE_SLASH) return TRUE;
 901             return FALSE;
 902
 903         case '?':
 904             if (int_flags & WINE_URL_ESCAPE_QUESTION) return TRUE;
 905             return FALSE;
 906
 907         case '#':
 908             if (int_flags & WINE_URL_ESCAPE_HASH) return TRUE;
 909             return FALSE;
 910
 911         default:
 912             return FALSE;
 913         }
 914     }
 915 }
 916
 917
 918 /*************************************************************************
 919  *      UrlEscapeW      [SHLWAPI.@]
 920  *
 921  * Converts unsafe characters in a Url into escape sequences.
 922  *
 923  * PARAMS
 924  *  pszUrl      [I]   Url to modify
 925  *  pszEscaped  [O]   Destination for modified Url
 926  *  pcchEscaped [I/O] Length of pszUrl, destination for length of pszEscaped
 927  *  dwFlags     [I]   URL_ flags from "shlwapi.h"
 928  *
 929  * RETURNS
 930  *  Success: S_OK. pszEscaped contains the escaped Url, pcchEscaped
 931  *           contains its length.
 932  *  Failure: E_POINTER, if pszEscaped is not large enough. In this case
 933  *           pcchEscaped is set to the required length.
 934  *
 935  * Converts unsafe characters into their escape sequences.
 936  *
 937  * NOTES
 938  * - By default this function stops converting at the first '?' or
 939  *  '#' character.
 940  * - If dwFlags contains URL_ESCAPE_SPACES_ONLY then only spaces are
 941  *   converted, but the conversion continues past a '?' or '#'.
 942  * - Note that this function did not work well (or at all) in shlwapi version 4.
 943  *
 944  * BUGS
 945  *  Only the following flags are implemented:
 946  *|     URL_ESCAPE_SPACES_ONLY
 947  *|     URL_DONT_ESCAPE_EXTRA_INFO
 948  *|     URL_ESCAPE_SEGMENT_ONLY
 949  *|     URL_ESCAPE_PERCENT
 950  */
 951 HRESULT WINAPI UrlEscapeW(
 952         LPCWSTR pszUrl,
 953         LPWSTR pszEscaped,
 954         LPDWORD pcchEscaped,
 955         DWORD dwFlags)
 956 {
 957     LPCWSTR src;
 958     DWORD needed = 0, ret;
 959     BOOL stop_escaping = FALSE;
 960     WCHAR next[5], *dst = pszEscaped;
 961     INT len;
 962     PARSEDURLW parsed_url;
 963     DWORD int_flags;
 964     DWORD slashes = 0;
 965     static const WCHAR localhost[] = {'l','o','c','a','l','h','o','s','t',0};
 966
 967     TRACE("(%s %p %p 0x%08lx)\n", debugstr_w(pszUrl), pszEscaped,
 968           pcchEscaped, dwFlags);
 969
 970     if(!pszUrl || !pszEscaped || !pcchEscaped)
 971         return E_INVALIDARG;
 972
 973     if(dwFlags & ~(URL_ESCAPE_SPACES_ONLY |
 974                    URL_ESCAPE_SEGMENT_ONLY |
 975                    URL_DONT_ESCAPE_EXTRA_INFO |
 976                    URL_ESCAPE_PERCENT))
 977         FIXME("Unimplemented flags: %08lx\n", dwFlags);
 978
 979     /* fix up flags */
 980     if (dwFlags & URL_ESCAPE_SPACES_ONLY)
 981         /* if SPACES_ONLY specified, reset the other controls */
 982         dwFlags &= ~(URL_DONT_ESCAPE_EXTRA_INFO |
 983                      URL_ESCAPE_PERCENT |
 984                      URL_ESCAPE_SEGMENT_ONLY);
 985
 986     else
 987         /* if SPACES_ONLY *not* specified the assume DONT_ESCAPE_EXTRA_INFO */
 988         dwFlags |= URL_DONT_ESCAPE_EXTRA_INFO;
 989
 990
 991     int_flags = 0;
 992     if(dwFlags & URL_ESCAPE_SEGMENT_ONLY) {
 993         int_flags = WINE_URL_ESCAPE_QUESTION | WINE_URL_ESCAPE_HASH | WINE_URL_ESCAPE_SLASH;
 994     } else {
 995         parsed_url.cbSize = sizeof(parsed_url);
 996         if(ParseURLW(pszUrl, &parsed_url) != S_OK)
 997             parsed_url.nScheme = URL_SCHEME_INVALID;
 998
 999         TRACE("scheme = %d (%s)\n", parsed_url.nScheme, debugstr_wn(parsed_url.pszProtocol, parsed_url.cchProtocol));
1000
1001         if(dwFlags & URL_DONT_ESCAPE_EXTRA_INFO)
1002             int_flags = WINE_URL_STOP_ON_HASH | WINE_URL_STOP_ON_QUESTION;
1003
1004         switch(parsed_url.nScheme) {
1005         case URL_SCHEME_FILE:
1006             int_flags |= WINE_URL_BASH_AS_SLASH | WINE_URL_COLLAPSE_SLASHES | WINE_URL_ESCAPE_HASH;
1007             int_flags &= ~WINE_URL_STOP_ON_HASH;
1008             break;
1009
1010         case URL_SCHEME_HTTP:
1011         case URL_SCHEME_HTTPS:
1012             int_flags |= WINE_URL_BASH_AS_SLASH;
1013             if(parsed_url.pszSuffix[0] != '/' && parsed_url.pszSuffix[0] != '\\')
1014                 int_flags |= WINE_URL_ESCAPE_SLASH;
1015             break;
1016
1017         case URL_SCHEME_MAILTO:
1018             int_flags |= WINE_URL_ESCAPE_SLASH | WINE_URL_ESCAPE_QUESTION | WINE_URL_ESCAPE_HASH;
1019             int_flags &= ~(WINE_URL_STOP_ON_QUESTION | WINE_URL_STOP_ON_HASH);
1020             break;
1021
1022         case URL_SCHEME_INVALID:
1023             break;
1024
1025         case URL_SCHEME_FTP:
1026         default:
1027             if(parsed_url.pszSuffix[0] != '/')
1028                 int_flags |= WINE_URL_ESCAPE_SLASH;
1029             break;
1030         }
1031     }
1032
1033     for(src = pszUrl; *src; ) {
1034         WCHAR cur = *src;
1035         len = 0;
1036
1037         if((int_flags & WINE_URL_COLLAPSE_SLASHES) && src == pszUrl + parsed_url.cchProtocol + 1) {
1038             int localhost_len = sizeof(localhost)/sizeof(WCHAR) - 1;
1039             while(cur == '/' || cur == '\\') {
1040                 slashes++;
1041                 cur = *++src;
1042             }
1043             if(slashes == 2 && !strncmpiW(src, localhost, localhost_len)) { /* file://localhost/ -> file:/// */
1044                 if(*(src + localhost_len) == '/' || *(src + localhost_len) == '\\')
1045                 src += localhost_len + 1;
1046                 slashes = 3;
1047             }
1048
1049             switch(slashes) {
1050             case 1:
1051             case 3:
1052                 next[0] = next[1] = next[2] = '/';
1053                 len = 3;
1054                 break;
1055             case 0:
1056                 len = 0;
1057                 break;
1058             default:
1059                 next[0] = next[1] = '/';
1060                 len = 2;
1061                 break;
1062             }
1063         }
1064         if(len == 0) {
1065
1066             if(cur == '#' && (int_flags & WINE_URL_STOP_ON_HASH))
1067                 stop_escaping = TRUE;
1068
1069             if(cur == '?' && (int_flags & WINE_URL_STOP_ON_QUESTION))
1070                 stop_escaping = TRUE;
1071
1072             if(cur == '\\' && (int_flags & WINE_URL_BASH_AS_SLASH) && !stop_escaping) cur = '/';
1073
1074             if(URL_NeedEscapeW(cur, dwFlags, int_flags) && stop_escaping == FALSE) {
1075                 next[0] = L'%';
1076                 next[1] = hexDigits[(cur >> 4) & 0xf];
1077                 next[2] = hexDigits[cur & 0xf];
1078                 len = 3;
1079             } else {
1080                 next[0] = cur;
1081                 len = 1;
1082             }
1083             src++;
1084         }
1085
1086         if(needed + len <= *pcchEscaped) {
1087             memcpy(dst, next, len*sizeof(WCHAR));
1088             dst += len;
1089         }
1090         needed += len;
1091     }
1092
1093     if(needed < *pcchEscaped) {
1094         *dst = '\0';
1095         ret = S_OK;
1096     } else {
1097         needed++; /* add one for the '\0' */
1098         ret = E_POINTER;
1099     }
1100     *pcchEscaped = needed;
1101     return ret;
1102 }
1103
1104
1105 /*************************************************************************
1106  *      UrlUnescapeA    [SHLWAPI.@]
1107  *
1108  * Converts Url escape sequences back to ordinary characters.
1109  *
1110  * PARAMS
1111  *  pszUrl        [I/O]  Url to convert
1112  *  pszUnescaped  [O]    Destination for converted Url
1113  *  pcchUnescaped [I/O]  Size of output string
1114  *  dwFlags       [I]    URL_ESCAPE_ Flags from "shlwapi.h"
1115  *
1116  * RETURNS
1117  *  Success: S_OK. The converted value is in pszUnescaped, or in pszUrl if
1118  *           dwFlags includes URL_ESCAPE_INPLACE.
1119  *  Failure: E_POINTER if the converted Url is bigger than pcchUnescaped. In
1120  *           this case pcchUnescaped is set to the size required.
1121  * NOTES
1122  *  If dwFlags includes URL_DONT_ESCAPE_EXTRA_INFO, the conversion stops at
1123  *  the first occurrence of either a '?' or '#' character.
1124  */
1125 HRESULT WINAPI UrlUnescapeA(
1126         LPSTR pszUrl,
1127         LPSTR pszUnescaped,
1128         LPDWORD pcchUnescaped,
1129         DWORD dwFlags)
1130 {
1131     char *dst, next;
1132     LPCSTR src;
1133     HRESULT ret;
1134     DWORD needed;
1135     BOOL stop_unescaping = FALSE;
1136
1137     TRACE("(%s, %p, %p, 0x%08lx)\n", debugstr_a(pszUrl), pszUnescaped,
1138           pcchUnescaped, dwFlags);
1139
1140     if(!pszUrl || (!pszUnescaped && !(dwFlags & URL_UNESCAPE_INPLACE)) || !pcchUnescaped)
1141         return E_INVALIDARG;
1142
1143     if(dwFlags & URL_UNESCAPE_INPLACE)
1144         dst = pszUrl;
1145     else
1146         dst = pszUnescaped;
1147
1148     for(src = pszUrl, needed = 0; *src; src++, needed++) {
1149         if(dwFlags & URL_DONT_UNESCAPE_EXTRA_INFO &&
1150            (*src == '#' || *src == '?')) {
1151             stop_unescaping = TRUE;
1152             next = *src;
1153         } else if(*src == '%' && isxdigit(*(src + 1)) && isxdigit(*(src + 2))
1154                   && stop_unescaping == FALSE) {
1155             INT ih;
1156             char buf[3];
1157             memcpy(buf, src + 1, 2);
1158             buf[2] = '\0';
1159             ih = strtol(buf, NULL, 16);
1160             next = (CHAR) ih;
1161             src += 2; /* Advance to end of escape */
1162         } else
1163             next = *src;
1164
1165         if(dwFlags & URL_UNESCAPE_INPLACE || needed < *pcchUnescaped)
1166             *dst++ = next;
1167     }
1168
1169     if(dwFlags & URL_UNESCAPE_INPLACE || needed < *pcchUnescaped) {
1170         *dst = '\0';
1171         ret = S_OK;
1172     } else {
1173         needed++; /* add one for the '\0' */
1174         ret = E_POINTER;
1175     }
1176     if(!(dwFlags & URL_UNESCAPE_INPLACE))
1177         *pcchUnescaped = needed;
1178
1179     if (ret == S_OK) {
1180         TRACE("result %s\n", (dwFlags & URL_UNESCAPE_INPLACE) ?
1181               debugstr_a(pszUrl) : debugstr_a(pszUnescaped));
1182     }
1183
1184     return ret;
1185 }
1186
1187 /*************************************************************************
1188  *      UrlUnescapeW    [SHLWAPI.@]
1189  *
1190  * See UrlUnescapeA.
1191  */
1192 HRESULT WINAPI UrlUnescapeW(
1193         LPWSTR pszUrl,
1194         LPWSTR pszUnescaped,
1195         LPDWORD pcchUnescaped,
1196         DWORD dwFlags)
1197 {
1198     WCHAR *dst, next;
1199     LPCWSTR src;
1200     HRESULT ret;
1201     DWORD needed;
1202     BOOL stop_unescaping = FALSE;
1203
1204     TRACE("(%s, %p, %p, 0x%08lx)\n", debugstr_w(pszUrl), pszUnescaped,
1205           pcchUnescaped, dwFlags);
1206
1207     if(!pszUrl || (!pszUnescaped && !(dwFlags & URL_UNESCAPE_INPLACE))|| !pcchUnescaped)
1208         return E_INVALIDARG;
1209
1210     if(dwFlags & URL_UNESCAPE_INPLACE)
1211         dst = pszUrl;
1212     else
1213         dst = pszUnescaped;
1214
1215     for(src = pszUrl, needed = 0; *src; src++, needed++) {
1216         if(dwFlags & URL_DONT_UNESCAPE_EXTRA_INFO &&
1217            (*src == L'#' || *src == L'?')) {
1218             stop_unescaping = TRUE;
1219             next = *src;
1220         } else if(*src == L'%' && isxdigitW(*(src + 1)) && isxdigitW(*(src + 2))
1221                   && stop_unescaping == FALSE) {
1222             INT ih;
1223             WCHAR buf[5] = {'0','x',0};
1224             memcpy(buf + 2, src + 1, 2*sizeof(WCHAR));
1225             buf[4] = 0;
1226             StrToIntExW(buf, STIF_SUPPORT_HEX, &ih);
1227             next = (WCHAR) ih;
1228             src += 2; /* Advance to end of escape */
1229         } else
1230             next = *src;
1231
1232         if(dwFlags & URL_UNESCAPE_INPLACE || needed < *pcchUnescaped)
1233             *dst++ = next;
1234     }
1235
1236     if(dwFlags & URL_UNESCAPE_INPLACE || needed < *pcchUnescaped) {
1237         *dst = L'\0';
1238         ret = S_OK;
1239     } else {
1240         needed++; /* add one for the '\0' */
1241         ret = E_POINTER;
1242     }
1243     if(!(dwFlags & URL_UNESCAPE_INPLACE))
1244         *pcchUnescaped = needed;
1245
1246     if (ret == S_OK) {
1247         TRACE("result %s\n", (dwFlags & URL_UNESCAPE_INPLACE) ?
1248               debugstr_w(pszUrl) : debugstr_w(pszUnescaped));
1249     }
1250
1251     return ret;
1252 }
1253
1254 /*************************************************************************
1255  *      UrlGetLocationA         [SHLWAPI.@]
1256  *
1257  * Get the location from a Url.
1258  *
1259  * PARAMS
1260  *  pszUrl [I] Url to get the location from
1261  *
1262  * RETURNS
1263  *  A pointer to the start of the location in pszUrl, or NULL if there is
1264  *  no location.
1265  *
1266  * NOTES
1267  *  - MSDN erroneously states that "The location is the segment of the Url
1268  *    starting with a '?' or '#' character". Neither V4 nor V5 of shlwapi.dll
1269  *    stop at '?' and always return a NULL in this case.
1270  *  - MSDN also erroneously states that "If a file URL has a query string,
1271  *    the returned string is the query string". In all tested cases, if the
1272  *    Url starts with "fi" then a NULL is returned. V5 gives the following results:
1273  *|       Result   Url
1274  *|       ------   ---
1275  *|       NULL     file://aa/b/cd#hohoh
1276  *|       #hohoh   http://aa/b/cd#hohoh
1277  *|       NULL     fi://aa/b/cd#hohoh
1278  *|       #hohoh   ff://aa/b/cd#hohoh
1279  */
1280 LPCSTR WINAPI UrlGetLocationA(
1281         LPCSTR pszUrl)
1282 {
1283     PARSEDURLA base;
1284     DWORD res1;
1285
1286     base.cbSize = sizeof(base);
1287     res1 = ParseURLA(pszUrl, &base);
1288     if (res1) return NULL;  /* invalid scheme */
1289
1290     /* if scheme is file: then never return pointer */
1291     if (strncmp(base.pszProtocol, "file", min(4,base.cchProtocol)) == 0) return NULL;
1292
1293     /* Look for '#' and return its addr */
1294     return strchr(base.pszSuffix, '#');
1295 }
1296
1297 /*************************************************************************
1298  *      UrlGetLocationW         [SHLWAPI.@]
1299  *
1300  * See UrlGetLocationA.
1301  */
1302 LPCWSTR WINAPI UrlGetLocationW(
1303         LPCWSTR pszUrl)
1304 {
1305     PARSEDURLW base;
1306     DWORD res1;
1307
1308     base.cbSize = sizeof(base);
1309     res1 = ParseURLW(pszUrl, &base);
1310     if (res1) return NULL;  /* invalid scheme */
1311
1312     /* if scheme is file: then never return pointer */
1313     if (strncmpW(base.pszProtocol, fileW, min(4,base.cchProtocol)) == 0) return NULL;
1314
1315     /* Look for '#' and return its addr */
1316     return strchrW(base.pszSuffix, L'#');
1317 }
1318
1319 /*************************************************************************
1320  *      UrlCompareA     [SHLWAPI.@]
1321  *
1322  * Compare two Urls.
1323  *
1324  * PARAMS
1325  *  pszUrl1      [I] First Url to compare
1326  *  pszUrl2      [I] Url to compare to pszUrl1
1327  *  fIgnoreSlash [I] TRUE = compare only up to a final slash
1328  *
1329  * RETURNS
1330  *  less than zero, zero, or greater than zero indicating pszUrl2 is greater
1331  *  than, equal to, or less than pszUrl1 respectively.
1332  */
1333 INT WINAPI UrlCompareA(
1334         LPCSTR pszUrl1,
1335         LPCSTR pszUrl2,
1336         BOOL fIgnoreSlash)
1337 {
1338     INT ret, len, len1, len2;
1339
1340     if (!fIgnoreSlash)
1341         return strcmp(pszUrl1, pszUrl2);
1342     len1 = strlen(pszUrl1);
1343     if (pszUrl1[len1-1] == '/') len1--;
1344     len2 = strlen(pszUrl2);
1345     if (pszUrl2[len2-1] == '/') len2--;
1346     if (len1 == len2)
1347         return strncmp(pszUrl1, pszUrl2, len1);
1348     len = min(len1, len2);
1349     ret = strncmp(pszUrl1, pszUrl2, len);
1350     if (ret) return ret;
1351     if (len1 > len2) return 1;
1352     return -1;
1353 }
1354
1355 /*************************************************************************
1356  *      UrlCompareW     [SHLWAPI.@]
1357  *
1358  * See UrlCompareA.
1359  */
1360 INT WINAPI UrlCompareW(
1361         LPCWSTR pszUrl1,
1362         LPCWSTR pszUrl2,
1363         BOOL fIgnoreSlash)
1364 {
1365     INT ret;
1366     size_t len, len1, len2;
1367
1368     if (!fIgnoreSlash)
1369         return strcmpW(pszUrl1, pszUrl2);
1370     len1 = strlenW(pszUrl1);
1371     if (pszUrl1[len1-1] == '/') len1--;
1372     len2 = strlenW(pszUrl2);
1373     if (pszUrl2[len2-1] == '/') len2--;
1374     if (len1 == len2)
1375         return strncmpW(pszUrl1, pszUrl2, len1);
1376     len = min(len1, len2);
1377     ret = strncmpW(pszUrl1, pszUrl2, len);
1378     if (ret) return ret;
1379     if (len1 > len2) return 1;
1380     return -1;
1381 }
1382
1383 /*************************************************************************
1384  *      HashData        [SHLWAPI.@]
1385  *
1386  * Hash an input block into a variable sized digest.
1387  *
1388  * PARAMS
1389  *  lpSrc    [I] Input block
1390  *  nSrcLen  [I] Length of lpSrc
1391  *  lpDest   [I] Output for hash digest
1392  *  nDestLen [I] Length of lpDest
1393  *
1394  * RETURNS
1395  *  Success: TRUE. lpDest is filled with the computed hash value.
1396  *  Failure: FALSE, if any argument is invalid.
1397  */
1398 HRESULT WINAPI HashData(const unsigned char *lpSrc, DWORD nSrcLen,
1399                      unsigned char *lpDest, DWORD nDestLen)
1400 {
1401   INT srcCount = nSrcLen - 1, destCount = nDestLen - 1;
1402
1403   if (IsBadReadPtr(lpSrc, nSrcLen) ||
1404       IsBadWritePtr(lpDest, nDestLen))
1405     return E_INVALIDARG;
1406
1407   while (destCount >= 0)
1408   {
1409     lpDest[destCount] = (destCount & 0xff);
1410     destCount--;
1411   }
1412
1413   while (srcCount >= 0)
1414   {
1415     destCount = nDestLen - 1;
1416     while (destCount >= 0)
1417     {
1418       lpDest[destCount] = HashDataLookup[lpSrc[srcCount] ^ lpDest[destCount]];
1419       destCount--;
1420     }
1421     srcCount--;
1422   }
1423   return S_OK;
1424 }
1425
1426 /*************************************************************************
1427  *      UrlHashA        [SHLWAPI.@]
1428  *
1429  * Produce a Hash from a Url.
1430  *
1431  * PARAMS
1432  *  pszUrl   [I] Url to hash
1433  *  lpDest   [O] Destinationh for hash
1434  *  nDestLen [I] Length of lpDest
1435  *
1436  * RETURNS
1437  *  Success: S_OK. lpDest is filled with the computed hash value.
1438  *  Failure: E_INVALIDARG, if any argument is invalid.
1439  */
1440 HRESULT WINAPI UrlHashA(LPCSTR pszUrl, unsigned char *lpDest, DWORD nDestLen)
1441 {
1442   if (IsBadStringPtrA(pszUrl, -1) || IsBadWritePtr(lpDest, nDestLen))
1443     return E_INVALIDARG;
1444
1445   HashData((const BYTE*)pszUrl, (int)strlen(pszUrl), lpDest, nDestLen);
1446   return S_OK;
1447 }
1448
1449 /*************************************************************************
1450  * UrlHashW     [SHLWAPI.@]
1451  *
1452  * See UrlHashA.
1453  */
1454 HRESULT WINAPI UrlHashW(LPCWSTR pszUrl, unsigned char *lpDest, DWORD nDestLen)
1455 {
1456   char szUrl[MAX_PATH];
1457
1458   TRACE("(%s,%p,%ld)\n",debugstr_w(pszUrl), lpDest, nDestLen);
1459
1460   if (IsBadStringPtrW(pszUrl, -1) || IsBadWritePtr(lpDest, nDestLen))
1461     return E_INVALIDARG;
1462
1463   /* Win32 hashes the data as an ASCII string, presumably so that both A+W
1464    * return the same digests for the same URL.
1465    */
1466   WideCharToMultiByte(0, 0, pszUrl, -1, szUrl, MAX_PATH, 0, 0);
1467   HashData((const BYTE*)szUrl, (int)strlen(szUrl), lpDest, nDestLen);
1468   return S_OK;
1469 }
1470
1471 /*************************************************************************
1472  *      UrlApplySchemeA [SHLWAPI.@]
1473  *
1474  * Apply a scheme to a Url.
1475  *
1476  * PARAMS
1477  *  pszIn   [I]   Url to apply scheme to
1478  *  pszOut  [O]   Destination for modified Url
1479  *  pcchOut [I/O] Length of pszOut/destination for length of pszOut
1480  *  dwFlags [I]   URL_ flags from "shlwapi.h"
1481  *
1482  * RETURNS
1483  *  Success: S_OK: pszOut contains the modified Url, pcchOut contains its length.
1484  *  Failure: An HRESULT error code describing the error.
1485  */
1486 HRESULT WINAPI UrlApplySchemeA(LPCSTR pszIn, LPSTR pszOut, LPDWORD pcchOut, DWORD dwFlags)
1487 {
1488     LPWSTR in, out;
1489     DWORD ret, len, len2;
1490
1491     TRACE("(in %s, out size %ld, flags %08lx) using W version\n",
1492           debugstr_a(pszIn), *pcchOut, dwFlags);
1493
1494     in = HeapAlloc(GetProcessHeap(), 0,
1495                               (2*INTERNET_MAX_URL_LENGTH) * sizeof(WCHAR));
1496     out = in + INTERNET_MAX_URL_LENGTH;
1497
1498     MultiByteToWideChar(0, 0, pszIn, -1, in, INTERNET_MAX_URL_LENGTH);
1499     len = INTERNET_MAX_URL_LENGTH;
1500
1501     ret = UrlApplySchemeW(in, out, &len, dwFlags);
1502     if ((ret != S_OK) && (ret != S_FALSE)) {
1503         HeapFree(GetProcessHeap(), 0, in);
1504         return ret;
1505     }
1506
1507     len2 = WideCharToMultiByte(0, 0, out, len+1, 0, 0, 0, 0);
1508     if (len2 > *pcchOut) {
1509         *pcchOut = len2;
1510         HeapFree(GetProcessHeap(), 0, in);
1511         return E_POINTER;
1512     }
1513     WideCharToMultiByte(0, 0, out, len+1, pszOut, *pcchOut, 0, 0);
1514     *pcchOut = len2;
1515     HeapFree(GetProcessHeap(), 0, in);
1516     return ret;
1517 }
1518
1519 static HRESULT URL_GuessScheme(LPCWSTR pszIn, LPWSTR pszOut, LPDWORD pcchOut)
1520 {
1521     HKEY newkey;
1522     BOOL j;
1523     INT index;
1524     DWORD value_len, data_len, dwType, i;
1525     WCHAR reg_path[MAX_PATH];
1526     WCHAR value[MAX_PATH], data[MAX_PATH];
1527     WCHAR Wxx, Wyy;
1528
1529     MultiByteToWideChar(0, 0,
1530               "Software\\Microsoft\\Windows\\CurrentVersion\\URL\\Prefixes",
1531                         -1, reg_path, MAX_PATH);
1532     RegOpenKeyExW(HKEY_LOCAL_MACHINE, reg_path, 0, 1, &newkey);
1533     index = 0;
1534     while(value_len = data_len = MAX_PATH,
1535           RegEnumValueW(newkey, index, value, &value_len,
1536                         0, &dwType, (LPVOID)data, &data_len) == 0) {
1537         TRACE("guess %d %s is %s\n",
1538               index, debugstr_w(value), debugstr_w(data));
1539
1540         j = FALSE;
1541         for(i=0; i<value_len; i++) {
1542             Wxx = pszIn[i];
1543             Wyy = value[i];
1544             /* remember that TRUE is not-equal */
1545             j = ChrCmpIW(Wxx, Wyy);
1546             if (j) break;
1547         }
1548         if ((i == value_len) && !j) {
1549             if (strlenW(data) + strlenW(pszIn) + 1 > *pcchOut) {
1550                 *pcchOut = strlenW(data) + strlenW(pszIn) + 1;
1551                 RegCloseKey(newkey);
1552                 return E_POINTER;
1553             }
1554             strcpyW(pszOut, data);
1555             strcatW(pszOut, pszIn);
1556             *pcchOut = strlenW(pszOut);
1557             TRACE("matched and set to %s\n", debugstr_w(pszOut));
1558             RegCloseKey(newkey);
1559             return S_OK;
1560         }
1561         index++;
1562     }
1563     RegCloseKey(newkey);
1564     return -1;
1565 }
1566
1567 static HRESULT URL_ApplyDefault(LPCWSTR pszIn, LPWSTR pszOut, LPDWORD pcchOut)
1568 {
1569     HKEY newkey;
1570     DWORD data_len, dwType;
1571     WCHAR reg_path[MAX_PATH];
1572     WCHAR value[MAX_PATH], data[MAX_PATH];
1573
1574     /* get and prepend default */
1575     MultiByteToWideChar(0, 0,
1576          "Software\\Microsoft\\Windows\\CurrentVersion\\URL\\DefaultPrefix",
1577                         -1, reg_path, MAX_PATH);
1578     RegOpenKeyExW(HKEY_LOCAL_MACHINE, reg_path, 0, 1, &newkey);
1579     data_len = MAX_PATH;
1580     value[0] = L'@';
1581     value[1] = L'\0';
1582     RegQueryValueExW(newkey, value, 0, &dwType, (LPBYTE)data, &data_len);
1583     RegCloseKey(newkey);
1584     if (strlenW(data) + strlenW(pszIn) + 1 > *pcchOut) {
1585         *pcchOut = strlenW(data) + strlenW(pszIn) + 1;
1586         return E_POINTER;
1587     }
1588     strcpyW(pszOut, data);
1589     strcatW(pszOut, pszIn);
1590     *pcchOut = strlenW(pszOut);
1591     TRACE("used default %s\n", debugstr_w(pszOut));
1592     return S_OK;
1593 }
1594
1595 /*************************************************************************
1596  *      UrlApplySchemeW [SHLWAPI.@]
1597  *
1598  * See UrlApplySchemeA.
1599  */
1600 HRESULT WINAPI UrlApplySchemeW(LPCWSTR pszIn, LPWSTR pszOut, LPDWORD pcchOut, DWORD dwFlags)
1601 {
1602     PARSEDURLW in_scheme;
1603     DWORD res1;
1604     HRESULT ret;
1605
1606     TRACE("(in %s, out size %ld, flags %08lx)\n",
1607           debugstr_w(pszIn), *pcchOut, dwFlags);
1608
1609     if (dwFlags & URL_APPLY_GUESSFILE) {
1610         FIXME("(%s %p %p(%ld) 0x%08lx): stub URL_APPLY_GUESSFILE not implemented\n",
1611               debugstr_w(pszIn), pszOut, pcchOut, *pcchOut, dwFlags);
1612         strcpyW(pszOut, pszIn);
1613         *pcchOut = strlenW(pszOut);
1614         return S_FALSE;
1615     }
1616
1617     in_scheme.cbSize = sizeof(in_scheme);
1618     /* See if the base has a scheme */
1619     res1 = ParseURLW(pszIn, &in_scheme);
1620     if (res1) {
1621         /* no scheme in input, need to see if we need to guess */
1622         if (dwFlags & URL_APPLY_GUESSSCHEME) {
1623             if ((ret = URL_GuessScheme(pszIn, pszOut, pcchOut)) != -1)
1624                 return ret;
1625         }
1626     }
1627     else {
1628         /* we have a scheme, see if valid (known scheme) */
1629         if (in_scheme.nScheme) {
1630             /* have valid scheme, so just copy and exit */
1631             if (strlenW(pszIn) + 1 > *pcchOut) {
1632                 *pcchOut = strlenW(pszIn) + 1;
1633                 return E_POINTER;
1634             }
1635             strcpyW(pszOut, pszIn);
1636             *pcchOut = strlenW(pszOut);
1637             TRACE("valid scheme, returing copy\n");
1638             return S_OK;
1639         }
1640     }
1641
1642     /* If we are here, then either invalid scheme,
1643      * or no scheme and can't/failed guess.
1644      */
1645     if ( ( ((res1 == 0) && (dwFlags & URL_APPLY_FORCEAPPLY)) ||
1646            ((res1 != 0)) ) &&
1647          (dwFlags & URL_APPLY_DEFAULT)) {
1648         /* find and apply default scheme */
1649         return URL_ApplyDefault(pszIn, pszOut, pcchOut);
1650     }
1651
1652     /* just copy and give proper return code */
1653     if (strlenW(pszIn) + 1 > *pcchOut) {
1654         *pcchOut = strlenW(pszIn) + 1;
1655         return E_POINTER;
1656     }
1657     strcpyW(pszOut, pszIn);
1658     *pcchOut = strlenW(pszOut);
1659     TRACE("returning copy, left alone\n");
1660     return S_FALSE;
1661 }
1662
1663 /*************************************************************************
1664  *      UrlIsA          [SHLWAPI.@]
1665  *
1666  * Determine if a Url is of a certain class.
1667  *
1668  * PARAMS
1669  *  pszUrl [I] Url to check
1670  *  Urlis  [I] URLIS_ constant from "shlwapi.h"
1671  *
1672  * RETURNS
1673  *  TRUE if pszUrl belongs to the class type in Urlis.
1674  *  FALSE Otherwise.
1675  */
1676 BOOL WINAPI UrlIsA(LPCSTR pszUrl, URLIS Urlis)
1677 {
1678     PARSEDURLA base;
1679     DWORD res1;
1680     LPCSTR last;
1681
1682     TRACE("(%s %d)\n", debugstr_a(pszUrl), Urlis);
1683
1684     switch (Urlis) {
1685
1686     case URLIS_OPAQUE:
1687         base.cbSize = sizeof(base);
1688         res1 = ParseURLA(pszUrl, &base);
1689         if (res1) return FALSE;  /* invalid scheme */
1690         switch (base.nScheme)
1691         {
1692         case URL_SCHEME_MAILTO:
1693         case URL_SCHEME_SHELL:
1694         case URL_SCHEME_JAVASCRIPT:
1695         case URL_SCHEME_VBSCRIPT:
1696         case URL_SCHEME_ABOUT:
1697             return TRUE;
1698         }
1699         return FALSE;
1700
1701     case URLIS_FILEURL:
1702         return !StrCmpNA("file:", pszUrl, 5);
1703
1704     case URLIS_DIRECTORY:
1705         last = pszUrl + strlen(pszUrl) - 1;
1706         return (last >= pszUrl && (*last == '/' || *last == '\\' ));
1707
1708     case URLIS_URL:
1709         return PathIsURLA(pszUrl);
1710
1711     case URLIS_NOHISTORY:
1712     case URLIS_APPLIABLE:
1713     case URLIS_HASQUERY:
1714     default:
1715         FIXME("(%s %d): stub\n", debugstr_a(pszUrl), Urlis);
1716     }
1717     return FALSE;
1718 }
1719
1720 /*************************************************************************
1721  *      UrlIsW          [SHLWAPI.@]
1722  *
1723  * See UrlIsA.
1724  */
1725 BOOL WINAPI UrlIsW(LPCWSTR pszUrl, URLIS Urlis)
1726 {
1727     static const WCHAR stemp[] = { 'f','i','l','e',':',0 };
1728     PARSEDURLW base;
1729     DWORD res1;
1730     LPCWSTR last;
1731
1732     TRACE("(%s %d)\n", debugstr_w(pszUrl), Urlis);
1733
1734     switch (Urlis) {
1735
1736     case URLIS_OPAQUE:
1737         base.cbSize = sizeof(base);
1738         res1 = ParseURLW(pszUrl, &base);
1739         if (res1) return FALSE;  /* invalid scheme */
1740         switch (base.nScheme)
1741         {
1742         case URL_SCHEME_MAILTO:
1743         case URL_SCHEME_SHELL:
1744         case URL_SCHEME_JAVASCRIPT:
1745         case URL_SCHEME_VBSCRIPT:
1746         case URL_SCHEME_ABOUT:
1747             return TRUE;
1748         }
1749         return FALSE;
1750
1751     case URLIS_FILEURL:
1752         return !strncmpW(stemp, pszUrl, 5);
1753
1754     case URLIS_DIRECTORY:
1755         last = pszUrl + strlenW(pszUrl) - 1;
1756         return (last >= pszUrl && (*last == '/' || *last == '\\'));
1757
1758     case URLIS_URL:
1759         return PathIsURLW(pszUrl);
1760
1761     case URLIS_NOHISTORY:
1762     case URLIS_APPLIABLE:
1763     case URLIS_HASQUERY:
1764     default:
1765         FIXME("(%s %d): stub\n", debugstr_w(pszUrl), Urlis);
1766     }
1767     return FALSE;
1768 }
1769
1770 /*************************************************************************
1771  *      UrlIsNoHistoryA         [SHLWAPI.@]
1772  *
1773  * Determine if a Url should not be stored in the users history list.
1774  *
1775  * PARAMS
1776  *  pszUrl [I] Url to check
1777  *
1778  * RETURNS
1779  *  TRUE, if pszUrl should be excluded from the history list,
1780  *  FALSE otherwise.
1781  */
1782 BOOL WINAPI UrlIsNoHistoryA(LPCSTR pszUrl)
1783 {
1784     return UrlIsA(pszUrl, URLIS_NOHISTORY);
1785 }
1786
1787 /*************************************************************************
1788  *      UrlIsNoHistoryW         [SHLWAPI.@]
1789  *
1790  * See UrlIsNoHistoryA.
1791  */
1792 BOOL WINAPI UrlIsNoHistoryW(LPCWSTR pszUrl)
1793 {
1794     return UrlIsW(pszUrl, URLIS_NOHISTORY);
1795 }
1796
1797 /*************************************************************************
1798  *      UrlIsOpaqueA    [SHLWAPI.@]
1799  *
1800  * Determine if a Url is opaque.
1801  *
1802  * PARAMS
1803  *  pszUrl [I] Url to check
1804  *
1805  * RETURNS
1806  *  TRUE if pszUrl is opaque,
1807  *  FALSE Otherwise.
1808  *
1809  * NOTES
1810  *  An opaque Url is one that does not start with "<protocol>://".
1811  */
1812 BOOL WINAPI UrlIsOpaqueA(LPCSTR pszUrl)
1813 {
1814     return UrlIsA(pszUrl, URLIS_OPAQUE);
1815 }
1816
1817 /*************************************************************************
1818  *      UrlIsOpaqueW    [SHLWAPI.@]
1819  *
1820  * See UrlIsOpaqueA.
1821  */
1822 BOOL WINAPI UrlIsOpaqueW(LPCWSTR pszUrl)
1823 {
1824     return UrlIsW(pszUrl, URLIS_OPAQUE);
1825 }
1826
1827 /*************************************************************************
1828  *  Scans for characters of type "type" and when not matching found,
1829  *  returns pointer to it and length in size.
1830  *
1831  * Characters tested based on RFC 1738
1832  */
1833 static LPCWSTR  URL_ScanID(LPCWSTR start, LPDWORD size, WINE_URL_SCAN_TYPE type)
1834 {
1835     static DWORD alwayszero = 0;
1836     BOOL cont = TRUE;
1837
1838     *size = 0;
1839
1840     switch(type){
1841
1842     case SCHEME:
1843         while (cont) {
1844             if ( (islowerW(*start) && isalphaW(*start)) ||
1845                  isdigitW(*start) ||
1846                  (*start == L'+') ||
1847                  (*start == L'-') ||
1848                  (*start == L'.')) {
1849                 start++;
1850                 (*size)++;
1851             }
1852             else
1853                 cont = FALSE;
1854         }
1855         break;
1856
1857     case USERPASS:
1858         while (cont) {
1859             if ( isalphaW(*start) ||
1860                  isdigitW(*start) ||
1861                  /* user/password only characters */
1862                  (*start == L';') ||
1863                  (*start == L'?') ||
1864                  (*start == L'&') ||
1865                  (*start == L'=') ||
1866                  /* *extra* characters */
1867                  (*start == L'!') ||
1868                  (*start == L'*') ||
1869                  (*start == L'\'') ||
1870                  (*start == L'(') ||
1871                  (*start == L')') ||
1872                  (*start == L',') ||
1873                  /* *safe* characters */
1874                  (*start == L'$') ||
1875                  (*start == L'_') ||
1876                  (*start == L'+') ||
1877                  (*start == L'-') ||
1878                  (*start == L'.')) {
1879                 start++;
1880                 (*size)++;
1881             } else if (*start == L'%') {
1882                 if (isxdigitW(*(start+1)) &&
1883                     isxdigitW(*(start+2))) {
1884                     start += 3;
1885                     *size += 3;
1886                 } else
1887                     cont = FALSE;
1888             } else
1889                 cont = FALSE;
1890         }
1891         break;
1892
1893     case PORT:
1894         while (cont) {
1895             if (isdigitW(*start)) {
1896                 start++;
1897                 (*size)++;
1898             }
1899             else
1900                 cont = FALSE;
1901         }
1902         break;
1903
1904     case HOST:
1905         while (cont) {
1906             if (isalnumW(*start) ||
1907                 (*start == L'-') ||
1908                 (*start == L'.') ) {
1909                 start++;
1910                 (*size)++;
1911             }
1912             else
1913                 cont = FALSE;
1914         }
1915         break;
1916     default:
1917         FIXME("unknown type %d\n", type);
1918         return (LPWSTR)&alwayszero;
1919     }
1920     /* TRACE("scanned %ld characters next char %p<%c>\n",
1921      *size, start, *start); */
1922     return start;
1923 }
1924
1925 /*************************************************************************
1926  *  Attempt to parse URL into pieces.
1927  */
1928 static LONG URL_ParseUrl(LPCWSTR pszUrl, WINE_PARSE_URL *pl)
1929 {
1930     LPCWSTR work;
1931
1932     memset(pl, 0, sizeof(WINE_PARSE_URL));
1933     pl->pScheme = pszUrl;
1934     work = URL_ScanID(pl->pScheme, &pl->szScheme, SCHEME);
1935     if (!*work || (*work != L':')) goto ErrorExit;
1936     work++;
1937     if ((*work != L'/') || (*(work+1) != L'/')) goto ErrorExit;
1938     pl->pUserName = work + 2;
1939     work = URL_ScanID(pl->pUserName, &pl->szUserName, USERPASS);
1940     if (*work == L':' ) {
1941         /* parse password */
1942         work++;
1943         pl->pPassword = work;
1944         work = URL_ScanID(pl->pPassword, &pl->szPassword, USERPASS);
1945         if (*work != L'@') {
1946             /* what we just parsed must be the hostname and port
1947              * so reset pointers and clear then let it parse */
1948             pl->szUserName = pl->szPassword = 0;
1949             work = pl->pUserName - 1;
1950             pl->pUserName = pl->pPassword = 0;
1951         }
1952     } else if (*work == L'@') {
1953         /* no password */
1954         pl->szPassword = 0;
1955         pl->pPassword = 0;
1956     } else if (!*work || (*work == L'/') || (*work == L'.')) {
1957         /* what was parsed was hostname, so reset pointers and let it parse */
1958         pl->szUserName = pl->szPassword = 0;
1959         work = pl->pUserName - 1;
1960         pl->pUserName = pl->pPassword = 0;
1961     } else goto ErrorExit;
1962
1963     /* now start parsing hostname or hostnumber */
1964     work++;
1965     pl->pHostName = work;
1966     work = URL_ScanID(pl->pHostName, &pl->szHostName, HOST);
1967     if (*work == L':') {
1968         /* parse port */
1969         work++;
1970         pl->pPort = work;
1971         work = URL_ScanID(pl->pPort, &pl->szPort, PORT);
1972     }
1973     if (*work == L'/') {
1974         /* see if query string */
1975         pl->pQuery = strchrW(work, L'?');
1976         if (pl->pQuery) pl->szQuery = strlenW(pl->pQuery);
1977     }
1978     TRACE("parse successful: scheme=%p(%ld), user=%p(%ld), pass=%p(%ld), host=%p(%ld), port=%p(%ld), query=%p(%ld)\n",
1979           pl->pScheme, pl->szScheme,
1980           pl->pUserName, pl->szUserName,
1981           pl->pPassword, pl->szPassword,
1982           pl->pHostName, pl->szHostName,
1983           pl->pPort, pl->szPort,
1984           pl->pQuery, pl->szQuery);
1985     return S_OK;
1986   ErrorExit:
1987     FIXME("failed to parse %s\n", debugstr_w(pszUrl));
1988     return E_INVALIDARG;
1989 }
1990
1991 /*************************************************************************
1992  *      UrlGetPartA     [SHLWAPI.@]
1993  *
1994  * Retrieve part of a Url.
1995  *
1996  * PARAMS
1997  *  pszIn   [I]   Url to parse
1998  *  pszOut  [O]   Destination for part of pszIn requested
1999  *  pcchOut [I]   Size of pszOut
2000  *          [O]   length of pszOut string EXLUDING '\0' if S_OK, otherwise
2001  *                needed size of pszOut INCLUDING '\0'.
2002  *  dwPart  [I]   URL_PART_ enum from "shlwapi.h"
2003  *  dwFlags [I]   URL_ flags from "shlwapi.h"
2004  *
2005  * RETURNS
2006  *  Success: S_OK. pszOut contains the part requested, pcchOut contains its length.
2007  *  Failure: An HRESULT error code describing the error.
2008  */
2009 HRESULT WINAPI UrlGetPartA(LPCSTR pszIn, LPSTR pszOut, LPDWORD pcchOut,
2010                            DWORD dwPart, DWORD dwFlags)
2011 {
2012     LPWSTR in, out;
2013     DWORD ret, len, len2;
2014
2015     in = HeapAlloc(GetProcessHeap(), 0,
2016                               (2*INTERNET_MAX_URL_LENGTH) * sizeof(WCHAR));
2017     out = in + INTERNET_MAX_URL_LENGTH;
2018
2019     MultiByteToWideChar(0, 0, pszIn, -1, in, INTERNET_MAX_URL_LENGTH);
2020
2021     len = INTERNET_MAX_URL_LENGTH;
2022     ret = UrlGetPartW(in, out, &len, dwPart, dwFlags);
2023
2024     if (ret != S_OK) {
2025         HeapFree(GetProcessHeap(), 0, in);
2026         return ret;
2027     }
2028
2029     len2 = WideCharToMultiByte(0, 0, out, len, 0, 0, 0, 0);
2030     if (len2 > *pcchOut) {
2031         *pcchOut = len2;
2032         HeapFree(GetProcessHeap(), 0, in);
2033         return E_POINTER;
2034     }
2035     WideCharToMultiByte(0, 0, out, len+1, pszOut, *pcchOut, 0, 0);
2036     *pcchOut = len2;
2037     HeapFree(GetProcessHeap(), 0, in);
2038     return S_OK;
2039 }
2040
2041 /*************************************************************************
2042  *      UrlGetPartW     [SHLWAPI.@]
2043  *
2044  * See UrlGetPartA.
2045  */
2046 HRESULT WINAPI UrlGetPartW(LPCWSTR pszIn, LPWSTR pszOut, LPDWORD pcchOut,
2047                            DWORD dwPart, DWORD dwFlags)
2048 {
2049     WINE_PARSE_URL pl;
2050     HRESULT ret;
2051     DWORD size, schsize;
2052     LPCWSTR addr, schaddr;
2053
2054     TRACE("(%s %p %p(%ld) %08lx %08lx)\n",
2055           debugstr_w(pszIn), pszOut, pcchOut, *pcchOut, dwPart, dwFlags);
2056
2057     ret = URL_ParseUrl(pszIn, &pl);
2058     if (!ret) {
2059         schaddr = pl.pScheme;
2060         schsize = pl.szScheme;
2061
2062         switch (dwPart) {
2063         case URL_PART_SCHEME:
2064             if (!pl.szScheme) return E_INVALIDARG;
2065             addr = pl.pScheme;
2066             size = pl.szScheme;
2067             break;
2068
2069         case URL_PART_HOSTNAME:
2070             if (!pl.szHostName) return E_INVALIDARG;
2071             addr = pl.pHostName;
2072             size = pl.szHostName;
2073             break;
2074
2075         case URL_PART_USERNAME:
2076             if (!pl.szUserName) return E_INVALIDARG;
2077             addr = pl.pUserName;
2078             size = pl.szUserName;
2079             break;
2080
2081         case URL_PART_PASSWORD:
2082             if (!pl.szPassword) return E_INVALIDARG;
2083             addr = pl.pPassword;
2084             size = pl.szPassword;
2085             break;
2086
2087         case URL_PART_PORT:
2088             if (!pl.szPort) return E_INVALIDARG;
2089             addr = pl.pPort;
2090             size = pl.szPort;
2091             break;
2092
2093         case URL_PART_QUERY:
2094             if (!pl.szQuery) return E_INVALIDARG;
2095             addr = pl.pQuery;
2096             size = pl.szQuery;
2097             break;
2098
2099         default:
2100             return E_INVALIDARG;
2101         }
2102
2103         if (dwFlags == URL_PARTFLAG_KEEPSCHEME) {
2104             if (*pcchOut < schsize + size + 2) {
2105                 *pcchOut = schsize + size + 2;
2106                 return E_POINTER;
2107             }
2108             memcpy(pszOut, schaddr, schsize*sizeof(WCHAR));
2109             pszOut[schsize] = ':';
2110             memcpy(pszOut+schsize+1, addr, size*sizeof(WCHAR));
2111             pszOut[schsize+1+size] = 0;
2112             *pcchOut = schsize + 1 + size;
2113         }
2114         else {
2115             if (*pcchOut < size + 1) {*pcchOut = size+1; return E_POINTER;}
2116             memcpy(pszOut, addr, size*sizeof(WCHAR));
2117             pszOut[size] = 0;
2118             *pcchOut = size;
2119         }
2120         TRACE("len=%ld %s\n", *pcchOut, debugstr_w(pszOut));
2121     }
2122     return ret;
2123 }
2124
2125 /*************************************************************************
2126  * PathIsURLA   [SHLWAPI.@]
2127  *
2128  * Check if the given path is a Url.
2129  *
2130  * PARAMS
2131  *  lpszPath [I] Path to check.
2132  *
2133  * RETURNS
2134  *  TRUE  if lpszPath is a Url.
2135  *  FALSE if lpszPath is NULL or not a Url.
2136  */
2137 BOOL WINAPI PathIsURLA(LPCSTR lpstrPath)
2138 {
2139     PARSEDURLA base;
2140     DWORD res1;
2141
2142     if (!lpstrPath || !*lpstrPath) return FALSE;
2143
2144     /* get protocol        */
2145     base.cbSize = sizeof(base);
2146     res1 = ParseURLA(lpstrPath, &base);
2147     return (base.nScheme != URL_SCHEME_INVALID);
2148 }
2149
2150 /*************************************************************************
2151  * PathIsURLW   [SHLWAPI.@]
2152  *
2153  * See PathIsURLA.
2154  */
2155 BOOL WINAPI PathIsURLW(LPCWSTR lpstrPath)
2156 {
2157     PARSEDURLW base;
2158     DWORD res1;
2159
2160     if (!lpstrPath || !*lpstrPath) return FALSE;
2161
2162     /* get protocol        */
2163     base.cbSize = sizeof(base);
2164     res1 = ParseURLW(lpstrPath, &base);
2165     return (base.nScheme != URL_SCHEME_INVALID);
2166 }
2167
2168 /*************************************************************************
2169  *      UrlCreateFromPathA      [SHLWAPI.@]
2170  *
2171  * See UrlCreateFromPathW
2172  */
2173 HRESULT WINAPI UrlCreateFromPathA(LPCSTR pszPath, LPSTR pszUrl, LPDWORD pcchUrl, DWORD dwReserved)
2174 {
2175     WCHAR bufW[INTERNET_MAX_URL_LENGTH];
2176     WCHAR *urlW = bufW;
2177     UNICODE_STRING pathW;
2178     HRESULT ret;
2179     DWORD lenW = sizeof(bufW)/sizeof(WCHAR), lenA;
2180
2181     if(!RtlCreateUnicodeStringFromAsciiz(&pathW, pszPath))
2182         return E_INVALIDARG;
2183     if((ret = UrlCreateFromPathW(pathW.Buffer, urlW, &lenW, dwReserved)) == E_POINTER) {
2184         urlW = HeapAlloc(GetProcessHeap(), 0, lenW * sizeof(WCHAR));
2185         ret = UrlCreateFromPathW(pathW.Buffer, urlW, &lenW, dwReserved);
2186     }
2187     if(ret == S_OK || ret == S_FALSE) {
2188         RtlUnicodeToMultiByteSize(&lenA, urlW, lenW * sizeof(WCHAR));
2189         if(*pcchUrl > lenA) {
2190             RtlUnicodeToMultiByteN(pszUrl, *pcchUrl - 1, &lenA, urlW, lenW * sizeof(WCHAR));
2191             pszUrl[lenA] = 0;
2192             *pcchUrl = lenA;
2193         } else {
2194             *pcchUrl = lenA + 1;
2195             ret = E_POINTER;
2196         }
2197     }
2198     if(urlW != bufW) HeapFree(GetProcessHeap(), 0, urlW);
2199     RtlFreeUnicodeString(&pathW);
2200     return ret;
2201 }
2202
2203 /*************************************************************************
2204  *      UrlCreateFromPathW      [SHLWAPI.@]
2205  *
2206  * Create a Url from a file path.
2207  *
2208  * PARAMS
2209  *  pszPath [I]    Path to convert
2210  *  pszUrl  [O]    Destination for the converted Url
2211  *  pcchUrl [I/O]  Length of pszUrl
2212  *  dwReserved [I] Reserved, must be 0
2213  *
2214  * RETURNS
2215  *  Success: S_OK pszUrl contains the converted path, S_FALSE if the path is already a Url
2216  *  Failure: An HRESULT error code.
2217  */
2218 HRESULT WINAPI UrlCreateFromPathW(LPCWSTR pszPath, LPWSTR pszUrl, LPDWORD pcchUrl, DWORD dwReserved)
2219 {
2220     DWORD needed;
2221     HRESULT ret;
2222     WCHAR *pszNewUrl;
2223     WCHAR file_colonW[] = {'f','i','l','e',':',0};
2224     WCHAR three_slashesW[] = {'/','/','/',0};
2225     PARSEDURLW parsed_url;
2226
2227     TRACE("(%s, %p, %p, 0x%08lx)\n", debugstr_w(pszPath), pszUrl, pcchUrl, dwReserved);
2228
2229     /* Validate arguments */
2230     if (dwReserved != 0)
2231         return E_INVALIDARG;
2232     if (!pszUrl || !pcchUrl)
2233         return E_INVALIDARG;
2234
2235
2236     parsed_url.cbSize = sizeof(parsed_url);
2237     if(ParseURLW(pszPath, &parsed_url) == S_OK) {
2238         if(parsed_url.nScheme != URL_SCHEME_INVALID && parsed_url.cchProtocol > 1) {
2239             needed = strlenW(pszPath);
2240             if (needed >= *pcchUrl) {
2241                 *pcchUrl = needed + 1;
2242                 return E_POINTER;
2243             } else {
2244                 *pcchUrl = needed;
2245                 strcpyW(pszUrl, pszPath);
2246                 return S_FALSE;
2247             }
2248         }
2249     }
2250
2251     pszNewUrl = HeapAlloc(GetProcessHeap(), 0, (strlenW(pszPath) + 9) * sizeof(WCHAR)); /* "file:///" + pszPath_len + 1 */
2252     strcpyW(pszNewUrl, file_colonW);
2253     if(isalphaW(pszPath[0]) && pszPath[1] == ':')
2254         strcatW(pszNewUrl, three_slashesW);
2255     strcatW(pszNewUrl, pszPath);
2256     ret = UrlEscapeW(pszNewUrl, pszUrl, pcchUrl, URL_ESCAPE_PERCENT);
2257
2258     HeapFree(GetProcessHeap(), 0, pszNewUrl);
2259     return ret;
2260 }
2261
2262 /*************************************************************************
2263  *      SHAutoComplete          [SHLWAPI.@]
2264  *
2265  * Enable auto-completion for an edit control.
2266  *
2267  * PARAMS
2268  *  hwndEdit [I] Handle of control to enable auto-completion for
2269  *  dwFlags  [I] SHACF_ flags from "shlwapi.h"
2270  *
2271  * RETURNS
2272  *  Success: S_OK. Auto-completion is enabled for the control.
2273  *  Failure: An HRESULT error code indicating the error.
2274  */
2275 HRESULT WINAPI SHAutoComplete(HWND hwndEdit, DWORD dwFlags)
2276 {
2277   FIXME("SHAutoComplete stub\n");
2278   return S_FALSE;
2279 }
2280
2281 /*************************************************************************
2282  *  MLBuildResURLA      [SHLWAPI.405]
2283  *
2284  * Create a Url pointing to a resource in a module.
2285  *
2286  * PARAMS
2287  *  lpszLibName [I] Name of the module containing the resource
2288  *  hMod        [I] Callers module handle
2289  *  dwFlags     [I] Undocumented flags for loading the module
2290  *  lpszRes     [I] Resource name
2291  *  lpszDest    [O] Destination for resulting Url
2292  *  dwDestLen   [I] Length of lpszDest
2293  *
2294  * RETURNS
2295  *  Success: S_OK. lpszDest constains the resource Url.
2296  *  Failure: E_INVALIDARG, if any argument is invalid, or
2297  *           E_FAIL if dwDestLen is too small.
2298  */
2299 HRESULT WINAPI MLBuildResURLA(LPCSTR lpszLibName, HMODULE hMod, DWORD dwFlags,
2300                               LPCSTR lpszRes, LPSTR lpszDest, DWORD dwDestLen)
2301 {
2302   WCHAR szLibName[MAX_PATH], szRes[MAX_PATH], szDest[MAX_PATH];
2303   HRESULT hRet;
2304
2305   if (lpszLibName)
2306     MultiByteToWideChar(CP_ACP, 0, lpszLibName, -1, szLibName, sizeof(szLibName)/sizeof(WCHAR));
2307
2308   if (lpszRes)
2309     MultiByteToWideChar(CP_ACP, 0, lpszRes, -1, szRes, sizeof(szRes)/sizeof(WCHAR));
2310
2311   if (dwDestLen > sizeof(szLibName)/sizeof(WCHAR))
2312     dwDestLen = sizeof(szLibName)/sizeof(WCHAR);
2313
2314   hRet = MLBuildResURLW(lpszLibName ? szLibName : NULL, hMod, dwFlags,
2315                         lpszRes ? szRes : NULL, lpszDest ? szDest : NULL, dwDestLen);
2316   if (SUCCEEDED(hRet) && lpszDest)
2317     WideCharToMultiByte(CP_ACP, 0, szDest, -1, lpszDest, dwDestLen, 0, 0);
2318
2319   return hRet;
2320 }
2321
2322 /*************************************************************************
2323  *  MLBuildResURLA      [SHLWAPI.406]
2324  *
2325  * See MLBuildResURLA.
2326  */
2327 HRESULT WINAPI MLBuildResURLW(LPCWSTR lpszLibName, HMODULE hMod, DWORD dwFlags,
2328                               LPCWSTR lpszRes, LPWSTR lpszDest, DWORD dwDestLen)
2329 {
2330   static const WCHAR szRes[] = { 'r','e','s',':','/','/','\0' };
2331 #define szResLen ((sizeof(szRes) - sizeof(WCHAR))/sizeof(WCHAR))
2332   HRESULT hRet = E_FAIL;
2333
2334   TRACE("(%s,%p,0x%08lx,%s,%p,%ld)\n", debugstr_w(lpszLibName), hMod, dwFlags,
2335         debugstr_w(lpszRes), lpszDest, dwDestLen);
2336
2337   if (!lpszLibName || !hMod || hMod == INVALID_HANDLE_VALUE || !lpszRes ||
2338       !lpszDest || (dwFlags && dwFlags != 2))
2339     return E_INVALIDARG;
2340
2341   if (dwDestLen >= szResLen + 1)
2342   {
2343     dwDestLen -= (szResLen + 1);
2344     memcpy(lpszDest, szRes, sizeof(szRes));
2345
2346     hMod = MLLoadLibraryW(lpszLibName, hMod, dwFlags);
2347
2348     if (hMod)
2349     {
2350       WCHAR szBuff[MAX_PATH];
2351       DWORD len;
2352
2353       len = GetModuleFileNameW(hMod, szBuff, sizeof(szBuff)/sizeof(WCHAR));
2354       if (len && len < sizeof(szBuff)/sizeof(WCHAR))
2355       {
2356         DWORD dwPathLen = strlenW(szBuff) + 1;
2357
2358         if (dwDestLen >= dwPathLen)
2359         {
2360           DWORD dwResLen;
2361
2362           dwDestLen -= dwPathLen;
2363           memcpy(lpszDest + szResLen, szBuff, dwPathLen * sizeof(WCHAR));
2364
2365           dwResLen = strlenW(lpszRes) + 1;
2366           if (dwDestLen >= dwResLen + 1)
2367           {
2368             lpszDest[szResLen + dwPathLen + dwResLen] = '/';
2369             memcpy(lpszDest + szResLen + dwPathLen, lpszRes, dwResLen * sizeof(WCHAR));
2370             hRet = S_OK;
2371           }
2372         }
2373       }
2374       MLFreeLibrary(hMod);
2375     }
2376   }
2377   return hRet;
2378 }