/[cl-cairo2]/cl-cairo2.i
ViewVC logotype

Diff of /cl-cairo2.i

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1 by tpapp, Mon May 28 19:32:53 2007 UTC revision 7 by tpapp, Thu Jul 12 14:01:08 2007 UTC
# Line 1  Line 1 
1  %module "cl-cairo2-swig"  %module "cl-cairo2-swig"
2    
3  %ignore CAIRO_VERSION;  %ignore CAIRO_VERSION;
4    %ignore CAIRO_VERSION_STRING;
5    
6  %typemap(cin) double "my-double";  %typemap(cin) double "my-double";
7  /* %typemap(cin) int ":my-int"; */  /* %typemap(cin) int ":my-int"; */
# Line 9  Line 10 
10  (in-package :cl-cairo2)  (in-package :cl-cairo2)
11    
12  (defctype my-double :double)  (defctype my-double :double)
13  ;; (defmethod expand-to-foreign (value (type (eql 'my-double)))  (defmethod cffi:expand-to-foreign (value (type (eql 'my-double)))
14  ;;   `(coerce ,value 'double-float))    `(coerce ,value 'double-float))
15  (defmethod translate-to-foreign (value (type (eql 'my-double)))  ;; (defmethod translate-to-foreign (value (type my-double))
16    (coerce value 'double-float))  ;;   (coerce value 'double-float))
17    
18  ;; typedefs: we don't want to create all of them automatically,  ;; typedefs: we don't want to create all of them automatically,
19  ;; because typedefs for structures confuse with-foreign-slots  ;; because typedefs for structures confuse with-foreign-slots

Legend:
Removed from v.1  
changed lines
  Added in v.7

  ViewVC Help
Powered by ViewVC 1.1.5