>url ( obj -- url )
Furnace framework » URL objects

Prev:	<url> ( -- url )
Next:	URL"

Vocabulary
urls

Inputs

obj

an object

Outputs

url

an url

Word description
Converts an object into a URL. If the object is already a URL, does nothing; if it is a string, then it is parsed as a URL.

Errors
Throws an error if the object is of the wrong type, or if it is a string which is not a valid URL.

Examples
If we convert a string to a URL and print it out again, it will print similarly to the input string, except some normalization may have occurred:

USING: accessors prettyprint urls ; "http://www.apple.com" >url .
URL" http://www.apple.com/"

We can examine the URL object:

USING: accessors io urls ; "http://www.apple.com" >url host>> print
www.apple.com

A relative URL does not have a protocol, host or port:

USING: accessors prettyprint urls ; "file.txt" >url protocol>> .
f

Definition

IN: urls

GENERIC: >url ( obj -- url )

Methods

USING: kernel urls ;

M: f >url drop <url> ;


USING: accessors combinators formatting gopher.private kernel
splitting urls ;

M: gopher-link >url
    dup type>> 104 =
    [ selector>> "URL:" ?head drop ] [
        { [ host>> ] [ port>> ] [ type>> ] [ selector>> ] }
        cleave "gopher://%s:%s/%c%s" sprintf
    ] if >url ;


USING: accessors io.pathnames urls ;

M: pathname >url string>> >url ;


USING: accessors ascii combinators kernel sequences
sequences.generalizations strings urls urls.private ;

M: string >url
    [ <url> ] dip parse-url 5 firstn {
        [ >lower >>protocol ]
        [
            [
                [
                    first
                    [ first2 ~quotation~ ~quotation~ bi* ] when*
                ] [
                    second
                    [ first2 ~quotation~ ~quotation~ bi* ] when*
                ] bi
            ] when*
        ]
        [ >>path ]
        [ >>query ]
        [ >>anchor ]
    } spread dup host>> [ [ "/" or ] change-path ] when ;


USING: urls ;

M: url >url ;