From ktilton at common-lisp.net Fri Nov 12 22:47:25 2004 From: ktilton at common-lisp.net (Kenny Tilton) Date: Fri, 12 Nov 2004 23:47:25 +0100 Subject: [cells-cvs] CVS update: cell-cultures/utils-kt/utils-kt.asd Message-ID: Update of /project/cells/cvsroot/cell-cultures/utils-kt In directory common-lisp.net:/tmp/cvs-serv2917/utils-kt Added Files: utils-kt.asd Log Message: Re-port to Lispworks/win32 Date: Fri Nov 12 23:47:24 2004 Author: ktilton From ktilton at common-lisp.net Fri Nov 12 23:26:55 2004 From: ktilton at common-lisp.net (Kenny Tilton) Date: Sat, 13 Nov 2004 00:26:55 +0100 Subject: [cells-cvs] CVS update: cell-cultures/asdf-registry/create-symlinks.sh Message-ID: Update of /project/cells/cvsroot/cell-cultures/asdf-registry In directory common-lisp.net:/tmp/cvs-serv5046/asdf-registry Modified Files: create-symlinks.sh Log Message: Re-port to Lispworks/win32 Date: Sat Nov 13 00:26:54 2004 Author: ktilton Index: cell-cultures/asdf-registry/create-symlinks.sh diff -u cell-cultures/asdf-registry/create-symlinks.sh:1.2 cell-cultures/asdf-registry/create-symlinks.sh:1.3 --- cell-cultures/asdf-registry/create-symlinks.sh:1.2 Mon Jul 5 21:26:44 2004 +++ cell-cultures/asdf-registry/create-symlinks.sh Sat Nov 13 00:26:54 2004 @@ -1,65 +1,32 @@ -rm -f asdf-aclproj.asd; -if [ -d ../asdf-aclproj ]; then - echo Adding asdf-aclproj.asd; - ln -s ../asdf-aclproj/asdf-aclproj.asd asdf-aclproj.asd; -fi - -rm -f cello.asd cellocore.asd; -if [ -d ../cello ]; then - echo Adding cello.asd; - ln -s ../cello/cello.asd cello.asd; - - echo Adding cellocore.asd; - ln -s ../cello/cellocore.asd cellocore.asd; -fi - -rm -f cellodemo.asd; -if [ -d ../cellodemo ]; then - echo Adding cellodemo.asd; - ln -s ../cellodemo/cellodemo.asd cellodemo.asd; -fi - -rm -f cells.asd cells-test.asd; -if [ -d ../cells ]; then - echo Adding cells.asd; - ln -s ../cells/cells.asd cells.asd; - - echo Adding cells-test.asd; - ln -s ../cells/cells-test/cells-test.asd cells-test.asd; -fi - -rm -f celtic.asd; -if [ -d ../celtic ]; then - echo Adding celtic.asd; - ln -s ../celtic/celtic.asd celtic.asd; -fi - -rm -f clyde.asd; -if [ -d ../clyde ]; then - echo Adding clyde.asd; - ln -s ../clyde/clyde.asd clyde.asd; -fi - -rm -f cl-magick.asd; -if [ -d ../cl-magick ]; then - echo Adding cl-magick.asd; - ln -s ../cl-magick/cl-magick.asd cl-magick.asd; -fi - -rm -f cl-openal.asd; -if [ -d ../cl-openal ]; then - echo Adding cl-openal.asd; - ln -s ../cl-openal/cl-openal.asd cl-openal.asd; -fi - -rm -f cl-opengl.asd; -if [ -d ../cl-opengl ]; then - echo Adding cl-opengl.asd; - ln -s ../cl-opengl/cl-opengl.asd cl-opengl.asd; -fi - -rm -f ffi-extender.asd; -if [ -d ../ffi-extender ]; then - echo Adding ffi-extender.asd; - ln -s ../ffi-extender/ffi-extender.asd ffi-extender.asd; -fi +# Bash doesn't do macros, but how about a function or two? +setlink() { + if [ -f $1 ]; then + ln -s $1 . + else + echo ASDF definition file $1 appears to be missing + fi +} + +add() { + if [ -d ../$1 ]; then + echo Adding $1 + setlink ../$1/$1.asd + else + echo Subproject $1 appears to be missing + fi +} + + +# Projects that follow the general pattern... +PROJECTS="utils-kt asdf-aclproj cello cellodemo cells celtic clyde cl-magick cl-openal cl-opengl ffi-extender" +# ..and projects that don't. +FILES="../cello/cellocore.asd ../cells/cells-test/cells-test.asd" + + +for project in $PROJECTS; do + add $project +done + +for file in $FILES; do + setlink $file +done From ktilton at common-lisp.net Wed Nov 17 12:31:24 2004 From: ktilton at common-lisp.net (Kenny Tilton) Date: Wed, 17 Nov 2004 13:31:24 +0100 Subject: [cells-cvs] CVS update: cell-cultures/cell-cultures-user/config/cell-cultures-config.lisp Message-ID: Update of /project/cells/cvsroot/cell-cultures/cell-cultures-user/config In directory common-lisp.net:/tmp/cvs-serv19757/cell-cultures-user/config Modified Files: cell-cultures-config.lisp Log Message: Patches to support cells-gtk; ongoing glut refinements cello osx port Date: Wed Nov 17 13:31:23 2004 Author: ktilton Index: cell-cultures/cell-cultures-user/config/cell-cultures-config.lisp diff -u cell-cultures/cell-cultures-user/config/cell-cultures-config.lisp:1.1 cell-cultures/cell-cultures-user/config/cell-cultures-config.lisp:1.2 --- cell-cultures/cell-cultures-user/config/cell-cultures-config.lisp:1.1 Thu Oct 28 02:26:00 2004 +++ cell-cultures/cell-cultures-user/config/cell-cultures-config.lisp Wed Nov 17 13:31:22 2004 @@ -4,7 +4,7 @@ (defparameter *dev-init* (make-pathname #+lispworks :host #-lispworks :device "c" - :directory '(:absolute "dvl")) + :directory '(:absolute "DEVL")) "Local site of dev tools such as ASDF and UFFI") #-asdf From ktilton at common-lisp.net Wed Nov 17 12:31:27 2004 From: ktilton at common-lisp.net (Kenny Tilton) Date: Wed, 17 Nov 2004 13:31:27 +0100 Subject: [cells-cvs] CVS update: cell-cultures/cello/application.lisp cell-cultures/cello/image.lisp Message-ID: 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))) From ktilton at common-lisp.net Wed Nov 17 12:31:31 2004 From: ktilton at common-lisp.net (Kenny Tilton) Date: Wed, 17 Nov 2004 13:31:31 +0100 Subject: [cells-cvs] CVS update: cell-cultures/cells/cells-test/boiler-examples.lisp Message-ID: 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) From ktilton at common-lisp.net Wed Nov 17 12:31:36 2004 From: ktilton at common-lisp.net (Kenny Tilton) Date: Wed, 17 Nov 2004 13:31:36 +0100 Subject: [cells-cvs] CVS update: cell-cultures/cells/defpackage.lisp Message-ID: 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 From ktilton at common-lisp.net Wed Nov 17 12:31:43 2004 From: ktilton at common-lisp.net (Kenny Tilton) Date: Wed, 17 Nov 2004 13:31:43 +0100 Subject: [cells-cvs] CVS update: cell-cultures/cl-ftgl/cl-ftgl.lisp Message-ID: 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)) From ktilton at common-lisp.net Wed Nov 17 12:31:45 2004 From: ktilton at common-lisp.net (Kenny Tilton) Date: Wed, 17 Nov 2004 13:31:45 +0100 Subject: [cells-cvs] CVS update: cell-cultures/cl-magick/mgk-test.lisp Message-ID: 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)) From ktilton at common-lisp.net Wed Nov 17 12:31:51 2004 From: ktilton at common-lisp.net (Kenny Tilton) Date: Wed, 17 Nov 2004 13:31:51 +0100 Subject: [cells-cvs] CVS update: cell-cultures/cl-opengl/cl-opengl.lisp cell-cultures/cl-opengl/glut-functions.lisp Message-ID: 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)) From ktilton at common-lisp.net Wed Nov 17 12:31:59 2004 From: ktilton at common-lisp.net (Kenny Tilton) Date: Wed, 17 Nov 2004 13:31:59 +0100 Subject: [cells-cvs] CVS update: cell-cultures/ffi-extender/arrays.lisp cell-cultures/ffi-extender/callbacks.lisp Message-ID: 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)))) , at 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 From ktilton at common-lisp.net Wed Nov 17 12:32:09 2004 From: ktilton at common-lisp.net (Kenny Tilton) Date: Wed, 17 Nov 2004 13:32:09 +0100 Subject: [cells-cvs] CVS update: cell-cultures/utils-kt/defpackage.lisp cell-cultures/utils-kt/detritus.lisp Message-ID: 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) From ktilton at common-lisp.net Wed Nov 17 22:50:22 2004 From: ktilton at common-lisp.net (Kenny Tilton) Date: Wed, 17 Nov 2004 23:50:22 +0100 Subject: [cells-cvs] CVS update: ffi-extender/arrays.lisp ffi-extender/build.lisp ffi-extender/callbacks.lisp ffi-extender/definers.lisp ffi-extender/ffx.asd Message-ID: 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 From ktilton at common-lisp.net Wed Nov 17 22:54:45 2004 From: ktilton at common-lisp.net (Kenny Tilton) Date: Wed, 17 Nov 2004 23:54:45 +0100 Subject: [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 Message-ID: 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 From ktilton at common-lisp.net Thu Nov 18 11:31:20 2004 From: ktilton at common-lisp.net (Kenny Tilton) Date: Thu, 18 Nov 2004 12:31:20 +0100 Subject: [cells-cvs] CVS update: Directory change: cell-cultures/cells-gtk-root Message-ID: Update of /project/cells/cvsroot/cell-cultures/cells-gtk-root In directory common-lisp.net:/tmp/cvs-serv4130/cells-gtk-root Log Message: Directory /project/cells/cvsroot/cell-cultures/cells-gtk-root added to the repository Date: Thu Nov 18 12:31:19 2004 Author: ktilton New directory cell-cultures/cells-gtk-root added From ktilton at common-lisp.net Thu Nov 18 11:31:31 2004 From: ktilton at common-lisp.net (Kenny Tilton) Date: Thu, 18 Nov 2004 12:31:31 +0100 Subject: [cells-cvs] CVS update: Directory change: cell-cultures/cells-gtk-root/cells-gtk Message-ID: Update of /project/cells/cvsroot/cell-cultures/cells-gtk-root/cells-gtk In directory common-lisp.net:/tmp/cvs-serv4211/cells-gtk Log Message: Directory /project/cells/cvsroot/cell-cultures/cells-gtk-root/cells-gtk added to the repository Date: Thu Nov 18 12:31:30 2004 Author: ktilton New directory cell-cultures/cells-gtk-root/cells-gtk added From ktilton at common-lisp.net Thu Nov 18 11:31:34 2004 From: ktilton at common-lisp.net (Kenny Tilton) Date: Thu, 18 Nov 2004 12:31:34 +0100 Subject: [cells-cvs] CVS update: Directory change: cell-cultures/cells-gtk-root/gtk-ffi Message-ID: Update of /project/cells/cvsroot/cell-cultures/cells-gtk-root/gtk-ffi In directory common-lisp.net:/tmp/cvs-serv4211/gtk-ffi Log Message: Directory /project/cells/cvsroot/cell-cultures/cells-gtk-root/gtk-ffi added to the repository Date: Thu Nov 18 12:31:33 2004 Author: ktilton New directory cell-cultures/cells-gtk-root/gtk-ffi added From ktilton at common-lisp.net Thu Nov 18 11:31:36 2004 From: ktilton at common-lisp.net (Kenny Tilton) Date: Thu, 18 Nov 2004 12:31:36 +0100 Subject: [cells-cvs] CVS update: Directory change: cell-cultures/cells-gtk-root/test-images Message-ID: Update of /project/cells/cvsroot/cell-cultures/cells-gtk-root/test-images In directory common-lisp.net:/tmp/cvs-serv4211/test-images Log Message: Directory /project/cells/cvsroot/cell-cultures/cells-gtk-root/test-images added to the repository Date: Thu Nov 18 12:31:35 2004 Author: ktilton New directory cell-cultures/cells-gtk-root/test-images added From ktilton at common-lisp.net Thu Nov 18 11:31:49 2004 From: ktilton at common-lisp.net (Kenny Tilton) Date: Thu, 18 Nov 2004 12:31:49 +0100 Subject: [cells-cvs] CVS update: Directory change: cell-cultures/cells-gtk-root/cells-gtk/test-gtk Message-ID: Update of /project/cells/cvsroot/cell-cultures/cells-gtk-root/cells-gtk/test-gtk In directory common-lisp.net:/tmp/cvs-serv4259/test-gtk Log Message: Directory /project/cells/cvsroot/cell-cultures/cells-gtk-root/cells-gtk/test-gtk added to the repository Date: Thu Nov 18 12:31:49 2004 Author: ktilton New directory cell-cultures/cells-gtk-root/cells-gtk/test-gtk added From ktilton at common-lisp.net Thu Nov 18 11:52:55 2004 From: ktilton at common-lisp.net (Kenny Tilton) Date: Thu, 18 Nov 2004 12:52:55 +0100 Subject: [cells-cvs] CVS update: cell-cultures/cells-gtk-root/INSTALL.TXT cell-cultures/cells-gtk-root/asdf.lisp cell-cultures/cells-gtk-root/load.lisp Message-ID: Update of /project/cells/cvsroot/cell-cultures/cells-gtk-root In directory common-lisp.net:/tmp/cvs-serv5204/cells-gtk-root Added Files: INSTALL.TXT asdf.lisp load.lisp Log Message: cleanup Date: Thu Nov 18 12:52:53 2004 Author: ktilton From ktilton at common-lisp.net Thu Nov 18 11:53:12 2004 From: ktilton at common-lisp.net (Kenny Tilton) Date: Thu, 18 Nov 2004 12:53:12 +0100 Subject: [cells-cvs] CVS update: cell-cultures/cells-gtk-root/cells-gtk/actions.lisp cell-cultures/cells-gtk-root/cells-gtk/addon.lisp cell-cultures/cells-gtk-root/cells-gtk/buttons.lisp cell-cultures/cells-gtk-root/cells-gtk/callback.lisp cell-cultures/cells-gtk-root/cells-gtk/cells-gtk.asd cell-cultures/cells-gtk-root/cells-gtk/cells-gtk.lisp cell-cultures/cells-gtk-root/cells-gtk/dialogs.lisp cell-cultures/cells-gtk-root/cells-gtk/display.lisp cell-cultures/cells-gtk-root/cells-gtk/entry.lisp cell-cultures/cells-gtk-root/cells-gtk/gtk-app.lisp cell-cultures/cells-gtk-root/cells-gtk/layout.lisp cell-cultures/cells-gtk-root/cells-gtk/menus.lisp cell-cultures/cells-gtk-root/cells-gtk/textview.lisp cell-cultures/cells-gtk-root/cells-gtk/tree-view.lisp cell-cultures/cells-gtk-root/cells-gtk/widgets.lisp Message-ID: Update of /project/cells/cvsroot/cell-cultures/cells-gtk-root/cells-gtk In directory common-lisp.net:/tmp/cvs-serv5204/cells-gtk-root/cells-gtk Added Files: actions.lisp addon.lisp buttons.lisp callback.lisp cells-gtk.asd cells-gtk.lisp dialogs.lisp display.lisp entry.lisp gtk-app.lisp layout.lisp menus.lisp textview.lisp tree-view.lisp widgets.lisp Log Message: cleanup Date: Thu Nov 18 12:52:56 2004 Author: ktilton From ktilton at common-lisp.net Thu Nov 18 11:53:25 2004 From: ktilton at common-lisp.net (Kenny Tilton) Date: Thu, 18 Nov 2004 12:53:25 +0100 Subject: [cells-cvs] CVS update: cell-cultures/cells-gtk-root/cells-gtk/test-gtk/test-addon.lisp cell-cultures/cells-gtk-root/cells-gtk/test-gtk/test-buttons.lisp cell-cultures/cells-gtk-root/cells-gtk/test-gtk/test-dialogs.lisp cell-cultures/cells-gtk-root/cells-gtk/test-gtk/test-display.lisp cell-cultures/cells-gtk-root/cells-gtk/test-gtk/test-entry.lisp cell-cultures/cells-gtk-root/cells-gtk/test-gtk/test-gtk.asd cell-cultures/cells-gtk-root/cells-gtk/test-gtk/test-gtk.lisp cell-cultures/cells-gtk-root/cells-gtk/test-gtk/test-layout.lisp cell-cultures/cells-gtk-root/cells-gtk/test-gtk/test-menus.lisp cell-cultures/cells-gtk-root/cells-gtk/test-gtk/test-textview.lisp cell-cultures/cells-gtk-root/cells-gtk/test-gtk/test-tree-view.lisp Message-ID: Update of /project/cells/cvsroot/cell-cultures/cells-gtk-root/cells-gtk/test-gtk In directory common-lisp.net:/tmp/cvs-serv5204/cells-gtk-root/cells-gtk/test-gtk Added Files: test-addon.lisp test-buttons.lisp test-dialogs.lisp test-display.lisp test-entry.lisp test-gtk.asd test-gtk.lisp test-layout.lisp test-menus.lisp test-textview.lisp test-tree-view.lisp Log Message: cleanup Date: Thu Nov 18 12:53:12 2004 Author: ktilton From ktilton at common-lisp.net Thu Nov 18 11:53:33 2004 From: ktilton at common-lisp.net (Kenny Tilton) Date: Thu, 18 Nov 2004 12:53:33 +0100 Subject: [cells-cvs] CVS update: cell-cultures/cells-gtk-root/gtk-ffi/gtk-ffi.asd cell-cultures/cells-gtk-root/gtk-ffi/gtk-ffi.lisp Message-ID: Update of /project/cells/cvsroot/cell-cultures/cells-gtk-root/gtk-ffi In directory common-lisp.net:/tmp/cvs-serv5204/cells-gtk-root/gtk-ffi Added Files: gtk-ffi.asd gtk-ffi.lisp Log Message: cleanup Date: Thu Nov 18 12:53:26 2004 Author: ktilton From ktilton at common-lisp.net Thu Nov 18 11:53:41 2004 From: ktilton at common-lisp.net (Kenny Tilton) Date: Thu, 18 Nov 2004 12:53:41 +0100 Subject: [cells-cvs] CVS update: cell-cultures/cells-gtk-root/test-images/small.png cell-cultures/cells-gtk-root/test-images/splash.png cell-cultures/cells-gtk-root/test-images/tst.gif Message-ID: Update of /project/cells/cvsroot/cell-cultures/cells-gtk-root/test-images In directory common-lisp.net:/tmp/cvs-serv5204/cells-gtk-root/test-images Added Files: small.png splash.png tst.gif Log Message: cleanup Date: Thu Nov 18 12:53:34 2004 Author: ktilton