run-gemma: show version/help

1 files changed, 12 insertions, 7 deletions

diff --git a/scripts/precompute/run-gemma.scm b/scripts/precompute/run-gemma.scm
index b0db622..00cc68d 100755
--- a/scripts/precompute/run-gemma.scm
+++ b/scripts/precompute/run-gemma.scm
@@ -32,14 +32,19 @@ and with some extra paths (for gemma)
          (option-spec '( (version (single-char #\v) (value #f))
                          (help    (single-char #\h) (value #f))))
          (options (getopt-long args option-spec))
+         (show-version (option-ref options 'version #f))
          (help-wanted (option-ref options 'help #f))]
-    (display "RUNNING")
+    (if show-version
+        (begin
+          (display "run-gemma version 1.0\n")
+          (exit)))
     (if help-wanted
-        (format #t "list-traits-to-compute writes JSON traits files from the GN DB
-Usage: list-traits-to-compute [options...]
-  -h, --help          Display this help
-"))
-    (let [(trait-id "115475")
+        (format #t "run-gemma
+Usage: run-gemma [options...] filename(s)
+  -v --version       Display version
+  -h --help          Display this help
+")
+        (let [(trait-id "115475")
           (trait-fn "115475.json")
           ]
 
@@ -55,4 +60,4 @@ Usage: list-traits-to-compute [options...]
                  ]
             (write-pheno-file pheno-fn traits)
             (invoke-gemma-wrapper-loco dataset-name trait-name trait-fn pheno-fn "BXD.8_geno.txt.gz")
-          ))))))
+            )))))))