Contracts
svn: r6623
This commit is contained in:
parent
2445c88ed8
commit
7ffec913dd
|
@ -303,16 +303,14 @@ needs. They are provided by @file{private/util.ss}.
|
|||
}
|
||||
|
||||
@subsection{Paths}
|
||||
@; XXX path-element?
|
||||
@defproc[(explode-path* [p path?])
|
||||
(listof (or/c symbol? path?))]{
|
||||
(listof path-element?)]{
|
||||
Like @scheme[normalize-path], but does not resolve symlinks.
|
||||
}
|
||||
|
||||
@; XXX path-element? or no list?
|
||||
@defproc[(path-without-base [base path?]
|
||||
[p path?])
|
||||
list?]{
|
||||
(listof path-element?)]{
|
||||
Returns, as a list, the portion of @scheme[p] after @scheme[base],
|
||||
assuming @scheme[base] is a prefix of @scheme[p].
|
||||
}
|
||||
|
@ -329,9 +327,8 @@ needs. They are provided by @file{private/util.ss}.
|
|||
Prepends @scheme[base] to @scheme[p], unless @scheme[p] is absolute.
|
||||
}
|
||||
|
||||
@; XXX path-element?
|
||||
@defproc[(strip-prefix-ups [p list?])
|
||||
list?]{
|
||||
@defproc[(strip-prefix-ups [p (listof path-element?)])
|
||||
(listof path-element?)]{
|
||||
Removes all the prefix @scheme[".."]s from @scheme[p].
|
||||
}
|
||||
|
||||
|
|
|
@ -10,10 +10,14 @@
|
|||
(provide/contract
|
||||
[pretty-print-invalid-xexpr (exn:invalid-xexpr? any/c . -> . void)]
|
||||
[url-replace-path ((list? . -> . list?) url? . -> . url?)]
|
||||
; XXX need path-element?
|
||||
[explode-path* (path? . -> . (listof (or/c symbol? path?)))]
|
||||
; XXX need path-element?
|
||||
[path-without-base (path? path? . -> . list?)]
|
||||
; XXX need path-element?
|
||||
[list-prefix? (list? list? . -> . boolean?)]
|
||||
[strip-prefix-ups (list? . -> . list?)] ; XXX need path-element?
|
||||
; XXX need path-element?
|
||||
[strip-prefix-ups (list? . -> . list?)]
|
||||
[url-path->string ((listof (or/c string? path/param?)) . -> . string?)]
|
||||
[network-error ((symbol? string?) (listof any/c) . ->* . (void))]
|
||||
[directory-part (path? . -> . path?)]
|
||||
|
|
Loading…
Reference in New Issue
Block a user