From 4f1380af7f0e327a644c4525c6be30759a31f427 Mon Sep 17 00:00:00 2001 Message-Id: <4f1380af7f0e327a644c4525c6be30759a31f427.1714751483.git.mdw@distorted.org.uk> From: Mark Wooding Date: Thu, 10 Jan 2008 13:32:34 +0000 Subject: [PATCH] Added new function VERSION Organization: Straylight/Edgeware From: espen --- cairo/cairo.lisp | 16 +++++++++++++++- 1 file changed, 15 insertions(+), 1 deletion(-) 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 @@ (defbinding matrix-transform-point () nil (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)) -- [mdw]