November 2004 - cells-cvs@common-lisp.net

[cells-cvs] CVS update: opengl-bindings/build.lisp opengl-bindings/gl-constants.lisp opengl-bindings/gl-def.lisp opengl-bindings/gl-functions.lisp opengl-bindings/glbind.asd opengl-bindings/glbind.lpr opengl-bindings/glu-functions.lisp opengl-bindings/glut-def.lisp opengl-bindings/glut-extras.lisp opengl-bindings/glut-functions.lisp opengl-bindings/load-uffi.lisp opengl-bindings/nehe-14.lisp
by Kenny Tilton 17 Nov '04

17 Nov '04

Update of /project/cells/cvsroot/opengl-bindings In directory common-lisp.net:/tmp/cvs-serv23901 Removed Files: build.lisp gl-constants.lisp gl-def.lisp gl-functions.lisp glbind.asd glbind.lpr glu-functions.lisp glut-def.lisp glut-extras.lisp glut-functions.lisp load-uffi.lisp nehe-14.lisp Log Message: cleanup Date: Wed Nov 17 23:54:38 2004 Author: ktilton

1 0

[cells-cvs] CVS update: ffi-extender/arrays.lisp ffi-extender/build.lisp ffi-extender/callbacks.lisp ffi-extender/definers.lisp ffi-extender/ffx.asd
by Kenny Tilton 17 Nov '04

17 Nov '04

Update of /project/cells/cvsroot/ffi-extender In directory common-lisp.net:/tmp/cvs-serv23733 Removed Files: arrays.lisp build.lisp callbacks.lisp definers.lisp ffx.asd Log Message: cleanup Date: Wed Nov 17 23:50:17 2004 Author: ktilton

1 0

[cells-cvs] CVS update: cell-cultures/utils-kt/defpackage.lisp cell-cultures/utils-kt/detritus.lisp
by Kenny Tilton 17 Nov '04

17 Nov '04

Update of /project/cells/cvsroot/cell-cultures/utils-kt In directory common-lisp.net:/tmp/cvs-serv19757/utils-kt Modified Files: defpackage.lisp detritus.lisp Log Message: Patches to support cells-gtk; ongoing glut refinements cello osx port Date: Wed Nov 17 13:32:06 2004 Author: ktilton Index: cell-cultures/utils-kt/defpackage.lisp diff -u cell-cultures/utils-kt/defpackage.lisp:1.6 cell-cultures/utils-kt/defpackage.lisp:1.7 --- cell-cultures/utils-kt/defpackage.lisp:1.6 Thu Oct 28 02:09:42 2004 +++ cell-cultures/utils-kt/defpackage.lisp Wed Nov 17 13:32:01 2004 @@ -33,6 +33,7 @@ #:wdbg #:maptimes #:bwhen #:bif #:xor "WITH-DYNAMIC-FN" #:last1 #:packed-flat! #:with-metrics #-(or lispworks mcl) "TRUE" "SHORTC" + #+clisp #:slot-definition-name #:intern$ #:defconstant-once "*COUNT*" "*STOP*" "*DBG*" "*TRCDEPTH*" Index: cell-cultures/utils-kt/detritus.lisp diff -u cell-cultures/utils-kt/detritus.lisp:1.2 cell-cultures/utils-kt/detritus.lisp:1.3 --- cell-cultures/utils-kt/detritus.lisp:1.2 Thu Oct 28 02:09:42 2004 +++ cell-cultures/utils-kt/detritus.lisp Wed Nov 17 13:32:01 2004 @@ -30,11 +30,11 @@ (defun slot-definition-name (slot) (clos::slotdef-name slot)) -(defmethod class-slot-named ((classname symbol) slotname) - (class-slot-named (find-class classname) slotname)) - -(defmethod class-slot-named (class slotname) - (find slotname (class-slots class) :key #'slot-definition-name)) +;;;(defmethod class-slot-named ((classname symbol) slotname) +;;; (class-slot-named (find-class classname) slotname)) +;;; +;;;(defmethod class-slot-named (class slotname) +;;; (find slotname (class-slots class) :key #'slot-definition-name)) #+mcl (defun class-slots (c)

1 0

