Вычисление относительной гиперссылки

function NormalizePath(p) {
    var m;
    p = String(p);
    if (!p) return '';
    // если нет слеша в начале
    if (p.charAt(0) != '/') p = '/' + p;
    // удаляем повторяющиеся слеши.
    // "текущие" папка в конце "foo/bar/baz/." должна оставлять слеш в конце
    // удаляем остальные "текущие" папки /.
    p = p.replace(/\/{2,}/g, '/').replace(/\/\.$/, '/').replace(/(?:^|\/)\.(?=\/)/g, '');
    // /.. в конце должно порождать директорию, поэтому добавляем слеш: "foo/bar/baz/.." = "foo/bar/"
    // удаляем /папка/..
    // удаляем ненужное /.. в начале, ибо выше некуда
    // если в итоге что-то изменилось, то повторить (повторить, потому что /a/b/c/../../d -> /a/b/../d -> /a/d)
    while (p != (m = p.replace(/\/\.\.$/, '/../').replace(/\/(?:[^\/]{3,}|[^.\/]+|\.[^.\/]|[^.\/]\.)\/\.\.(?=$|\/)/g, '').replace(/^(?:\/\.\.)+(?=$|\/)/g, ''))) p = m;
    return p;
};
 
function RelUrl(url, rel) {
/* RFC 3986: URI
 * [url]http://www.faqs.org/rfcs/rfc3986.html[/url]
 */
    rel = String(rel);
    // если пусто, то ничего не меняем
    if (!rel) return url;
    // если относительный путь на самом деле полный от протокола, то его и выдаем
    // протокол:
    else if (/^[^:\/?#]+:/.test(rel)) return rel;
    // в текущем урле ишем протокол, хост и путь, запрос и якорь
    // (протокол:)(//хост)(/путь)(?запрос)(#якорь)
    var m = String(url).match(/^([^:\/?#]+:)?(\/\/[^\/?#]*)?([^?#]*)(\?[^#]*)?(#.*)?/), proto, host, path, query, fragment;
    if (!m) return null;
    proto = m[1] || '';
    host = m[2] || '';
    path = m[3] || '';
    query = m[4] || '';
    fragment = m[5] || '';
    // если относительный путь от запроса, то игнорируем текущий запрос и якорь
    if (rel.charAt(0) == '?') return proto + host + path + rel;
    // если относительный путь от запроса, то игнорируем текущий запрос и якорь
    else if (rel.charAt(0) == '#') return proto + host + path + query + rel;
    // если относительный путь от протокола, то заменяем текущий хост игнорируем текущий путь и остальное
    else if (rel.substr(0, 2) == '//') {
        // (//хост)(/путь)(?запрос#якорь)
        m = rel.match(/^(\/\/[^\/?#]*)([^?#]*)((?:\?[^#]*)?(?:#.*)?)/);
        if (!m) return null;
        return proto + m[1] + NormalizePath(m[2]) + m[3];
    }
    else {
        // (/путь)(?запрос#якорь)
        m = rel.match(/^([^?#]*)((?:\?[^#]*)?(?:#.*)?)/);
        if (!m) return null;
        query = m[2];
        // если относительный путь от корня (от хоста), то игнорируем текущий путь
        if (rel.charAt(0) == '/') path = m[1];
        // иначе обычный относительный путь
        // удаляем "файл" из текущего пути и оставляем только директорию
        else path = path.replace(/[^\/]+$/, '') + m[1];
        return proto + host + NormalizePath(path) + query; // якорь уже включен в запрос
    };
};

var uri = RelUrl('http://host/foo/bar/lol/baz', '../../lorem/ipsum');

alert([
    NormalizePath('/a/b/./c/../d'), //  /a/b/d
    NormalizePath('a/b/c/.'), //  /a/b/c/
    NormalizePath('../../a/b/..'), //  /a/
    NormalizePath('/a/b/../c/d/../../e') //  /a/e
].join('\n'));

alert([
    RelUrl('http://a/b/c/d?e#f', 'g/h'), //  [url]http://a/b/c/g/h[/url]
    RelUrl('http://a/b/c/d?e#f', 'g/h/'), //  [url]http://a/b/c/g/h/[/url]
    RelUrl('http://a/b/c/d?e#f', './g/h'), //  [url]http://a/b/c/g/h[/url]
    RelUrl('http://a/b/c/d?e#f', '../g/h'), //  [url]http://a/b/g/h[/url]
    RelUrl('http://a/b/c/d?e#f', '/g/h'), //  [url]http://a/g/h[/url]
    RelUrl('http://a/b/c/d?e#f', '//g/h'), //  [url]http://g/h[/url]
    RelUrl('http://a/b/c/d?e#f', 'g:h'), //  g:h
    RelUrl('http://a/b/c/d?e#f', '?g'), //  [url]http://a/b/c/d?g[/url]
    RelUrl('http://a/b/c/d?e#f', '#g'), //  [url]http://a/b/c/d?e#g[/url]
    RelUrl('http://a/b/c/d?e#f', '') //  [url]http://a/b/c/d?e#f[/url]
].join('\n'));