April 2005 - cells-cvs@lists.common-lisp.net

[cells-cvs] CVS update: cell-cultures/cell-cultures-user/config/cell-cultures-config.lisp cell-cultures/cell-cultures-user/config/cl-ftgl-config.lisp cell-cultures/cell-cultures-user/config/cl-magick-config.lisp cell-cultures/cell-cultures-user/config/cl-openal-config.lisp
by ktilton＠common-lisp.net 08 Apr '05

08 Apr '05

Update of /project/cells/cvsroot/cell-cultures/cell-cultures-user/config In directory common-lisp.net:/tmp/cvs-serv12518/cell-cultures-user/config Removed Files: cell-cultures-config.lisp cl-ftgl-config.lisp cl-magick-config.lisp cl-openal-config.lisp Log Message: Cleanup excessive config complexity of Cello Date: Fri Apr 8 11:01:40 2005 Author: ktilton

1 0

[cells-cvs] CVS update: Directory change: cell-cultures/cl-magick/Templates
by ktilton＠common-lisp.net 06 Apr '05

06 Apr '05

Update of /project/cells/cvsroot/cell-cultures/cl-magick/Templates In directory common-lisp.net:/tmp/cvs-serv19270/Templates Log Message: Directory /project/cells/cvsroot/cell-cultures/cl-magick/Templates added to the repository Date: Thu Apr 7 00:10:31 2005 Author: ktilton New directory cell-cultures/cl-magick/Templates added

1 0

[cells-cvs] CVS update: cell-cultures/cell-cultures-user/graphics/templates/metal.gif
by ktilton＠common-lisp.net 06 Apr '05

06 Apr '05

Update of /project/cells/cvsroot/cell-cultures/cell-cultures-user/graphics/templates In directory common-lisp.net:/tmp/cvs-serv19227/cell-cultures-user/graphics/templates Removed Files: metal.gif Log Message: Cleanup excessive config complexity of Cello Date: Thu Apr 7 00:07:17 2005 Author: ktilton

1 0

[cells-cvs] CVS update: cell-cultures/cell-cultures-user/config/cell-cultures-config.lisp cell-cultures/cell-cultures-user/config/cl-opengl-config.lisp
by ktilton＠common-lisp.net 06 Apr '05

06 Apr '05

Update of /project/cells/cvsroot/cell-cultures/cell-cultures-user/config In directory common-lisp.net:/tmp/cvs-serv16866/cell-cultures-user/config Modified Files: cell-cultures-config.lisp Removed Files: cl-opengl-config.lisp Log Message: Apply Andras SImon's patches from Apr 2005 to get things working on CMU and ACL/Linux Date: Wed Apr 6 23:37:15 2005 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.3 cell-cultures/cell-cultures-user/config/cell-cultures-config.lisp:1.4 --- cell-cultures/cell-cultures-user/config/cell-cultures-config.lisp:1.3 Sun Dec 5 05:49:56 2004 +++ cell-cultures/cell-cultures-user/config/cell-cultures-config.lisp Wed Apr 6 23:37:15 2005 @@ -4,7 +4,7 @@ (defparameter *dev-init* (make-pathname #+lispworks :host #-lispworks :device "c" - :directory '(:absolute "DEVL")) + :directory '(:absolute "00")) "Local site of dev tools such as ASDF and UFFI") #-asdf

1 0

[cells-cvs] CVS update: cell-cultures/hello-c/arrays.lisp cell-cultures/hello-c/callbacks.lisp cell-cultures/hello-c/hello-c.lpr
by ktilton＠common-lisp.net 06 Apr '05

06 Apr '05

