Mon Jun 1 00:22:22 CEST 2009 Tobias Rautenkranz <tobias@rautenkranz.ch>
* QList<QObject*>
hunk ./src/list.lisp 3
-(defmacro define-qlist-wrapper (type-name)
- (let* ((type (string-upcase type-name))
- (list-type (symbolicate 'qlist- type)))
+(defmacro define-qlist-wrapper (type-name &optional c-name)
+ (let* ((c-name (or c-name type-name))
+ (type (string-upcase c-name))
+ (list-type (symbolicate 'qlist- type)))
hunk ./src/list.lisp 8
- (defcfun ,(concatenate 'string "qt_smoke_list_" type-name "_size") :int
+ (defcfun ,(concatenate 'string "qt_smoke_list_" c-name "_size") :int
hunk ./src/list.lisp 11
- (defcfun ,(concatenate 'string "qt_smoke_free_list_" type-name) :void
+ (defcfun ,(concatenate 'string "qt_smoke_free_list_" c-name) :void
hunk ./src/list.lisp 14
- (defcfun ,(concatenate 'string "qt_smoke_make_list_" type-name) :pointer
+ (defcfun ,(concatenate 'string "qt_smoke_make_list_" c-name) :pointer
hunk ./src/list.lisp 16
- (defcfun ,(concatenate 'string "qt_smoke_list_" type-name "_at") :pointer
+ (defcfun ,(concatenate 'string "qt_smoke_list_" c-name "_at") :pointer
hunk ./src/list.lisp 20
- (defcfun ,(concatenate 'string "qt_smoke_list_" type-name "_append") :pointer
+ (defcfun ,(concatenate 'string "qt_smoke_list_" c-name "_append") :pointer
hunk ./src/list.lisp 60
- list ;; FIXME allow seqence and define element type
+ list ;; FIXME allow seqence and define element type
hunk ./src/list.lisp 64
-;(define-qlist-wrapper "void")
+(define-qlist-wrapper "QObject*" "void")