Sun Jan 10 09:52:49 CET 2010 Tobias Rautenkranz <tobias@rautenkranz.ch>

* Split up in qt.gui & cleanup name prefix.

--- old-qt.gui/src/string-list.lisp 2014-10-30 07:42:47.000000000 +0100

+++ new-qt.gui/src/string-list.lisp 1970-01-01 01:00:00.000000000 +0100

@@ -1,49 +0,0 @@

-(in-package :cl-smoke.qt-impl)

-

-(defcfun qt-smoke-string-list-size :int

- (string-list :pointer))

-

-(defcfun qt-smoke-string-list-at :pointer

- (string-list :pointer)

- (index :int))

-

-(defcfun qt-smoke-free-string-list :void

- (string-list :pointer))

-

-(defcfun qt-smoke-make-string-list :pointer)

-

-(defcfun qt-smoke-string-list-append :void

- (string-list :pointer)

- (string :pointer)

- (length :int))

-

-(defun from-string-list (string-list)

- (let ((vector (make-array (qt-smoke-string-list-size string-list)

- :initial-element ""

- :element-type 'string)))

- (dotimes (index (length vector) vector)

- (setf (aref vector index)

- (cxx:data (make-instance 'qt:byte-array

- :pointer (qt-smoke-string-list-at

- string-list index)))))))

-

-(define-to-lisp-translation ("QStringList" "const QStringList&")

- from-string-list qt-smoke-free-string-list)

-

-(defun coerce-string-list (sequence)

- (let ((string-list (qt-smoke-make-string-list)))

- (map nil

- #'(lambda (string)

- (with-foreign-string ((data length) string :null-terminated-p nil)

- (qt-smoke-string-list-append string-list data length)))

- sequence)

- (make-cleanup-pointer

- string-list #'qt-smoke-free-string-list)))

-

-(defun string-list-p (sequence)

- (every #'stringp sequence))

-

-(define-from-lisp-translation "const QStringList&"

- (and (vector string)

- (satisfies string-list-p))

- coerce-string-list)