54 lines
2.1 KiB
Scheme
54 lines
2.1 KiB
Scheme
#lang scheme/base
|
|
(require scheme/unit
|
|
scheme/contract
|
|
(only-in mzlib/contract opt->)
|
|
"url-structs.ss"
|
|
"url-sig.ss"
|
|
"url-unit.ss"
|
|
"tcp-sig.ss"
|
|
"tcp-unit.ss")
|
|
|
|
(define-compound-unit/infer url+tcp@
|
|
(import) (export url^)
|
|
(link tcp@ url@))
|
|
|
|
(define-values/invoke-unit/infer url+tcp@)
|
|
|
|
(provide (struct-out url) (struct-out path/param))
|
|
|
|
(provide/contract
|
|
(string->url ((or/c bytes? string?) . -> . url?))
|
|
(path->url ((or/c path-string? path-for-some-system?) . -> . url?))
|
|
(url->string (url? . -> . string?))
|
|
(url->path ((url?) ((one-of/c 'unix 'windows)) . opt-> . path-for-some-system?))
|
|
|
|
(get-pure-port (opt-> (url?) ((listof string?)) input-port?))
|
|
(get-impure-port (opt-> (url?) ((listof string?)) input-port?))
|
|
(post-pure-port (opt-> (url? (or/c false/c bytes?)) ((listof string?)) input-port?))
|
|
(post-impure-port (opt-> (url? bytes?) ((listof string?)) input-port?))
|
|
(head-pure-port (opt-> (url?) ((listof string?)) input-port?))
|
|
(head-impure-port (opt-> (url?) ((listof string?)) input-port?))
|
|
(delete-pure-port (opt-> (url?) ((listof string?)) input-port?))
|
|
(delete-impure-port (opt-> (url?) ((listof string?)) input-port?))
|
|
(put-pure-port (opt-> (url? (or/c false/c bytes?)) ((listof string?)) input-port?))
|
|
(put-impure-port (opt-> (url? bytes?) ((listof string?)) input-port?))
|
|
(display-pure-port (input-port? . -> . void?))
|
|
(purify-port (input-port? . -> . string?))
|
|
(netscape/string->url (string? . -> . url?))
|
|
(call/input-url (case->
|
|
(-> url?
|
|
(-> url? input-port?)
|
|
(-> input-port? any)
|
|
any)
|
|
(-> url?
|
|
(-> url? (listof string?) input-port?)
|
|
(-> input-port? any)
|
|
(listof string?)
|
|
any)))
|
|
(combine-url/relative (url? string? . -> . url?))
|
|
(url-exception? (any/c . -> . boolean?))
|
|
(current-proxy-servers
|
|
(parameter/c (or/c false/c (listof (list/c string? string? number?)))))
|
|
(file-url-path-convention-type
|
|
(parameter/c (one-of/c 'unix 'windows))))
|