(require-extension uri)

[procedure] (uri STRING [DEFAULT-URI])

Parses the Uniform Resource Identifier (RFC 3986) STRING and returns a Uniform Resource Identifier object. Returns the DEFAULT-URI, if provided, when the parse fails, otherwise signals an error.

[procedure] (make-uri #!key scheme specific fragment ...)

Returns a Uniform Resource Identifier object from unencoded component arguments.

• Scheme maybe a symbol or string, in which case it is converted to a symbol.
• Specific is scheme specific. The default is (authority path query).
• Fragment is a string.
• ... is scheme specific. The default scheme handler also accepts the keyword arguments authority, path, query.
• Authority is a list of (userinfo host port) where userinfo is a string "username:password", host is a string, and port is an integer. Any can be #f, indicating a missing item. Authority can also be a string, in which case it is parsed into a list form.
• Path maybe a list of ([directory ...] basename) where directory and basename are strings, or a string, in which case it is parsed into a path-list (also known as a "split path").
• Query is an association list where the key is a string and the value is any object. Query can also be a string, in which case it is parsed into an association list.

[procedure] (*make-uri scheme specific fragment ...)

Returns a Uniform Resource Identifier object from unencoded component arguments.

• Scheme is a symbol.
• Specific is scheme specific.
• Fragment is a string.
• ... is scheme specific.

[procedure] (uri-scheme URI)
[procedure] (uri-specific URI)
[procedure] (uri-fragment URI)
[procedure] (uri-authority URI)
[procedure] (uri-userinfo URI)
[procedure] (uri-username URI)
[procedure] (uri-password URI)
[procedure] (uri-host URI)
[procedure] (uri-port URI)
[procedure] (uri-path URI)
[procedure] (uri-query URI)

Accessor procedures for URI objects.

• Scheme is a symbol.
• Specific is scheme specific. Default is a list - ((uri-authority uri) (uri-path uri) (uri-query uri)).
• Fragment is a string.
• Authority is a list of (userinfo host port) where userinfo is a string "username:password", host is a string, and port is an integer.
• Userinfo is a two value return of Username and Password.
• Username is a string.
• Password is a string.
• Host is a string.
• Port is an integer.
• Path is a list of ([directory ...] basename) where directory and basename are strings.
• Query is an association list where the key is a string and the value is any object.

Any can be #f, indicating a missing item.

A null string, "", indicates a root element.

Example: An authority of (#f "" #f) means missing userinfo, missing port, and the "root" host or "localhost". In this case the actual host was missing from the source URI string, as in "file:///usr/local/share/chicken/doc/chicken.html#Index".

[procedure] (uri? X)

Returns #t if X is an URI object, or #f otherwise.

[parameter] (uri-missing-query-value [X])

Gets or sets the object used for a query value when none is supplied. Default is #t.

[parameter] (uri-rfc3986-strict [X])

Gets or sets the strict standard parsing flag. Default is #t.

Currently this only effects the precedence of authority over path with an ambiguous uri. When #t the path component has precedence.

[procedure] (uri-scheme-symbol STRING [PARSE?])

Returns the Uniform Resource Identifier (RFC 3986) scheme component from STRING as a symbol with a lower-case printname, or #f if none present.

• PARSE? is a flag indicating whether the STRING is an encoded URI, #t, or should be treated monolithically, #f. The default is #f.

[procedure] (uri-path-null? URI)

Is the path component of the "null"?

• Null here is defined as a PATH-LIST equal to either #f, '(), or '("").

[procedure] (uri->string URI)

Returns the URI encoded string form of the URI object.

Any query component values are converted to a string before the query component string form is built.

[procedure] (uri->list STRING [BASIS])

Returns a decoded list form - (scheme specific fragment ...).

• STRING is a Uniform Resource Identifier (RFC 3986).
• BASIS is either a decoded list form, as above, or a Uniform Resource Identifier string. A URI is converted to a decoded list form.

[procedure] (list->uri LIST)

Returns a uri object for the decoded list form.

• LIST - unencoded (scheme specific fragment ...).

[procedure] (uri-split-path PATH)

Returns the "rooted" list form of the string form PATH.

[procedure] (uri-split-path-null? PATH-LIST)

Is the PATH-LIST "null"?

• Null here is defined as a PATH-LIST equal to either #f, '(), or '("").

[procedure] (uri-encode-split-path PATH-LIST)

Returns a URI string combining the components of PATH-LIST.

[procedure] (uri-decode-split-path PATH-LIST [BASE-PATH-LIST])

Returns a path-list from the encoded PATH-LIST, with optional BASE-PATH-LIST.

The optional BASE-PATH-LIST is used as the base address for relative paths.

[procedure] (uri-decode-path PATH [BASE-PATH-LIST])

Returns a list path from the string PATH, with optional BASE-PATH-LIST.

The optional BASE-PATH-LIST is used as the base address for relative paths.

[procedure] (uri-encode-query QUERY-ALIST [MISSING])

Converts a QUERY-ALIST to a URI encoded query-string.

• MISSING is the value for a "valueless" key. Default is (uri-missing-query-value). When the value for a key in the QUERY-ALIST is eqv? MISSING then only the key is appended to the result string.

[procedure] (uri-decode-query QUERY-STRING [MISSING])

Converts a URI encoded QUERY-STRING to a query-alist.

• MISSING is the value for a "valueless" key. Default is (uri-missing-query-value).

[procedure] (uri-encode URI-COMPONENT [ALLOWED ...])

Returns a copy of the string URI-COMPONENT in which all unsafe octets (as defined in RFC 3986) have been `%' escaped. uri-decode decodes strings encoded by uri-encode.

• ALLOWED is either a procedure of one character parameter, a string, or a character. A match means the character is not encoded.
• ALPHA / DIGIT / "-" / "." / "_" / "~" are always allowed.
• Line break (CRLF / LFCR) is mapped to %0D%0A.

[procedure] (uri-decode URI-COMPONENT)

Returns a copy of the string URI-COMPONENT in which each `%' escaped characters in URI-component is replaced with the character it encodes. This routine is useful for showing URI contents on error pages.

[procedure] (absolute-uri? STRING)

Returns #t if STRING is an absolute URI as indicated by a syntactically valid (per RFC 3986) scheme; otherwise returns #f.

[procedure] (pathname->uri PATHNAME)

Returns a URI-string for PATHNAME on the local host.

[procedure] (uri-new-scheme-specific SCHEME #:fielder #:parser #:maker #:encoder #:decoder #:data #:associations)

Sets the scheme specific handler (class) for SCHEME.

• SCHEME is a Uniform Resource Identifier (RFC 3986) scheme component represented as a symbol.
• #:fielder value is a procedure: (SYMBOL #!REST -> OBJECT). Taking a uri field component key and optional arguments. Returns the field component value or (void) when no such field. The field keys scheme, specific, and fragment are builtin. Corresponding to the same named fields of the uri record object.
• #:maker value is a procedure: (URI SYMBOL OBJECT OBJECT [#!REST ...] -> URI). Taking a uri record object, constructed from the next 3 arguments, the <scheme>, <specific>, and <fragment> components of a uri, plus optional arguments. Returns a uri record object. The default is a procedure that just returns its' first argument.
• #:parser value is a procedure: (#:scheme #:specific #:fragment [#!KEY ...] -> LIST). Taking keyword arguments. Returns a list of the parsed components (<scheme> <specific> <fragment> ...).
• #:decoder value is a procedure: (STRING LIST -> LIST). Taking a encoded string from of a uri, and a parsed components list, known as the BASIS (which maybe #f). Returns the parsed components (<scheme> <specific> <fragment> ...).
• #:encoder value is a procedure: (URI -> STRING). Taking a uri record object. Returns the encoded form of the uri as a string.
• #:data value is scheme specific initial data. Default is unspecified.
• #:associations value is an association-list of scheme specific operation procedures. Default is (). The alist must be composed of pairs of the form (<symbol> . <procedure>). Any arguments are passed to the procedure.
• Note that the argument list for the make procedure has the same components and order as the list of parsed components returned by the parse and decode procedures. This is not a coincidence.
• The uri record object accessors uri$scheme-set!, uri$specific-set!, uri$fragment-set!, uri$scheme-class, uri$scheme-class-set!, uri$scheme-data, and uri$scheme-data-set! are available for unrestricted access. Use at your own risk.
• There is a default scheme handler used when a scheme specific handler cannot be found. Please see the source code file "uri.scm" for more information.
• A scheme specific class is implemented as a dispatcher on its' first argument, which is a symbol. The symbols field, make, parse, decode, encode, data, and name are reserved.

[procedure] (uri->tree URI-STR [BASE-TREE]) DEPRECATED

Use

(let ([lst (uri->list uri-str
                      (and base-tree
                           `(,(first base-tree)
                             (,(second base-tree) ,(third base-tree) ,(fourth base-tree))
                             ,(fifth base-tree))))])
  `(,(first lst) ,@(second lst) ,(third lst)) )

Returns a list of 5 elements corresponding to the parts (scheme authority path query fragment) of string URI-STR. Elements corresponding to absent parts are #f.

The path is a list of strings. If the first string is empty, then the path is absolute; otherwise relative. The optional BASE-TREE is a tree as returned by uri->tree; and is used as the base address for relative URIs.

If the authority component is a Server-based Naming Authority, then it is a list of the userinfo, host, and port strings (or #f). For other types of authority components the authority will be a string.

  (uri->tree "http://www.ics.uci.edu:80/pub/ietf/uri/#Related")
  =>
  (http (#f "www.ics.uci.edu" 80) ("" "pub" "ietf" "uri" "") #f #f "Related")

[procedure] (uri-scheme-specific URI) DEPRECATED

Use (uri-specific URI).

[procedure] (uri-make-path PATH-LIST) DEPRECATED

Use uri-encode-split-path.

Returns a URI string combining the components of PATH-LIST.

[procedure] (uri-split-fields STR CHR) DEPRECATED

Use unit extras string-split.

Returns a list of STR split at each occurrence of CHR. CHR does not appear in the returned list of strings.

[procedure] (uri-path->keys PATH-LIST PTYPES) DEPRECATED

Use uri-decode-split-path and coerce egg coerce-all.

PATH-LIST is a path-list as returned by uri-split-fields. uri-path->keys returns a list of items coerced to types PTYPES.

[procedure] (path->uri PATH) DEPRECATED

Use pathname->uri.

Returns a URI-string for PATH on the local host.

[procedure] (absolute-path? FILE-NAME) DEPRECATED

Use utils unit absolute-pathname?.

Returns #t if FILE-NAME is a fully specified pathname (does not depend on the current working directory); otherwise returns #f.

[procedure] (null-directory? STRING) DEPRECATED

Use utils unit directory-null?.

Returns #t if changing directory to STRING would leave the current directory unchanged; otherwise returns #f.

[procedure] (glob-pattern? STRING) DEPRECATED

Use regex unit glob?.

Returns #t if the string STRING contains characters used for specifying glob patterns, namely #\*, #\?, and #\[.

(require-extension ftp-parse)

[procedure] (parse-ftp-address URI)

Returns a list of the decoded FTP URI; or #f if indecipherable. FTP Uniform Resource Locator, ange-ftp, and getit formats are handled. The returned list has four elements which are strings or #f:

0. username
1. password
2. remote-site
3. remote-directory

Portions Copyright 2007 Kon Lovett
All rights reserved.

Redistribution and use in source and binary forms, with or without modification, are permitted provided that the following
conditions are met:

  Redistributions of source code must retain the above copyright notice, this list of conditions and the following
    disclaimer.
  Redistributions in binary form must reproduce the above copyright notice, this list of conditions and the following
    disclaimer in the documentation and/or other materials provided with the distribution.
  Neither the name of the author nor the names of its contributors may be used to endorse or promote
    products derived from this software without specific prior written permission.

THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND ANY EXPRESS
OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY
AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDERS OR
CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR
SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR
OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
POSSIBILITY OF SUCH DAMAGE.

Portions Copyright 1997, 1998, 2000, 2001 Aubrey Jaffer

Permission to copy this software, to modify it, to redistribute it,
to distribute modified versions, and to use it for any purpose is
granted, subject to the following restrictions and understandings.

1. Any copy made of this software must include this copyright notice
in full.

2. I have made no warranty or representation that the operation of
this software will be error-free, and I am under no obligation to
provide any services, by way of maintenance, update, or otherwise.

3. In conjunction with products arising from the use of this
material, there shall be no use of my name in any advertising,
promotional, or sales literature without prior written consent in
each case.