diff options
| author | Artyom V. Poptsov <poptsov.artyom@gmail.com> | 2015-10-28 09:51:44 +0300 |
|---|---|---|
| committer | Artyom V. Poptsov <poptsov.artyom@gmail.com> | 2015-10-28 09:53:59 +0300 |
| commit | 657c94836d6ab92269ba962b78c2bf3f27b4289b (patch) | |
| tree | 2f046d00da330fa768cafaefeb966cd59b32f288 /modules/ssh | |
| parent | doc/api-sftp.texi: Fix a subsection heading (diff) | |
| download | guile-ssh-657c94836d6ab92269ba962b78c2bf3f27b4289b.tar.gz | |
sftp-file-type.c (gssh_open_file): Rename Scheme procedure
* libguile-ssh/sftp-file-type.c (gssh_open_file): Rename Scheme procedure to
'%gssh-sftp-open'. All callers updated.
* modules/ssh/sftp.scm (sftp-open-file): Rename to 'sftp-open'. All
callers updated.
(call-with-remote-input-file, call-with-remote-output-file): Update.
* doc/api-sftp.texi: Update.
Diffstat (limited to 'modules/ssh')
| -rw-r--r-- | modules/ssh/sftp.scm | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/modules/ssh/sftp.scm b/modules/ssh/sftp.scm index 3347c9f..101b95e 100644 --- a/modules/ssh/sftp.scm +++ b/modules/ssh/sftp.scm @@ -42,7 +42,7 @@ %sftp-init ;; File ports - sftp-open-file + sftp-open sftp-file? ;; High-level operations on remote files @@ -131,11 +131,11 @@ value is undefined." ;;; SFTP file API. -(define* (sftp-open-file sftp-session filename flags #:optional (mode #o666)) +(define* (sftp-open sftp-session filename flags #:optional (mode #o666)) "Open a FILENAME with permissions specified by MODE, return an open file port. Permissions are set to 'MODE & ~umask'; the default MODE is #o666. Throw 'guile-ssh-error' on an error." - (%gssh-sftp-open-file sftp-session filename flags mode)) + (%gssh-sftp-open sftp-session filename flags mode)) (define (sftp-file? x) "Return #t if X is an SFTP file port, #f otherwise." @@ -167,7 +167,7 @@ If the procedure returns, then the port is closed automatically and the values yielded by the procedure are returned. If the procedure does not return, then the port will not be closed automatically unless it is possible to prove that the port will never again be used for a read or write operation." - (let ((input-file (sftp-open-file sftp-session filename O_RDONLY))) + (let ((input-file (sftp-open sftp-session filename O_RDONLY))) (call-with-values (lambda () (proc input-file)) (lambda vals @@ -187,8 +187,8 @@ If the procedure returns, then the port is closed automatically and the values yielded by the procedure are returned. If the procedure does not return, then the port will not be closed automatically unless it is possible to prove that the port will never again be used for a read or write operation." - (let ((output-file-port (sftp-open-file sftp-session filename - (logior O_WRONLY O_CREAT)))) + (let ((output-file-port (sftp-open sftp-session filename + (logior O_WRONLY O_CREAT)))) (call-with-values (lambda () (proc output-file-port)) (lambda vals |