bug-mcron
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Bug-mcron] [PATCH 04/33] main: Add show-version.


From: Mathieu Lirzin
Subject: [Bug-mcron] [PATCH 04/33] main: Add show-version.
Date: Sun, 27 Sep 2015 22:41:49 +0200

* scm/mcron/main.scm (show-version): New procedure.
---
 scm/mcron/main.scm | 35 ++++++++++++++++++-----------------
 1 file changed, 18 insertions(+), 17 deletions(-)

diff --git a/scm/mcron/main.scm b/scm/mcron/main.scm
index 36adef9..ad4acd9 100644
--- a/scm/mcron/main.scm
+++ b/scm/mcron/main.scm
@@ -1,3 +1,4 @@
+;;   Copyright (C) 2015 Mathieu Lirzin
 ;;   Copyright (C) 2003, 2012 Dale Mellor
 ;; 
 ;;   This file is part of GNU mcron.
@@ -122,25 +123,25 @@
    (lambda (key func fmt args . rest)
      (mcron-error 1 (apply format (append (list #f fmt) args))))))
 
-;; If the user asked for the version of this program, give it to him and get
+(define* (show-version #:optional (command command-name))
+  "Display version information for COMMAND and quit."
+  (let* ((name       config-package-name)
+         (short-name (cadr (string-split name #\space)))
+         (version    config-package-version))
+    (simple-format #t "~a (~a) ~a\n
+Copyright (C) 2015 the ~a authors.\n
+License GPLv3+: GNU GPL version 3 or later <http://gnu.org/licenses/gpl.html>\n
+This is free software: you are free to change and redistribute it.\n
+There is NO WARRANTY, to the extent permitted by law.\n"
+                  command name version short-name)
+    (quit)))
+
+(when (option-ref options 'version #f)
+  (show-version))
+
+;; If the user asked for the help text of this program, give it to him and get
 ;; out.
 
-(if (option-ref options 'version #f)
-    (begin
-      (display (string-append "\n
-" command-name "  (" config-package-string ")\n
-Written by Dale Mellor\n
-\n
-Copyright (C) 2003, 2006, 2014  Dale Mellor\n
-This is free software; see the source for copying conditions.  There is NO\n
-warranty; not even for MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.\n
-"))
-      (quit)))
-
-
-
-;; Likewise if the user requested the help text.
-
 (if (option-ref options 'help #f)
     (begin
       (display (string-append "

reply via email to

[Prev in Thread] Current Thread [Next in Thread]