Add sftp-put for writing a local file to a remote SFTP server.

src/package.lisp

@@ -53,6 +53,9 @@
 
            ;; SFTP
            :sftp-list-directory
+           :sftp-get
+           :sftp-delete
+           :sftp-put
 
            ;; STREAMS API // BLOCKING
 

src/sftp.lisp

@@ -83,3 +83,21 @@ It is possible to combine `MAXFILES' and `EXTENSIONS' (retrieve 5 files with ext
     (ssh2.debug "Trying to delete remote file ~A" remote-path)
     (let ((result (libssh2-sftp-unlink-ex sftp remote-path)))
       (ssh2.debug "Deleting ~A resulted in ~A." remote-path result))))
+
+(defun sftp-put (ssh-connection local-path remote-path &key (modes #o644))
+  (with-sftp (sftp ssh-connection)
+    (let ((handle))
+      (unwind-protect
+           (progn
+             (ssh2.debug "Trying to send local file ~A to remote file ~A" local-path remote-path)
+             (setf handle (libssh2-sftp-open-ex sftp remote-path
+                                                (foreign-bitfield-value 'sftp-flags '(:write :creat :trunc))
+                                                modes
+                                                :file))
+             (with-open-file (in local-path :direction :input :element-type '(unsigned-byte 8))
+               (let ((buffer (make-array 1024 :element-type '(unsigned-byte 8))))
+                 (loop for numbytes = (read-sequence buffer in)
+                       until (zerop numbytes)
+                       do (cffi:with-foreign-array (array buffer `(:array :uint8 ,numbytes)) (libssh2-sftp-write handle array numbytes)))))
+             (ssh2.debug "Local file ~A was written to ~A" local-path remote-path)))
+      (when handle (libssh2-sftp-close-handle handle)))))

src/types.lisp

@@ -219,22 +219,22 @@
   (:excl  #x20))
 
 (defbitfield (sftp-modes :long)
-  (:named-pipe #x10000)
-  (:character-special #x20000)
-  (:directory #x40000)
-  (:block-special #x60000)
-  (:regular #x100000)
-  (:symbolic-link #x120000)
-  (:socket #x140000)
-  (:user-read #x400)
-  (:user-write #x200)
-  (:user-execute #x100)
-  (:group-read #x40)
-  (:group-write #x20)
-  (:group-execute #x10)
-  (:other-read #x4)
-  (:other-write #x2)
-  (:other-execute #x1))
+  (:named-pipe #o10000)
+  (:character-special #o20000)
+  (:directory #o40000)
+  (:block-special #o60000)
+  (:regular #o100000)
+  (:symbolic-link #o120000)
+  (:socket #o140000)
+  (:user-read #o400)
+  (:user-write #o200)
+  (:user-execute #o100)
+  (:group-read #o40)
+  (:group-write #o20)
+  (:group-execute #o10)
+  (:other-read #o4)
+  (:other-write #o2)
+  (:other-execute #o1))
 
 (defcenum (sftp-error-code :unsigned-long)
   (:ok                       0)