[cl-cairo2-cvs] r19 - tutorial

[tpapp at common-lisp.net]

Author: tpapp
Date: Mon Apr 21 09:01:57 2008
New Revision: 19

Modified:
   cl-cairo2-swig.lisp
   cl-cairo2.i
   tutorial/hearts.png
Log:
fixed my-double type coercion to work with new CFFI

Modified: cl-cairo2-swig.lisp
==============================================================================
--- cl-cairo2-swig.lisp	(original)
+++ cl-cairo2-swig.lisp	Mon Apr 21 09:01:57 2008
@@ -1,11 +1,15 @@
 
 (in-package :cl-cairo2)
 
-(defctype my-double :double)
-;; (defmethod cffi:expand-to-foreign (value (type (eql 'my-double)))
-;;   `(coerce ,value 'double-float))
-(defmethod translate-to-foreign (value (type (eql 'my-double)))
-   (coerce value 'double-float))
+;; define our own alias for double float, so we can automatically
+;; convert other numerical types in the arguments
+(define-foreign-type my-double-type ()
+  ()
+  (:actual-type :double)
+  (:simple-parser my-double))
+                                                                              
+(defmethod translate-to-foreign (value (type my-double-type))
+  (coerce value 'double-float))
 
 ;; typedefs: we don't want to create all of them automatically,
 ;; because typedefs for structures confuse with-foreign-slots

Modified: cl-cairo2.i
==============================================================================
--- cl-cairo2.i	(original)
+++ cl-cairo2.i	Mon Apr 21 09:01:57 2008
@@ -9,11 +9,15 @@
 %insert("lisphead") %{
 (in-package :cl-cairo2)
 
-(defctype my-double :double)
-;; (defmethod cffi:expand-to-foreign (value (type (eql 'my-double)))
-;;   `(coerce ,value 'double-float))
-(defmethod translate-to-foreign (value (type (eql 'my-double)))
-   (coerce value 'double-float))
+;; define our own alias for double float, so we can automatically
+;; convert other numerical types in the arguments
+(define-foreign-type my-double-type ()
+  ()
+  (:actual-type :double)
+  (:simple-parser my-double))
+                                                                              
+(defmethod translate-to-foreign (value (type my-double-type))
+  (coerce value 'double-float))
 
 ;; typedefs: we don't want to create all of them automatically,
 ;; because typedefs for structures confuse with-foreign-slots

Modified: tutorial/hearts.png
==============================================================================
Binary files. No diff available.