suzanne.soy/compatibility
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 
original commit: 5a7ddd66114035237e29f76d9632775b9c38810c
This commit is contained in:
Eli Barzilay 2011-08-05 01:13:50 -04:00
parent 8142ffa4d9
commit 2757ab7d15
1 changed files with 4 additions and 2 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)" "^(.)(.*) ((?i:jan|feb|mar|apr|may|jun|jul|aug|sep|oct|nov|dec)"
" .* [0-9][0-9]:?[0-9][0-9]) (.*)$"))) " .* [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)) (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-check-response (ftp-connection-in tcp-ports)
(ftp-connection-out tcp-ports) (ftp-connection-out tcp-ports)
(list #"150" #"125") void (void)) (list #"150" #"125") void (void))