From: espen <espen>
Date: Thu, 10 Jan 2008 13:32:34 +0000 (+0000)
Subject: Added new function VERSION
X-Git-Tag: clg-0-93~19
X-Git-Url: https://git.distorted.org.uk/~mdw/clg/commitdiff_plain/4f1380af7f0e327a644c4525c6be30759a31f427

Added new function VERSION
---

diff --git a/cairo/cairo.lisp b/cairo/cairo.lisp
index 2f99566..c4760cd 100644
--- a/cairo/cairo.lisp
+++ b/cairo/cairo.lisp
@@ -20,7 +20,7 @@
 ;; TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
 ;; SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
 
-;; $Id: cairo.lisp,v 1.20 2008/01/10 13:31:39 espen Exp $
+;; $Id: cairo.lisp,v 1.21 2008/01/10 13:32:34 espen Exp $
 
 (in-package "CAIRO")
 
@@ -1076,3 +1076,17 @@
   (matrix matrix)
   (x double-float :in/out)
   (y double-float :in/out))
+
+
+;; Version information
+
+(defbinding %version () int)
+
+(defun version ()
+  (let ((version (%version)))
+    (values 
+     (mod (truncate version 10000) 100)
+     (mod (truncate version 100) 100)
+     (mod version 100))))
+
+(defbinding version-string () (static string))