Sun Aug 2 12:12:41 CEST 2009 Tobias Rautenkranz <tobias@rautenkranz.ch>

* Cleanup C++ to Lisp translation

--- old-smoke/src/translate.lisp 2014-10-30 08:12:17.000000000 +0100

+++ new-smoke/src/translate.lisp 1970-01-01 01:00:00.000000000 +0100

@@ -1,27 +0,0 @@

-(in-package :smoke)

-

-(defvar *type-map* (make-hash-table :test 'equal))

-

-(defun get-type (name)

- "Return the CFFI type for NAME."

- (gethash name *type-map*))

-

-(defun add-type (name type)

- "Registers the CFFI type TYPE with NAME."

- (setf (gethash name *type-map*) type))

-

-(defun setup-type-map ()

- "Setup C string <-> Lisp string translation."

- (add-type "char*" :string)

- (add-type "const char*" :string))

-

-(eval-when (:load-toplevel :execute)

- (setup-type-map))

-

-(defgeneric convert-to-class (smoke-class object))

-

-;(defmethod convert-to-class (smoke-class (pointer cffi:foreign-pointer))

-(defmethod convert-to-class (smoke-class pointer)

- (declare (ignore smoke-class))

- (assert (cffi:pointerp pointer))

- pointer)