derive-url ( base url -- url' )
Furnace framework » URL objects

Prev:	URL"
Next:	relative-url ( url -- url' )

Vocabulary
urls

Inputs

base	an url
url	an url

Outputs

url'

an url

Word description
Builds a URL by filling in missing components of url from base.

Examples

USING: prettyprint urls ; URL" http://factorcode.org" URL" binaries.fhtml" derive-url .
URL" http://factorcode.org/binaries.fhtml"

USING: prettyprint urls ; URL" http://www.truecasey.com/drinks/kombucha" URL" master-cleanser" derive-url .
URL" http://www.truecasey.com/drinks/master-cleanser"

USING: prettyprint urls ; "https://factorcode.org" "index.html" derive-url .
URL" https://factorcode.org/index.html"

Definition

USING: accessors combinators kernel urls.private ;

IN: urls

: derive-url ( base url -- url' )
    [ >url clone ] dip >url over {
        [ [ protocol>> ] either? >>protocol ]
        [ [ username>> ] either? >>username ]
        [ [ password>> ] either? >>password ]
        [ [ host>> ] either? >>host ]
        [ derive-port >>port ]
        [ derive-path >>path ]
        [ [ query>> ] either? >>query ]
        [ [ anchor>> ] either? >>anchor ]
    } 2cleave ;