35 lines
593 B
Racket
35 lines
593 B
Racket
#lang racket/base
|
|
(require racket/unit)
|
|
|
|
(provide url^ url+scheme^)
|
|
|
|
(define-signature url^
|
|
(get-pure-port
|
|
get-impure-port
|
|
post-pure-port
|
|
post-impure-port
|
|
head-pure-port
|
|
head-impure-port
|
|
delete-pure-port
|
|
delete-impure-port
|
|
put-pure-port
|
|
put-impure-port
|
|
display-pure-port
|
|
purify-port
|
|
netscape/string->url
|
|
string->url
|
|
url->string
|
|
path->url
|
|
url->path
|
|
call/input-url
|
|
combine-url/relative
|
|
url-exception?
|
|
current-proxy-servers
|
|
file-url-path-convention-type))
|
|
|
|
(define-signature url+scheme^ extends url^
|
|
(current-connect-scheme))
|
|
|
|
|
|
|