Temporary directories and the start of play.

bin/play.scm

@@ -0,0 +1,42 @@
+#!/usr/bin/env -S guile --no-auto-compile -e main -s
+!#
+(use-modules (srfi srfi-11)
+             (ice-9 getopt-long)
+             (ice-9 format)
+             (ordo util tmpdir))
+
+(define (collect-files tarball dir . files)
+  (let* ((mode (if (file-exists? tarball) "--append" "--create"))
+         (rc (apply system* "tar" mode "--gzip" "--directory" dir "--file" tarball files)))
+    (unless (zero? rc)
+      (error (string-append "Error collecting files")))))
+
+(define* (usage #:optional errmsg)
+  (with-output-to-port (current-error-port)
+    (lambda ()
+      (when errmsg
+        (format #t "Error: ~a~%~%" errmsg))
+      (display "Usage: play -t TARGET PLAYBOOK")
+      (newline)))
+  (exit (if errmsg EXIT_FAILURE EXIT_SUCCESS)))
+
+(define (process-options args)
+  (let* ((option-spec '((help   (single-char #\h) (value #f))
+                        (target (single-char #\t) (value #t) (required? #t))))
+         (options (getopt-long args option-spec))
+         (help-wanted (option-ref options 'help #f))
+         (target (option-ref options 'target #f))
+         (args   (option-ref options '() '())))
+    (cond
+     (help-wanted (usage))
+     ((not (= 1 (length args)))
+      (usage "Expected exactly one playbook")))
+    (values (car args) target)))
+
+(define (main args)
+  (let-values (((playbook-path target) (process-options args)))
+    (define playbook (load (canonicalize-path playbook-path)))
+    (define top-dir (dirname (dirname (current-filename))))
+    (define tmp-dir (create-temporary-directory))
+    (define tarball (string-append tmp-dir "/payload.tar.gz"))
+    (collect-files tarball top-dir "modules" "bin")))