[lisplab-cvs] r149 - trunk

[Jørn Inge Vestgården]

Author: jivestgarden
Date: Sun Mar 21 11:30:48 2010
New Revision: 149

Log:
added version number

Added:
   trunk/version.lisp
Modified:
   trunk/lisplab.asd
   trunk/package.lisp

Modified: trunk/lisplab.asd
==============================================================================
--- trunk/lisplab.asd	(original)
+++ trunk/lisplab.asd	Sun Mar 21 11:30:48 2010
@@ -43,6 +43,7 @@
   :components 
   (
    (:file "package")
+   (:file "version")
 
    ;;
    ;; All core none-matrix stuff (level 0)

Modified: trunk/package.lisp
==============================================================================
--- trunk/package.lisp	(original)
+++ trunk/package.lisp	Sun Mar 21 11:30:48 2010
@@ -46,6 +46,9 @@
 
 Lisplab provides high level interfaces to BLAS, LAPACK and FFTW.")
   (:export 
+   "LISPLAB-VERSION"
+   "LISPLAB-SVN-VERSION"
+
    ;; Utilities
    "IN-DIR"
    "STRCAT"

Added: trunk/version.lisp
==============================================================================
--- (empty file)
+++ trunk/version.lisp	Sun Mar 21 11:30:48 2010
@@ -0,0 +1,11 @@
+(in-package :lisplab)
+
+(defparameter lisplab-version "0.1.0" "A rather non-systematic overall version number.")
+
+(defparameter lisplab-svn-version
+  (if (probe-file #P"SVNVERSION")
+      (with-open-file (in #P"SVNVERSION" :direction :input)
+	(read-line in))
+      "No such ting. Make with '% make svnversion'")
+  "Revision number from subversion. Generated with svnversion.")
+		  
\ No newline at end of file