Command line tools handle --version (suggested by Michael Stapelberg)

Author: mario-goulart

salmonella-cmd.scm

@@ -1,4 +1,5 @@
 (use salmonella salmonella-log-parser)
+(include "salmonella-version.scm")
 (include "salmonella-common.scm")
 
 (define default-verbosity 2)
@@ -94,6 +95,10 @@ EOF
             (member "--help" args))
     (usage exit-code: 0))
 
+  (when (member "--version" args)
+    (print salmonella-version)
+    (exit 0))
+
   (let* ((this-egg? (or (and (member "--this-egg" args)
                              (begin
                                (print "WARNING: --this-egg is deprecated")

salmonella-epidemy.scm

@@ -1,5 +1,6 @@
 (use posix salmonella salmonella-log-parser)
 (include "salmonella-common.scm")
+(include "salmonella-version.scm")
 
 (define default-verbosity 0)
 
@@ -72,6 +73,9 @@
   (when (or (member "-h" args)
             (member "--help" args))
     (usage exit-code: 0 epidemy?: #t))
+  (when (member "--version" args)
+    (print salmonella-version)
+    (exit 0))
   (let* ((chicken-installation-prefix
           (cmd-line-arg '--chicken-installation-prefix args))
          (salmonella-prefix

salmonella-log-merger.scm

@@ -1,5 +1,6 @@
 (use salmonella salmonella-log-parser)
 (include "salmonella-common.scm")
+(include "salmonella-version.scm")
 
 (define (merge-logs log-files)
   (let* ((logs (map read-log-file log-files))
@@ -47,6 +48,9 @@
 (let ((args (command-line-arguments)))
   (when (null? args)
     (usage 1))
+  (when (member "--version" args)
+    (print salmonella-version)
+    (exit 0))
   (let ((log-files
          (remove (lambda (arg)
                    (string-prefix? "--" arg))

salmonella-log-viewer.scm

@@ -1,4 +1,5 @@
 (use salmonella-log-parser)
+(include "salmonella-version.scm")
 
 (define (concat l)
   (string-intersperse (map ->string l) ""))
@@ -51,4 +52,7 @@
   (when (or (member "-h" args)
             (member "--help" args))
     (usage 0))
+  (when (member "--version" args)
+    (print salmonella-version)
+    (exit 0))
   (view-log (car args)))

salmonella-version.scm

@@ -0,0 +1 @@
+(define salmonella-version "2.6")

salmonella.setup

@@ -1,5 +1,7 @@
 ;;; salmonella.setup -*- scheme -*-
 
+(include "salmonella-version.scm")
+
 ;; Compile the extensions
 (compile -S -s -O3 -d1 -J salmonella.scm)
 (compile -S -s -O3 -d1 salmonella.import.scm)
@@ -13,8 +15,6 @@
 (compile -S -O3 -d1 salmonella-log-viewer.scm -o salmonella-log-viewer)
 (compile -S -O3 -d1 salmonella-log-merger.scm -o salmonella-log-merger)
 
-(define salmonella-version "2.6")
-
 (install-extension 'salmonella
                    '("salmonella.so" "salmonella.import.so")
                    `((version ,salmonella-version)))