url
Furnace framework » HTTP server » HTTP request variables

Prev:	request
Next:	responder-nesting

Vocabulary
urls

Class description
The class of URLs. The slots correspond to the standard components of a URL.

Definition

IN: urls

TUPLE: url
    protocol username password host port path query anchor ;

Methods

USING: accessors punycode urls ;

M: url >idna [ >idna ] change-host ;


USING: urls ;

M: url >url ;


USING: accessors furnace.utilities urls ;

M: url adjust-redirect-url
    adjust-url
    [ [ modify-redirect-query ] each-responder ] change-query ;


USING: accessors furnace.utilities http.server.redirection
kernel urls ;

M: url adjust-url
    clone [ [ modify-query ] each-responder ] change-query
    [ resolve-base-path ] change-path relative-to-request ;


USING: accessors http.download http.download.private
io.directories io.encodings.binary io.files.unique kernel
mime.types sequences splitting urls ;

M: url download-to-temporary-file
    [ download-temporary-name binary ] keep
    [ http-write-request ] curry with-unique-file-writer swap
    [ dup ".temp" ?tail drop ] [
        content-type>> mime-type>extension "temp" or "." glue
        find-next-incremented-name
    ] bi* [ move-file ] keep ;


USING: accessors punycode urls ;

M: url idna> [ idna> ] change-host ;


USING: html.components urls ;

M: url link-href ;


USING: html.components urls ;

M: url link-title ;


USING: bittorrent urls ;

M: url load-metainfo http-get-bencode ;


USING: kernel present prettyprint.backend prettyprint.custom
prettyprint.sections urls ;

M: url pprint*
    \ URL" record-vocab dup present "URL\" " "\"" pprint-string
    ;


USING: accessors assocs combinators kernel make present urls
urls.encoding urls.private ;

M: url present
    [
        {
            [ unparse-protocol ]
            [ unparse-authority ]
            [ unparse-path ]
            [
                query>> dup assoc-empty?
                [ drop ] [ "?" % assoc>query % ] if
            ]
            [ anchor>> [ "#" % present url-encode % ] when* ]
        } cleave
    ] "" make ;


USING: accessors http.server.redirection kernel namespaces urls
;

M: url relative-to-request
    url get clone f >>query swap derive-url ensure-port ;


USING: accessors images.http images.viewer urls ;

M: url set-image protocol>> load-http-image >>image ;


USING: cbor cbor.private present urls ;

M: url write-cbor 32 6 write-integer present write-cbor ;