ref: feb88f048d3ebfa1ff5e2b8e61dc3ad0baacffbc
dir: /module/uris.m/
URIs: module
{
PATH: con "/dis/lib/w3c/uris.dis";
# URI Generic Syntax (RFC 3986)
#
# scheme://authority/path?query#fragment
#
URI: adt
{
scheme: string;
userinfo: string; # authority, part I
host: string; # authority, part II
port: string; # authority, part III
path: string; # starts with / if path-abempty or path-absolute
query: string; # includes ? if not nil
fragment: string; # includes # if not nil
parse: fn(s: string): ref URI;
text: fn(u: self ref URI): string;
authority: fn(u: self ref URI): string;
addbase: fn(u: self ref URI, base: ref URI): ref URI;
copy: fn(u: self ref URI): ref URI;
hasauthority: fn(u: self ref URI): int;
isabsolute: fn(u: self ref URI): int;
nodots: fn(u: self ref URI): ref URI;
pathonly: fn(u: self ref URI): ref URI;
userpw: fn(u: self ref URI): (string, string); # ``deprecated format''
eq: fn(u: self ref URI, v: ref URI): int;
eqf: fn(u: self ref URI, v: ref URI): int;
};
init: fn();
dec: fn(s: string): string;
enc: fn(s: string, safe: string): string;
};