Update of /project/cello/cvsroot/cello/cffi-extender In directory clnet:/tmp/cvs-serv2070/cffi-extender

Modified Files: arrays.lisp callbacks.lisp cffi-extender.asd cffi-extender.lpr definers.lisp Log Message:

--- /project/cello/cvsroot/cello/cffi-extender/arrays.lisp 2006/09/05 23:05:36 1.4 +++ /project/cello/cvsroot/cello/cffi-extender/arrays.lisp 2007/02/02 20:11:02 1.5 @@ -1,5 +1,5 @@ ;;; -;;; Copyright © 1995,2003 by Kenneth William Tilton. +;;; Copyright (c) 1995,2003 by Kenneth William Tilton. ;;; ;;; Permission is hereby granted, free of charge, to any person obtaining a copy ;;; of this software and associated documentation files (the "Software"), to deal @@ -112,9 +112,10 @@ (cons (fgn-type g)(fgn-ptr g)))))) (if fgn (setf *gl-rsrc* (delete fgn *gl-rsrc*)) - (format t "~&Freeing unknown GL resource ~a" (cons type resource))) - #+nonono (ecase type - (:texture (ogl:ogl-texture-delete resource))))) + (progn + ;(format t "~&ignoring unknown GL resource ~a" (cons type resource)) + #+not (ecase type + (:texture (ogl:ogl-texture-delete resource)))))))

(defmacro make-ff-array (type &rest values) (let ((fv (gensym))(n (gensym))(vs (gensym))) @@ -179,6 +180,7 @@ (setf (ff-elt v :unsigned-char n) value))

(defun eltuc (v n) + (declare (fixnum n)) (ff-elt v :unsigned-char n))

(defun eltf (v n) --- /project/cello/cvsroot/cello/cffi-extender/callbacks.lisp 2006/07/06 22:09:10 1.2 +++ /project/cello/cvsroot/cello/cffi-extender/callbacks.lisp 2007/02/02 20:11:02 1.3 @@ -1,5 +1,5 @@ ;;; -;;; Copyright © 1995,2003 by Kenneth William Tilton. +;;; Copyright (c) 1995,2003 by Kenneth William Tilton. ;;; ;;; Permission is hereby granted, free of charge, to any person obtaining a copy ;;; of this software and associated documentation files (the "Software"), to deal --- /project/cello/cvsroot/cello/cffi-extender/cffi-extender.asd 2006/06/04 00:09:53 1.1 +++ /project/cello/cvsroot/cello/cffi-extender/cffi-extender.asd 2007/02/02 20:11:02 1.2 @@ -12,10 +12,10 @@ :licence "Lisp Lesser GNU Public License" :description "CFFI Add-ons" :long-description "Extensions and utilities for CFFI" - :depends-on (cffi cffi-uffi-compat) + :depends-on (cffi cffi-uffi-compat utils-kt) :serial t :components ((:file "cffi-extender") (:file "my-uffi-compat") (:file "definers") (:file "arrays") - (:file "callbacks"))) \ No newline at end of file + (:file "callbacks"))) --- /project/cello/cvsroot/cello/cffi-extender/cffi-extender.lpr 2006/11/13 05:29:27 1.7 +++ /project/cello/cvsroot/cello/cffi-extender/cffi-extender.lpr 2007/02/02 20:11:02 1.8 @@ -1,4 +1,4 @@ -;; -*- lisp-version: "8.0 [Windows] (Nov 6, 2006 16:43)"; cg: "1.81"; -*- +;; -*- lisp-version: "8.0 [Windows] (Jan 22, 2007 8:01)"; cg: "1.81"; -*-

(in-package :cg-user)

--- /project/cello/cvsroot/cello/cffi-extender/definers.lisp 2006/07/06 22:09:10 1.2 +++ /project/cello/cvsroot/cello/cffi-extender/definers.lisp 2007/02/02 20:11:02 1.3 @@ -1,5 +1,5 @@ ;;; -;;; Copyright © 1995,2003 by Kenneth William Tilton. +;;; Copyright (c) 1995,2003 by Kenneth William Tilton. ;;; ;;; Permission is hereby granted, free of charge, to any person obtaining a copy ;;; of this software and associated documentation files (the "Software"), to deal