grokking simplicity and refactoring

packages/lab-tool/utils/ssh/file-copy.scm

@@ -0,0 +1,50 @@
+;; utils/ssh/file-copy.scm - Pure file copying operations
+
+(define-module (utils ssh file-copy)
+  #:use-module (ice-9 format)
+  #:use-module (utils logging)
+  #:use-module (utils config)
+  #:export (copy-file-pure
+            build-copy-context
+            copy-file-to-remote))
+
+;; Pure function: Copy file with given copy context
+;; Input: copy-context alist, local-path string, remote-path string
+;; Output: #t if successful, #f otherwise
+(define (copy-file-pure copy-context local-path remote-path)
+  "Pure function to copy file given copy context"
+  (let ((is-local (assoc-ref copy-context 'is-local))
+        (target (assoc-ref copy-context 'target)))
+    (let* ((copy-cmd (if is-local
+                         (format #f "cp '~a' '~a'" local-path remote-path)
+                         (format #f "scp '~a' '~a:~a'" local-path target remote-path)))
+           (status (system copy-cmd)))
+      (zero? status))))
+
+;; Pure function: Build copy context from ssh-config
+(define (build-copy-context ssh-config)
+  "Pure function to build copy context from ssh-config"
+  (let ((hostname (assoc-ref ssh-config 'hostname))
+        (ssh-alias (assoc-ref ssh-config 'ssh-alias))
+        (is-local (assoc-ref ssh-config 'is-local)))
+    `((is-local . ,is-local)
+      (target . ,(or ssh-alias hostname)))))
+
+;; Impure wrapper: Copy file to remote with logging and config lookup
+(define (copy-file-to-remote machine-name local-path remote-path)
+  "Copy file to remote machine (with side effects: logging, config lookup)"
+  (let ((ssh-config (get-ssh-config machine-name)))
+    (if (not ssh-config)
+        (begin
+          (log-error "No SSH configuration found for ~a" machine-name)
+          #f)
+        (let* ((copy-context (build-copy-context ssh-config))
+               (is-local (assoc-ref copy-context 'is-local)))
+          (log-debug "Copying ~a: ~a -> ~a" 
+                     (if is-local "locally" (format #f "to ~a" machine-name))
+                     local-path remote-path)
+          (let ((result (copy-file-pure copy-context local-path remote-path)))
+            (if result
+                (log-debug "File copy successful")
+                (log-error "File copy failed"))
+            result)))))