From 0bc80beb699000826b8e9415a7b254c92dc86a5a Mon Sep 17 00:00:00 2001 From: Jan Tuomi Date: Wed, 24 Jan 2024 16:57:56 +0200 Subject: Do things --- desmo-apply.scm | 54 ------------------------------------------------------ 1 file changed, 54 deletions(-) delete mode 100644 desmo-apply.scm (limited to 'desmo-apply.scm') diff --git a/desmo-apply.scm b/desmo-apply.scm deleted file mode 100644 index b10cb08..0000000 --- a/desmo-apply.scm +++ /dev/null @@ -1,54 +0,0 @@ -(module desmo-apply (run-apply) - (import scheme - (chicken base) - shell - test - utils) - - (define (run-apply cfg) - (let* ((cluster (assoc 'cluster cfg)) - (nodes (cdr cluster))) - - (map gather-node-facts nodes) - - (print "TODO") - 'todo)) - - (define (get-ssh-command node) - (let* ((alist (cdr node)) - (ssh-user-pair (assoc 'ssh-user alist)) - (ssh-hostname-pair (assoc 'ssh-hostname alist)) - (ssh-command-pair (assoc 'ssh-command alist))) - (cond ((not ssh-user-pair) - '(cfg-error "ssh-user not specified")) - ((not ssh-hostname-pair) - '(cfg-error "ssh-hostname not specified")) - ((not ssh-command-pair) - '(cfg-error "ssh-command not specified")) - (else - (string-append (cadr ssh-command-pair) - " " - (cadr ssh-user-pair) - "@" - (cadr ssh-hostname-pair)))))) - - (inline-tests - (test-group - "get-ssh-command" - (test "returns error if ssh-user not specified" 'cfg-error - (car (get-ssh-command '(node (ssh-hostname "foo") (ssh-command "bar"))))) - (test "returns error if ssh-hostname not specified" 'cfg-error - (car (get-ssh-command '(node (ssh-user "foo") (ssh-command "bar"))))) - (test "returns error if ssh-command not specified" 'cfg-error - (car (get-ssh-command '(node (ssh-user "foo") (ssh-hostname "bar"))))) - (test "returns ssh command if all specified" "ssh foo@bar" - (get-ssh-command '(node (ssh-user "foo") (ssh-hostname "bar") (ssh-command "ssh")))))) - - (define (gather-node-facts node) - (let* ((ssh-command (get-ssh-command node)) - (jls-command "jls") - (combined (string-append ssh-command " " jls-command)) - (result (capture ,combined))) - ; TODO parse result - (not (equal? result #!eof))))) - -- cgit v1.3