scsh-conservatory
/
sunet
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Display relative filenames in directory listings.

This commit is contained in:
sperber 2001-06-09 09:28:51 +00:00
parent 3e6277cfbf
commit 3f178f99d0
1 changed files with 12 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
ftpd.scm
View File

@ -542,8 +542,17 @@
path path
(car packet)))) (car packet))))
(lambda () (lambda ()
(ls flags (list full-path) (socket:outport (with-cwd*
(session-data-socket))))))) (file-name-directory full-path)
(lambda ()
(let ((nondir (file-name-nondirectory full-path)))
(ls flags
(list
;; work around OLIN BUG
(if (string=? nondir "")
"."
(file-name-as-directory nondir)))
(socket:outport (session-data-socket))))))))))
(define (handle-abor foo) (define (handle-abor foo)
(maybe-close-data-connection) (maybe-close-data-connection)
@ -772,7 +781,7 @@
; Version ; Version
(define *ftpd-version* "$Revision: 1.3 $") (define *ftpd-version* "$Revision: 1.4 $")
(define (copy-port->port-binary input-port output-port) (define (copy-port->port-binary input-port output-port)
(let ((buffer (make-string *window-size*))) (let ((buffer (make-string *window-size*)))