[cells-cvs] CVS update: cell-cultures/ffi-extender/arrays.lisp cell-cultures/ffi-extender/callbacks.lisp
by Kenny Tilton 17 Nov '04

17 Nov '04

Update of /project/cells/cvsroot/cell-cultures/ffi-extender In directory common-lisp.net:/tmp/cvs-serv19757/ffi-extender Modified Files: arrays.lisp callbacks.lisp Log Message: Patches to support cells-gtk; ongoing glut refinements cello osx port Date: Wed Nov 17 13:31:51 2004 Author: ktilton Index: cell-cultures/ffi-extender/arrays.lisp diff -u cell-cultures/ffi-extender/arrays.lisp:1.2 cell-cultures/ffi-extender/arrays.lisp:1.3 --- cell-cultures/ffi-extender/arrays.lisp:1.2 Tue Oct 19 05:47:37 2004 +++ cell-cultures/ffi-extender/arrays.lisp Wed Nov 17 13:31:51 2004 @@ -175,6 +175,12 @@ (defun (setf eltf) (value v n) (setf (ff-elt v :float n) (coerce value 'float))) +(defun elt$ (v n) + (ff-elt v :cstring n)) + +(defun (setf elt$) (value v n) + (setf (ff-elt v :cstring n) value)) + (defun eltd (v n) (ff-elt v :double n)) Index: cell-cultures/ffi-extender/callbacks.lisp diff -u cell-cultures/ffi-extender/callbacks.lisp:1.1 cell-cultures/ffi-extender/callbacks.lisp:1.2 --- cell-cultures/ffi-extender/callbacks.lisp:1.1 Sat Jun 26 20:38:42 2004 +++ cell-cultures/ffi-extender/callbacks.lisp Wed Nov 17 13:31:51 2004 @@ -55,26 +55,6 @@ (:stdcall :stdcall)))) ,@body)) -#+dave -(fli:define-foreign-callable - (wndproc :result-type :long :calling-convention :stdcall) - ((hwnd hwnd) (msg (:unsigned :long)) - (wparam (:unsigned :long)) (lparam (:unsigned :long))) - (cond - ((= msg wm-paint) (wndproc-paint hwnd msg wparam lparam)) - #+console ((= msg wm-destroy) (postquitmessage 0) 0) - (t (defwindowproc hwnd msg wparam lparam)))) - -#+dave -(defun register-class () - (fli:with-foreign-string (cn-p ec bc :external-format *external-format*) - *class-name* - ;; Below - use with-dynamic... for automatic freeing. Make some pointers. - (let ((wc-p (fli:allocate-foreign-object :type 'wndclass)) - (wp-p (fli:make-pointer :symbol-name "wndproc"))) - ... - (setf (fli:foreign-slot-value wc-p 'lpfnwndproc) - (fli:pointer-address wp-p))))) #+test ;; lw-sample (fli:define-foreign-callable

1 0

[cells-cvs] CVS update: cell-cultures/cl-opengl/cl-opengl.lisp cell-cultures/cl-opengl/glut-functions.lisp
by Kenny Tilton 17 Nov '04

17 Nov '04

Update of /project/cells/cvsroot/cell-cultures/cl-opengl In directory common-lisp.net:/tmp/cvs-serv19757/cl-opengl Modified Files: cl-opengl.lisp glut-functions.lisp Log Message: Patches to support cells-gtk; ongoing glut refinements cello osx port Date: Wed Nov 17 13:31:45 2004 Author: ktilton Index: cell-cultures/cl-opengl/cl-opengl.lisp diff -u cell-cultures/cl-opengl/cl-opengl.lisp:1.4 cell-cultures/cl-opengl/cl-opengl.lisp:1.5 --- cell-cultures/cl-opengl/cl-opengl.lisp:1.4 Thu Oct 28 02:09:33 2004 +++ cell-cultures/cl-opengl/cl-opengl.lisp Wed Nov 17 13:31:45 2004 @@ -60,7 +60,8 @@ #:ogl-bounds #:ogl-scissor-box #:ogl-raster-pos-get #:ogl-pen-move #:with-bitmap-shifted #:texture-name - #:eltgli #:ogl-tex-activate #:gl-name)) + #:eltgli #:ogl-tex-activate #:gl-name + #:mgwclose #:freeg #:glut-bitmap-string #:glut-stroke-string)) (in-package :cl-opengl) Index: cell-cultures/cl-opengl/glut-functions.lisp diff -u cell-cultures/cl-opengl/glut-functions.lisp:1.1 cell-cultures/cl-opengl/glut-functions.lisp:1.2 --- cell-cultures/cl-opengl/glut-functions.lisp:1.1 Sat Jun 26 20:38:41 2004 +++ cell-cultures/cl-opengl/glut-functions.lisp Wed Nov 17 13:31:45 2004 @@ -121,37 +121,37 @@ #| glut window callback sub-api. |# -(defun-ffx :void "glut" "glutCloseFunc" (:long lpfn)) ;; (*func)(void) -(defun-ffx :void "glut" "glutWMCloseFunc" (:long lpfn)) ;; (*func)(void) ;; same -(defun-ffx :void "glut" "glutDisplayFunc" (:long lpfn)) ;; (*func)(void) -(defun-ffx :void "glut" "glutReshapeFunc" (:long lpfn)) ;; (*func)(int width (), int height)); -(defun-ffx :void "glut" "glutKeyboardFunc" (:long lpfn)) ;; (*func)(unsigned char key, int x, int y)); -(defun-ffx :void "glut" "glutMouseFunc" (:long lpfn)) ;; (*func)(int button, int state, int x, int y)); -(defun-ffx :void "glut" "glutMotionFunc" (:long lpfn)) ;; (*func)(int x, int y)); -(defun-ffx :void "glut" "glutPassiveMotionFunc" (:long lpfn)) ;; (*func)(int x, int y)); -(defun-ffx :void "glut" "glutEntryFunc" (:long lpfn)) ;; (*func)(int state)); -(defun-ffx :void "glut" "glutVisibilityFunc" (:long lpfn)) ;; (*func)(int state)); -(defun-ffx :void "glut" "glutIdleFunc" (:long lpfn)) ;; (*func)(void)); +(defun-ffx :void "glut" "glutCloseFunc" (:void *lpfn)) ;; (*func)(void) +(defun-ffx :void "glut" "glutWMCloseFunc" (:void *lpfn)) ;; (*func)(void) ;; same +(defun-ffx :void "glut" "glutDisplayFunc" (:void *lpfn)) ;; (*func)(void) +(defun-ffx :void "glut" "glutReshapeFunc" (:void *lpfn)) ;; (*func)(int width (), int height)); +(defun-ffx :void "glut" "glutKeyboardFunc" (:void *lpfn)) ;; (*func)(unsigned char key, int x, int y)); +(defun-ffx :void "glut" "glutMouseFunc" (:void *lpfn)) ;; (*func)(int button, int state, int x, int y)); +(defun-ffx :void "glut" "glutMotionFunc" (:void *lpfn)) ;; (*func)(int x, int y)); +(defun-ffx :void "glut" "glutPassiveMotionFunc" (:void *lpfn)) ;; (*func)(int x, int y)); +(defun-ffx :void "glut" "glutEntryFunc" (:void *lpfn)) ;; (*func)(int state)); +(defun-ffx :void "glut" "glutVisibilityFunc" (:void *lpfn)) ;; (*func)(int state)); +(defun-ffx :void "glut" "glutIdleFunc" (:void *lpfn)) ;; (*func)(void)); (defun-ffx :void "glut" "glutTimerFunc" (gluint millis :long lpfn)) ;; (int value), int value); -(defun-ffx :void "glut" "glutMenuStateFunc" (:long lpfn)) ;; (*func)(int state)); +(defun-ffx :void "glut" "glutMenuStateFunc" (:void *lpfn)) ;; (*func)(int state)); -(defun-ffx :void "glut" "glutSpecialFunc" (:long lpfn)) ;; (*func)(int key, int x, int y)); -(defun-ffx :void "glut" "glutSpaceballMotionFunc" (:long lpfn)) ;; (*func)(int x, int y, int z)); -(defun-ffx :void "glut" "glutSpaceballRotateFunc" (:long lpfn)) ;; (*func)(int x, int y, int z)); -(defun-ffx :void "glut" "glutSpaceballButtonFunc" (:long lpfn)) ;; (*func)(int button, int state)); -(defun-ffx :void "glut" "glutButtonBoxFunc" (:long lpfn)) ;; (*func)(int button, int state)); -(defun-ffx :void "glut" "glutDialsFunc" (:long lpfn)) ;; (*func)(int dial, int value)); -(defun-ffx :void "glut" "glutTabletMotionFunc" (:long lpfn)) ;; (*func)(int x, int y)); -(defun-ffx :void "glut" "glutTabletButtonFunc" (:long lpfn)) ;; (*func)(int button, int state, int x, int y)); +(defun-ffx :void "glut" "glutSpecialFunc" (:void *lpfn)) ;; (*func)(int key, int x, int y)); +(defun-ffx :void "glut" "glutSpaceballMotionFunc" (:void *lpfn)) ;; (*func)(int x, int y, int z)); +(defun-ffx :void "glut" "glutSpaceballRotateFunc" (:void *lpfn)) ;; (*func)(int x, int y, int z)); +(defun-ffx :void "glut" "glutSpaceballButtonFunc" (:void *lpfn)) ;; (*func)(int button, int state)); +(defun-ffx :void "glut" "glutButtonBoxFunc" (:void *lpfn)) ;; (*func)(int button, int state)); +(defun-ffx :void "glut" "glutDialsFunc" (:void *lpfn)) ;; (*func)(int dial, int value)); +(defun-ffx :void "glut" "glutTabletMotionFunc" (:void *lpfn)) ;; (*func)(int x, int y)); +(defun-ffx :void "glut" "glutTabletButtonFunc" (:void *lpfn)) ;; (*func)(int button, int state, int x, int y)); -(defun-ffx :void "glut" "glutMenuStatusFunc" (:long lpfn)) ;; (*func)(int status, int x, int y)); -(defun-ffx :void "glut" "glutOverlayDisplayFunc" (:long lpfn)) ;; (*func)(void)); +(defun-ffx :void "glut" "glutMenuStatusFunc" (:void *lpfn)) ;; (*func)(int status, int x, int y)); +(defun-ffx :void "glut" "glutOverlayDisplayFunc" (:void *lpfn)) ;; (*func)(void)); -(defun-ffx :void "glut" "glutWindowStatusFunc" (:long lpfn)) ;; (*func)(int state)); +(defun-ffx :void "glut" "glutWindowStatusFunc" (:void *lpfn)) ;; (*func)(int state)); -(defun-ffx :void "glut" "glutKeyboardUpFunc" (:long lpfn)) ;; (*func)(unsigned char key, int x, int y)); -(defun-ffx :void "glut" "glutSpecialUpFunc" (:long lpfn)) ;; (*func)(int key, int x, int y)); -(defun-ffx :void "glut" "glutJoystickFunc" (:long lpfn)) ;; (*func)(unsigned int buttonMask, int x, int y, int z), int pollInterval); +(defun-ffx :void "glut" "glutKeyboardUpFunc" (:void *lpfn)) ;; (*func)(unsigned char key, int x, int y)); +(defun-ffx :void "glut" "glutSpecialUpFunc" (:void *lpfn)) ;; (*func)(int key, int x, int y)); +(defun-ffx :void "glut" "glutJoystickFunc" (:void *lpfn)) ;; (*func)(unsigned int buttonMask, int x, int y, int z), int pollInterval); #| glut color index sub-api. |# (defun-ffx :void "glut" "glutSetColor" (:int cell glfloat red glfloat green glfloat blue))

1 0

[cells-cvs] CVS update: cell-cultures/cl-magick/mgk-test.lisp
by Kenny Tilton 17 Nov '04

17 Nov '04

Update of /project/cells/cvsroot/cell-cultures/cl-magick In directory common-lisp.net:/tmp/cvs-serv19757/cl-magick Modified Files: mgk-test.lisp Log Message: Patches to support cells-gtk; ongoing glut refinements cello osx port Date: Wed Nov 17 13:31:43 2004 Author: ktilton Index: cell-cultures/cl-magick/mgk-test.lisp diff -u cell-cultures/cl-magick/mgk-test.lisp:1.4 cell-cultures/cl-magick/mgk-test.lisp:1.5 --- cell-cultures/cl-magick/mgk-test.lisp:1.4 Thu Oct 28 02:09:21 2004 +++ cell-cultures/cl-magick/mgk-test.lisp Wed Nov 17 13:31:42 2004 @@ -23,6 +23,7 @@ (in-package :cl-magick) + #+cello (defun mgk-wand-dump (w &rest info) (ukt::trc "mgk-wand-dump" w info) @@ -321,7 +322,7 @@ (glutmainloop))) #+test -(cl-magic-test) +(cl-magick-test) (ff-defun-callable :cdecl :void mgwkey (k x y) (mgwkeyi k x y))

1 0

[cells-cvs] CVS update: cell-cultures/cl-ftgl/cl-ftgl.lisp
by Kenny Tilton 17 Nov '04

17 Nov '04

Update of /project/cells/cvsroot/cell-cultures/cl-ftgl In directory common-lisp.net:/tmp/cvs-serv19757/cl-ftgl Modified Files: cl-ftgl.lisp Log Message: Patches to support cells-gtk; ongoing glut refinements cello osx port Date: Wed Nov 17 13:31:37 2004 Author: ktilton Index: cell-cultures/cl-ftgl/cl-ftgl.lisp diff -u cell-cultures/cl-ftgl/cl-ftgl.lisp:1.5 cell-cultures/cl-ftgl/cl-ftgl.lisp:1.6 --- cell-cultures/cl-ftgl/cl-ftgl.lisp:1.5 Thu Oct 28 02:09:16 2004 +++ cell-cultures/cl-ftgl/cl-ftgl.lisp Wed Nov 17 13:31:36 2004 @@ -20,7 +20,7 @@ ;;; FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS ;;; IN THE SOFTWARE. -;;; $Header: /project/cells/cvsroot/cell-cultures/cl-ftgl/cl-ftgl.lisp,v 1.5 2004/10/28 00:09:16 ktilton Exp $ +;;; $Header: /project/cells/cvsroot/cell-cultures/cl-ftgl/cl-ftgl.lisp,v 1.6 2004/11/17 12:31:36 ktilton Exp $ (defpackage #:cl-ftgl (:nicknames #:ftgl) @@ -112,7 +112,18 @@ ;; FOREIGN FUNCTION INTERFACE ;; ---------------------------------------------------------------------------- -(defun-ffx :unsigned-byte "ftgl" "fgcSetFaceSize" (:void *f :int size :int res)) + +;; (defun-ffx :unsigned-byte "ftgl" "fgcSetFaceSize" (:void *f :int size :int res)) + +(PROGN (UFFI:DEF-FUNCTION ("fgcSetFaceSize" FGCSETFACESIZE) + ((*F (* :VOID)) (SIZE :INT) (RES :INT)) :RETURNING :UNSIGNED-BYTE + :MODULE "ftgl") + (DEFUN FGC-SET-FACE-SIZE (*F SIZE RES) + (LET ( (c-SIZE (COERCE SIZE 'INTEGER)) (c-RES (COERCE RES 'INTEGER))) + (print (list `(FGC-SET-FACE-SIZE ,*f ,c-size ,c-res))) + (PROG1 (FGCSETFACESIZE *F c-SIZE c-RES)))) + (EVAL-WHEN (COMPILE EVAL LOAD) (EXPORT '(FGCSETFACESIZE FGC-SET-FACE-SIZE)))) + (defun-ffx :int "ftgl" "fgcCharTexture" (:void *f :int charCode)) (defun-ffx :float "ftgl" "fgcAscender" (:void *f)) (defun-ffx :float "ftgl" "fgcDescender" (:void *f))

1 0

[cells-cvs] CVS update: cell-cultures/cells/defpackage.lisp
by Kenny Tilton 17 Nov '04

17 Nov '04

Update of /project/cells/cvsroot/cell-cultures/cells In directory common-lisp.net:/tmp/cvs-serv19757/cells Modified Files: defpackage.lisp Log Message: Patches to support cells-gtk; ongoing glut refinements cello osx port Date: Wed Nov 17 13:31:32 2004 Author: ktilton Index: cell-cultures/cells/defpackage.lisp diff -u cell-cultures/cells/defpackage.lisp:1.6 cell-cultures/cells/defpackage.lisp:1.7 --- cell-cultures/cells/defpackage.lisp:1.6 Thu Oct 28 02:09:13 2004 +++ cell-cultures/cells/defpackage.lisp Wed Nov 17 13:31:31 2004 @@ -36,7 +36,7 @@ (cerror "Provide a package name." "Don't know how to find the MOP package for this Lisp.") - #:class-precedence-list #:class-slots #:slot-definition-name + #:class-precedence-list #:class-slots #-clisp #:slot-definition-name ) #+clisp (:import-from #:clos #:class-slots #:class-precedence-list) #+cmu (:import-from #:pcl #:class-precedence-list #:class-slots

1 0

[cells-cvs] CVS update: cell-cultures/cells/cells-test/boiler-examples.lisp
by Kenny Tilton 17 Nov '04

17 Nov '04

Update of /project/cells/cvsroot/cell-cultures/cells/cells-test In directory common-lisp.net:/tmp/cvs-serv19757/cells/cells-test Modified Files: boiler-examples.lisp Log Message: Patches to support cells-gtk; ongoing glut refinements cello osx port Date: Wed Nov 17 13:31:28 2004 Author: ktilton Index: cell-cultures/cells/cells-test/boiler-examples.lisp diff -u cell-cultures/cells/cells-test/boiler-examples.lisp:1.1 cell-cultures/cells/cells-test/boiler-examples.lisp:1.2 --- cell-cultures/cells/cells-test/boiler-examples.lisp:1.1 Sat Jun 26 20:38:37 2004 +++ cell-cultures/cells/cells-test/boiler-examples.lisp Wed Nov 17 13:31:28 2004 @@ -207,6 +207,8 @@ ; status get kicked off. ; + + (defun boiler-3 (&key (sensitivity-enabled t)) (declare (ignorable sensitivity-enabled)) (cell-reset)

1 0

[cells-cvs] CVS update: cell-cultures/cello/application.lisp cell-cultures/cello/image.lisp
by Kenny Tilton 17 Nov '04

17 Nov '04

Update of /project/cells/cvsroot/cell-cultures/cello In directory common-lisp.net:/tmp/cvs-serv19757/cello Modified Files: application.lisp image.lisp Log Message: Patches to support cells-gtk; ongoing glut refinements cello osx port Date: Wed Nov 17 13:31:24 2004 Author: ktilton Index: cell-cultures/cello/application.lisp diff -u cell-cultures/cello/application.lisp:1.1 cell-cultures/cello/application.lisp:1.2 --- cell-cultures/cello/application.lisp:1.1 Sat Jun 26 20:38:33 2004 +++ cell-cultures/cello/application.lisp Wed Nov 17 13:31:24 2004 @@ -91,8 +91,3 @@ (defun fm-find-system (md) (upper md mg-system)) - -(defmodel glutwindow (ix-family) - ((glutw :cell nil :initarg :glutw :initform nil :accessor glutw :type integer) - )) - Index: cell-cultures/cello/image.lisp diff -u cell-cultures/cello/image.lisp:1.6 cell-cultures/cello/image.lisp:1.7 --- cell-cultures/cello/image.lisp:1.6 Thu Oct 28 02:08:56 2004 +++ cell-cultures/cello/image.lisp Wed Nov 17 13:31:24 2004 @@ -62,7 +62,7 @@ :initform (c-formula (:lazy :until-asked) (assert *w*) (assert (not *ogl-listing-p*)) - (ogl-dsp-list-prep self) + (time (progn (ogl-dsp-list-prep self) (when (every 'dsp-list (kids self)) (let ((display-list-name (or .cache (gl-gen-lists 1))) (*ogl-shared-resource-tender* @@ -77,7 +77,7 @@ (trc nil "finished display list" display-list-name self) (gl-end-list) (setf (redisplayp (ogl-node-window self)) t) - display-list-name)))) + display-list-name)))))) (gl-name :initarg :gl-name :initform nil :accessor gl-name) (renderer :initarg :renderer :initform nil :accessor renderer)))

1 0