Update of /project/cells/cvsroot/cell-cultures/hello-c In directory common-lisp.net:/tmp/cvs-serv4568/hello-c Modified Files: arrays.lisp callbacks.lisp hello-c.lpr Log Message: Apply Andras SImon's patches from Apr 2005 to get things working on CMU and ACL/Linux Date: Wed Apr 6 20:06:22 2005 Author: ktilton Index: cell-cultures/hello-c/arrays.lisp diff -u cell-cultures/hello-c/arrays.lisp:1.1 cell-cultures/hello-c/arrays.lisp:1.2 --- cell-cultures/hello-c/arrays.lisp:1.1 Tue Dec 14 04:58:48 2004 +++ cell-cultures/hello-c/arrays.lisp Wed Apr 6 20:06:22 2005 @@ -38,6 +38,9 @@ #+check (fgn-dump) +(defun ffx-reset (&optional force) + (hic-reset force)) + (defun hic-reset (&optional force) (if force (progn @@ -184,7 +187,7 @@ `(deref-array ,pa '(:array (* :void)) ,n)) (eval-when (compile load eval) - (export '( + (export '(ffx-reset ff-elt ff-list eltf eltd elti fgn-pa with-ff-array-elements Index: cell-cultures/hello-c/callbacks.lisp diff -u cell-cultures/hello-c/callbacks.lisp:1.1 cell-cultures/hello-c/callbacks.lisp:1.2 --- cell-cultures/hello-c/callbacks.lisp:1.1 Tue Dec 14 04:58:48 2004 +++ cell-cultures/hello-c/callbacks.lisp Wed Apr 6 20:06:22 2005 @@ -35,7 +35,8 @@ (defmacro ff-defun-callable (call-convention result-type name args &body body) (declare (ignorable result-type)) - (let ((native-args (process-function-args args))) + (let ((native-args (when args ;; without this p-f-a returns '(:void) as if for declare + (process-function-args args)))) #+lispworks `(fli:define-foreign-callable (,(symbol-name name) :result-type ,result-type :calling-convention ,call-convention) Index: cell-cultures/hello-c/hello-c.lpr diff -u cell-cultures/hello-c/hello-c.lpr:1.1 cell-cultures/hello-c/hello-c.lpr:1.2 --- cell-cultures/hello-c/hello-c.lpr:1.1 Tue Dec 14 04:58:48 2004 +++ cell-cultures/hello-c/hello-c.lpr Wed Apr 6 20:06:22 2005 @@ -1,11 +1,10 @@ -;; -*- lisp-version: "6.2 [Windows] (Sep 3, 2004 12:04)"; common-graphics: "1.389.2.105.2.14"; -*- +;; -*- lisp-version: "7.0 [Windows] (Dec 28, 2004 17:34)"; cg: "1.54.2.17"; -*- -(in-package :common-graphics-user) +(in-package :cg-user) -(defpackage :hello-c (:export)) +(defpackage :HELLO-C) (define-project :name :hello-c - :application-type (intern "Standard EXE" (find-package :keyword)) :modules (list (make-instance 'module :name "package.lisp") (make-instance 'module :name "primitives.lisp") (make-instance 'module :name "objects.lisp") @@ -20,28 +19,20 @@ :projects nil :libraries nil :distributed-files nil + :internally-loaded-files nil :project-package-name :hello-c :main-form nil :compilation-unit t :verbose nil - :runtime-modules '(:cg :drag-and-drop :lisp-widget - :multi-picture-button :common-control - :edit-in-place :outline :grid :group-box - :header-control :progress-indicator-control - :common-status-bar :tab-control :trackbar-control - :up-down-control :dde :mci :carets :hotspots - :menu-selection :choose-list :directory-list - :color-dialog :find-dialog :font-dialog - :string-dialog :yes-no-list-dialog - :list-view-control :rich-edit :drawable :ole :www - :aclwin302) + :runtime-modules nil :splash-file-module (make-instance 'build-module :name "") :icon-file-module (make-instance 'build-module :name "") - :include-flags '(:compiler :top-level :local-name-info) + :include-flags '(:local-name-info) :build-flags '(:allow-debug :purify) :autoload-warning t :full-recompile-for-runtime-conditionalizations nil :default-command-line-arguments "+cx +t \"Initializing\"" + :additional-build-lisp-image-arguments '(:read-init-files nil) :old-space-size 256000 :new-space-size 6144 :runtime-build-option :standard

1 0