22 lines
488 B
Scheme
22 lines
488 B
Scheme
(module url-sig mzscheme
|
|
(require (lib "unitsig.ss"))
|
|
(provide net:url^)
|
|
|
|
(define-signature net:url^
|
|
((struct url (scheme user host port path query fragment))
|
|
(struct path/param (path param))
|
|
get-pure-port
|
|
get-impure-port
|
|
post-pure-port
|
|
post-impure-port
|
|
display-pure-port
|
|
purify-port
|
|
netscape/string->url
|
|
string->url
|
|
url->string
|
|
call/input-url
|
|
combine-url/relative
|
|
url-exception?
|
|
current-proxy-servers)))
|
|
|