src/: Export a package version from the ASDF system definition.

I'd like to arrange the version automatically from `config/auto-version'
but can't figure out a good way yet.

diff --git a/src/frontend.lisp b/src/frontend.lisp
index e7b515a0683dc24b86f239d2334a2bd4d6a3dac3..9ed6f3084acb1396568e6986e1817d6d87b3473b 100644 (file)
--- a/src/frontend.lisp
+++ b/src/frontend.lisp
@@ -81,7 +81,7 @@ (defun main ()
     ;; Option definitions.
     (define-program
       :help "Process SOD input files to produce (e.g.) C output."
-      :version "0.1.0"
+      :version *sod-version*
       :usage "SOURCES..."
       :options (options
                (help-options :short-version #\V)

diff --git a/src/package.lisp b/src/package.lisp
index 60da8eac212cd27e0de85b2e71ebef15d39fa552..a6b9785c69100b2bc3381883e5ba05b94eb81ab1 100644 (file)
--- a/src/package.lisp
+++ b/src/package.lisp
@@ -28,4 +28,10 @@ (cl:defpackage #:sod
        #:sod-utilities
        #:sod-parser))
 
+(cl:in-package #:sod)
+
+(export '*sod-version*)
+(defvar *sod-version* (asdf:component-version (asdf:find-system "sod"))
+  "The version of the SOD translator system, as a string.")
+
 ;;;----- That's all, folks --------------------------------------------------

diff --git a/src/sod.asd b/src/sod.asd
index c81972536997165654fc3a96472dd5e71e214917..af2cd64ae564d7e7a3970cadbf1b10ea11cf3050 100644 (file)
--- a/src/sod.asd
+++ b/src/sod.asd
@@ -34,7 +34,7 @@
 (defsystem sod
 
   ;; Boring copyright stuff.
-  :version "1.0.0"
+  :version "0.1.0"
   :author "Mark Wooding"
   :license "GNU General Public License, version 2 or later"