From: Mark Wooding <mdw@distorted.org.uk>
Date: Wed, 19 Aug 2015 01:11:52 +0000 (+0100)
Subject: src/: Export a package version from the ASDF system definition.
X-Git-Tag: 0.2.0~71
X-Git-Url: https://git.distorted.org.uk/~mdw/sod/commitdiff_plain/111dc923e046e1123c4867e4e00dd6edcaae8893

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 e7b515a..9ed6f30 100644
--- a/src/frontend.lisp
+++ b/src/frontend.lisp
@@ -81,7 +81,7 @@
     ;; 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 60da8ea..a6b9785 100644
--- a/src/package.lisp
+++ b/src/package.lisp
@@ -28,4 +28,10 @@
 	#: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 c819725..af2cd64 100644
--- 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"