suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Add an optional path argument to `ftp-directory-list'.

Browse Source
This commit is contained in:
Eli Barzilay 2011-08-05 01:13:50 -04:00
parent 6a1336e75e
commit 5a7ddd6611
2 changed files with 11 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
collects/net/ftp-unit.rkt
View File

@ -163,9 +163,11 @@
"^(.)(.*) ((?i:jan|feb|mar|apr|may|jun|jul|aug|sep|oct|nov|dec)"
" .* [0-9][0-9]:?[0-9][0-9]) (.*)$")))
(define (ftp-directory-list tcp-ports)
(define (ftp-directory-list tcp-ports [path #f])
(define tcp-data (establish-data-connection tcp-ports))
(fprintf (ftp-connection-out tcp-ports) "LIST\r\n")
(if path
(fprintf (ftp-connection-out tcp-ports) "LIST ~a\r\n" path)
(fprintf (ftp-connection-out tcp-ports) "LIST\r\n"))
(ftp-check-response (ftp-connection-in tcp-ports)
(ftp-connection-out tcp-ports)
(list #"150" #"125") void (void))

12
collects/net/scribblings/ftp.scrbl
View File

@ -31,20 +31,22 @@ supplied username and password.}
Closes an FTP connection.}
@defproc[(ftp-cd [ftp-conn ftp-connection?][new-dir string?]) void?]{
@defproc[(ftp-cd [ftp-conn ftp-connection?] [new-dir string?]) void?]{
Changes the current directory on the FTP server to @racket[new-dir].
The @racket[new-dir] argument is not interpreted at all, but simply
passed on to the server; it must not contain a newline.}
@defproc[(ftp-directory-list [ftp-conn ftp-connection?])
@defproc[(ftp-directory-list [ftp-conn ftp-connection?]
[path (or/c false/c string?) #f])
(listof (list/c (one-of/c "-" "d" "l")
string?
string?))]{
Returns a list of files and directories in the current directory of
the server, assuming that the server provides directory information in
the quasi-standard Unix format.
Returns a list of files and directories in the current directory of the
server, assuming that the server provides directory information in the
quasi-standard Unix format. If a @racket[path] argument is given, use
it instead of the current directory.
Each file or directory is represented by a list of three or four
strings. The first string is either @racket["-"], @racket["d"], or