cells-cvs

cells-cvs@common-lisp.net

721 discussions

[cells-cvs] CVS update: cell-cultures/cells/cells.lpr cell-cultures/cells/defpackage.lisp cell-cultures/cells/integrity.lisp cell-cultures/cells/md-slot-value.lisp cell-cultures/cells/test.lisp
by ktilton＠common-lisp.net 08 Apr '05

08 Apr '05

Update of /project/cells/cvsroot/cell-cultures/cells In directory common-lisp.net:/tmp/cvs-serv12564/cells Modified Files: cells.lpr defpackage.lisp integrity.lisp md-slot-value.lisp test.lisp Log Message: Cello cleanup, but mostly "removing" ffi-extender, which really lives on as the "hello-c" package Date: Fri Apr 8 11:11:13 2005 Author: ktilton Index: cell-cultures/cells/cells.lpr diff -u cell-cultures/cells/cells.lpr:1.2 cell-cultures/cells/cells.lpr:1.3 --- cell-cultures/cells/cells.lpr:1.2 Sun Jun 27 01:36:49 2004 +++ cell-cultures/cells/cells.lpr Fri Apr 8 11:11:12 2005 @@ -1,11 +1,10 @@ -;; -*- lisp-version: "6.2 [Windows] (May 12, 2004 22:13)"; 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 :cells (:export)) +(defpackage :CELLS) (define-project :name :cells - :application-type (intern "Standard EXE" (find-package :keyword)) :modules (list (make-instance 'module :name "defpackage.lisp") (make-instance 'module :name "cells.lisp") (make-instance 'module :name "cell-types.lisp") @@ -30,28 +29,20 @@ "../utils-kt/utils-kt")) :libraries nil :distributed-files nil + :internally-loaded-files nil :project-package-name :cells :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 Index: cell-cultures/cells/defpackage.lisp diff -u cell-cultures/cells/defpackage.lisp:1.7 cell-cultures/cells/defpackage.lisp:1.8 --- cell-cultures/cells/defpackage.lisp:1.7 Wed Nov 17 13:31:31 2004 +++ cell-cultures/cells/defpackage.lisp Fri Apr 8 11:11:12 2005 @@ -59,3 +59,4 @@ #+allegro (:shadowing-import-from #:excl #:fasl-write #:fasl-read #:gc) ) + Index: cell-cultures/cells/integrity.lisp diff -u cell-cultures/cells/integrity.lisp:1.5 cell-cultures/cells/integrity.lisp:1.6 --- cell-cultures/cells/integrity.lisp:1.5 Mon Dec 6 21:26:06 2004 +++ cell-cultures/cells/integrity.lisp Fri Apr 8 11:11:12 2005 @@ -61,7 +61,7 @@ (defun ufb-add (opcode continuation) (fifo-add (ufb-queue opcode) continuation)) -(defconstant-once *ufb-opcodes* '(:user-notify :output :setf :makunbound :finalize)) +(defconstant *ufb-opcodes* '(:user-notify :output :setf :makunbound :finalize)) (define-condition c-opcode-deferred (c-enabling) ((defer-info :initarg :defer-info :reader defer-info)) @@ -76,6 +76,8 @@ (declare (ignorable debug-key)) (assert (or (null opcode) (member opcode *ufb-opcodes*))) (trc nil "call-with-integrity entry *unfinished-business*" *unfinished-business*) + (when *stop* + (return-from call-with-integrity)) (if *unfinished-business* (if defer-info (progn @@ -111,6 +113,7 @@ (tagbody notify-users ;--- notify users ------------------------------ + (when *stop* (return-from finish-business)) (let ((user-q-item (fifo-pop (ufb-queue :user-notify)))) (when user-q-item (destructuring-bind (defer-info . task) user-q-item @@ -122,6 +125,7 @@ (setf some-output nil) next-output + (when *stop* (return-from finish-business)) ;--- do c-output-slot-name ----------------------- (setf task (cdr (fifo-pop (ufb-queue :output)))) Index: cell-cultures/cells/md-slot-value.lisp diff -u cell-cultures/cells/md-slot-value.lisp:1.5 cell-cultures/cells/md-slot-value.lisp:1.6 --- cell-cultures/cells/md-slot-value.lisp:1.5 Sun Dec 5 05:50:32 2004 +++ cell-cultures/cells/md-slot-value.lisp Fri Apr 8 11:11:12 2005 @@ -60,7 +60,7 @@ (some (lambda (used) (c-value-ensure-current used) (when (and (c-changed used) (> (c-pulse used)(c-pulse c))) - (trc nil "used changed" used :asker c + #+chya (trc nil "used changed" used :asker c :inpulse ip :pulse *data-pulse-id*) t)) (c-useds c)))) @@ -68,33 +68,32 @@ (defun c-calculate-and-set (c) (flet ((body () (when (c-stopped) - (princ #\.) - (return-from c-calculate-and-set)) + (princ #\.) + (return-from c-calculate-and-set)) - (when (find c *c-calculators*) ;; circularity - (trc "c-calculate-and-set breaking on circularity" c) - (c-break ;; break is problem when testing cells on some CLs - "cell ~a midst askers: ~a" c *c-calculators*)) + (when (find c *c-calculators*) ;; circularity + (trc "c-calculate-and-set breaking on circularity" c) + (c-break ;; break is problem when testing cells on some CLs + "cell ~a midst askers: ~a" c *c-calculators*)) - (count-it :c-calculate-and-set) - ;;; (count-it :c-calculate-and-set (type-of (c-model c))) ;; (c-slot-name c)) + (count-it :c-calculate-and-set) + ;;; (count-it :c-calculate-and-set (type-of (c-model c))) ;; (c-slot-name c)) - (cd-usage-clear-all c) + (cd-usage-clear-all c) - (let ((raw-value - (progn - (let ((*c-calculators* (cons c *c-calculators*))) - (trc nil "c-calculate-and-set> new *c-calculators*:" - *c-calculators*) - (c-assert (c-model c)) - (funcall (cr-rule c) c))))) - (progn ;; unless (cmdead c) ;; eg, rule includes (nsib), then parent decides (c-model c) is no more - (when (and *c-debug* (typep raw-value 'cell)) - (c-break "new value for cell ~s is itself a cell: ~s. probably nested (c? ... (c? ))" - c raw-value)) + (let ((raw-value + (progn + (let ((*c-calculators* (cons c *c-calculators*))) + (trc nil "c-calculate-and-set> new *c-calculators*:" + *c-calculators*) + (c-assert (c-model c)) + (funcall (cr-rule c) c))))) + (when (and *c-debug* (typep raw-value 'cell)) + (c-break "new value for cell ~s is itself a cell: ~s. probably nested (c? ... (c? ))" + c raw-value)) - (c-unlink-unused c) - (md-slot-value-assume c raw-value))))) + (c-unlink-unused c) + (md-slot-value-assume c raw-value)))) (if nil ;; *dbg* (ukt::wtrc (0 100 "calcnset" c) (body))(body)))) @@ -165,12 +164,10 @@ (defmethod md-slot-value-assume (c raw-value) (assert c) - (trc nil "md-slot-value-assume entry:" c raw-value) (bif (c-pos (position c *causation*)) (bif (cyclic-pos (position-if 'c-cyclicp *causation* :end c-pos)) - (progn ;; let ((cc (nth cyclic-pos *causation*))) + (progn (c-pulse-update c :cyclicity-0) - (trc nil "!!!!!!!! cyclicity handled" c cc) (return-from md-slot-value-assume raw-value)) (c-break "md-slot-value-assume looping ~a ~a" c *causation*))) Index: cell-cultures/cells/test.lisp diff -u cell-cultures/cells/test.lisp:1.1 cell-cultures/cells/test.lisp:1.2 --- cell-cultures/cells/test.lisp:1.1 Sat Jun 26 20:38:36 2004 +++ cell-cultures/cells/test.lisp Fri Apr 8 11:11:12 2005 @@ -36,6 +36,9 @@ (defparameter *cell-tests* nil) +#+go +(test-cells) + (defun test-cells () (loop for test in (reverse *cell-tests*) do (cell-test-init test)

1 0

[cells-cvs] CVS update: cell-cultures/cells/cells-test/cells-test.lpr cell-cultures/cells/cells-test/test.lisp
by ktilton＠common-lisp.net 08 Apr '05

08 Apr '05

Update of /project/cells/cvsroot/cell-cultures/cells/cells-test In directory common-lisp.net:/tmp/cvs-serv12564/cells/cells-test Modified Files: cells-test.lpr test.lisp Log Message: Cello cleanup, but mostly "removing" ffi-extender, which really lives on as the "hello-c" package Date: Fri Apr 8 11:11:11 2005 Author: ktilton Index: cell-cultures/cells/cells-test/cells-test.lpr diff -u cell-cultures/cells/cells-test/cells-test.lpr:1.1 cell-cultures/cells/cells-test/cells-test.lpr:1.2 --- cell-cultures/cells/cells-test/cells-test.lpr:1.1 Sun Jul 4 20:59:42 2004 +++ cell-cultures/cells/cells-test/cells-test.lpr Fri Apr 8 11:11:08 2005 @@ -1,11 +1,10 @@ -;; -*- lisp-version: "6.2 [Windows] (May 12, 2004 22:13)"; common-graphics: "1.389.2.105.2.14"; -*- +;; -*- lisp-version: "7.0 [Windows] (Apr 6, 2005 17:03)"; cg: "1.54.2.17"; -*- -(in-package :common-graphics-user) +(in-package :cg-user) -(defpackage :cells (:export)) +(defpackage :CELLS) (define-project :name :cells-test - :application-type (intern "Standard EXE" (find-package :keyword)) :modules (list (make-instance 'module :name "test.lisp") (make-instance 'module :name "hello-world.lisp") (make-instance 'module :name @@ -22,28 +21,20 @@ :projects (list (make-instance 'project-module :name "..\\cells")) :libraries nil :distributed-files nil + :internally-loaded-files nil :project-package-name :cells :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 Index: cell-cultures/cells/cells-test/test.lisp diff -u cell-cultures/cells/cells-test/test.lisp:1.3 cell-cultures/cells/cells-test/test.lisp:1.4 --- cell-cultures/cells/cells-test/test.lisp:1.3 Thu Oct 28 02:09:11 2004 +++ cell-cultures/cells/cells-test/test.lisp Fri Apr 8 11:11:08 2005 @@ -80,16 +80,16 @@ (cell-reset) ;(hello-world) ;; non-assertive (cv-test-engine) -;;; (cv-test-person) -;;; ;; should fail: (df-test nil) -;;; (df-test t) -;;; (cv-test-family) -;;; (cv-family-values) -;;; (cv-kid-slotting) -;;; (boiler-1) -;;; (boiler-2) -;;; (boiler-3) ;; non-assertive -;;; (boiler-4) ;; non-assertive + ;;; (cv-test-person) + ;;; ;; should fail: (df-test nil) + ;;; (df-test t) + ;;; (cv-test-family) + ;;; (cv-family-values) + ;;; (cv-kid-slotting) + ;;; (boiler-1) + ;;; (boiler-2) + ;;; (boiler-3) ;; non-assertive + ;;; (boiler-4) ;; non-assertive )) (defun dft ()

1 0

[cells-cvs] CVS update: cell-cultures/cello/ix-styled.lisp cell-cultures/cello/window-callbacks.lisp cell-cultures/cello/window.lisp cell-cultures/cello/wm-mouse.lisp
by ktilton＠common-lisp.net 08 Apr '05

08 Apr '05

Update of /project/cells/cvsroot/cell-cultures/cello In directory common-lisp.net:/tmp/cvs-serv12564/cello Modified Files: ix-styled.lisp window-callbacks.lisp window.lisp wm-mouse.lisp Log Message: Cello cleanup, but mostly "removing" ffi-extender, which really lives on as the "hello-c" package Date: Fri Apr 8 11:11:07 2005 Author: ktilton Index: cell-cultures/cello/ix-styled.lisp diff -u cell-cultures/cello/ix-styled.lisp:1.4 cell-cultures/cello/ix-styled.lisp:1.5 --- cell-cultures/cello/ix-styled.lisp:1.4 Thu Oct 28 02:08:56 2004 +++ cell-cultures/cello/ix-styled.lisp Fri Apr 8 11:11:07 2005 @@ -118,7 +118,8 @@ (unless (ftgl::ftgl-disp-ready-p font) (setf (ftgl::ftgl-disp-ready-p font) t) (fgc-set-face-size (ftgl-ensure-ifont font) - (ftgl::ftgl-size font) (ftgl::ftgl-target-res font)))))) + (ftgl::ftgl-size font) (ftgl::ftgl-target-res font))) + (ix-string-width self (^display-text$))))) (defmethod make-style-font ((style gui-style-glut-stroke)) (make-font-glut-stroke Index: cell-cultures/cello/window-callbacks.lisp diff -u cell-cultures/cello/window-callbacks.lisp:1.4 cell-cultures/cello/window-callbacks.lisp:1.5 --- cell-cultures/cello/window-callbacks.lisp:1.4 Fri Oct 15 05:37:21 2004 +++ cell-cultures/cello/window-callbacks.lisp Fri Apr 8 11:11:07 2005 @@ -24,7 +24,9 @@ (defmacro def-window-callback (fn-name args &body body) `(ff-defun-callable :cdecl :void ,fn-name ,args - (window-callback ',fn-name (lambda ,args ,@body) ,@args))) + (window-callback ',fn-name + (lambda ,(mapcar 'car args) ,@body) + ,@(mapcar 'car args)))) (defun window-callback (fn-name callback &rest args) (declare (ignorable fn-name)) @@ -51,7 +53,7 @@ (w-post-redisplay *w*))) (apply callback args)))))) -(def-window-callback mgwkey (k x y) +(def-window-callback mgwkey ((k :int)(x :int)(y :int)) (trc "mgwkey" k x y (glutgetwindow)) (bwhen (w *w*) (trc nil "mgwkey" k x y w) @@ -62,7 +64,7 @@ (code-char (logand k #xff)) (mk-os-event mods (mkv2 x y)))))) -(def-window-callback mgw-special (k x y) +(def-window-callback mgw-special ((k :int)(x :int)(y :int)) (trc nil "mgwspecial" k x y (glutgetwindow)) (bwhen (w *w*) (trc nil "mgwspecial" k x y w) @@ -118,7 +120,7 @@ (setf (kids *sys*) (remove *w* (kids *sys*))) (trc nil "closed ~a" *w*))) -(def-window-callback mg-glut-reshape (x y) +(def-window-callback mg-glut-reshape ((x :int)(y :int)) (unless (or (null *w*)(zerop x) (zerop y)(self-sizing *w*)) (trc nil "mg-glut-reshape entry" (mg-window-current t) x y) (mg-window-reshape *w* x y))) Index: cell-cultures/cello/window.lisp diff -u cell-cultures/cello/window.lisp:1.5 cell-cultures/cello/window.lisp:1.6 --- cell-cultures/cello/window.lisp:1.5 Thu Oct 28 02:08:56 2004 +++ cell-cultures/cello/window.lisp Fri Apr 8 11:11:07 2005 @@ -79,7 +79,6 @@ :initform 0 :accessor gl-name-highest)) (:default-initargs - :px 0 :py 0 :kids (c? (the-kids (^content)) #+not (the-kids (mk-part :wstuff (ix-kid-sized) :px 0 :py (c? (bif (n (nsib)) Index: cell-cultures/cello/wm-mouse.lisp diff -u cell-cultures/cello/wm-mouse.lisp:1.1 cell-cultures/cello/wm-mouse.lisp:1.2 --- cell-cultures/cello/wm-mouse.lisp:1.1 Sat Jun 26 20:38:33 2004 +++ cell-cultures/cello/wm-mouse.lisp Fri Apr 8 11:11:07 2005 @@ -98,7 +98,7 @@ (defparameter *mouse-where* nil) -(def-window-callback mg-motion-callback (x y) +(def-window-callback mg-motion-callback ((x :int)(y :int)) (let ((w (mg-window-current t)) (where (mkv2 (scr2log x) (scr2log (- y))))) @@ -117,7 +117,7 @@ ))))) -(def-window-callback mg-passive-motion-callback (x y) +(def-window-callback mg-passive-motion-callback ((x :int)(y :int)) (let ((w (mg-window-current t))) (let ((where (mkv2 (scr2log x) (scr2log (- y))))) @@ -134,7 +134,7 @@ (setf (mouse-pos w) where))))))) -(def-window-callback mg-mouse-callback (button up-or-down x y) +(def-window-callback mg-mouse-callback ((button :int)(up-or-down :int)(x :int)(y :int)) (trc nil "mouse callback entry" button up-or-down x y) (let ((w (mg-window-current t)) (mp (mkv2 (scr2log x)

1 0

[cells-cvs] CVS update: cell-cultures/cellodemo/cellodemo.lpr
by ktilton＠common-lisp.net 08 Apr '05

08 Apr '05

Update of /project/cells/cvsroot/cell-cultures/cellodemo In directory common-lisp.net:/tmp/cvs-serv12564/cellodemo Modified Files: cellodemo.lpr Log Message: Cello cleanup, but mostly "removing" ffi-extender, which really lives on as the "hello-c" package Date: Fri Apr 8 11:11:08 2005 Author: ktilton Index: cell-cultures/cellodemo/cellodemo.lpr diff -u cell-cultures/cellodemo/cellodemo.lpr:1.4 cell-cultures/cellodemo/cellodemo.lpr:1.5 --- cell-cultures/cellodemo/cellodemo.lpr:1.4 Tue Oct 19 05:47:33 2004 +++ cell-cultures/cellodemo/cellodemo.lpr Fri Apr 8 11:11:08 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 :cello (:export)) +(defpackage :CELLO) (define-project :name :cello-demo - :application-type (intern "Standard EXE" (find-package :keyword)) :modules (list (make-instance 'module :name "cellodemo.lisp") (make-instance 'module :name "demo-window.lisp") (make-instance 'module :name "tutor-geometry.lisp") @@ -17,21 +16,60 @@ "..\\cello\\cello")) :libraries nil :distributed-files nil + :internally-loaded-files nil :project-package-name :cello :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 '(:cg-dde-utils :cg.base :cg.bitmap-pane + :cg.bitmap-pane.clipboard :cg.bitmap-stream + :cg.button :cg.caret :cg.check-box :cg.choice-list + :cg.choose-printer :cg.clipboard + :cg.clipboard-stack :cg.clipboard.pixmap + :cg.color-dialog :cg.combo-box :cg.common-control + :cg.comtab :cg.cursor-pixmap :cg.curve + :cg.dialog-item :cg.directory-dialog + :cg.directory-dialog-os :cg.drag-and-drop + :cg.drag-and-drop-image :cg.drawable + :cg.drawable.clipboard :cg.dropping-outline + :cg.edit-in-place :cg.editable-text + :cg.file-dialog :cg.fill-texture + :cg.find-string-dialog :cg.font-dialog + :cg.gesture-emulation :cg.get-pixmap + :cg.get-position :cg.graphics-context + :cg.grid-widget :cg.grid-widget.drag-and-drop + :cg.group-box :cg.header-control :cg.hotspot + :cg.icon :cg.icon-pixmap :cg.item-list + :cg.keyboard-shortcuts :cg.lettered-menu + :cg.lisp-edit-pane :cg.lisp-text :cg.lisp-widget + :cg.list-view :cg.mci :cg.menu :cg.menu.tooltip + :cg.message-dialog :cg.multi-line-editable-text + :cg.multi-line-lisp-text :cg.multi-picture-button + :cg.multi-picture-button.drag-and-drop + :cg.multi-picture-button.tooltip :cg.os-widget + :cg.os-window :cg.outline + :cg.outline.drag-and-drop + :cg.outline.edit-in-place :cg.palette + :cg.paren-matching :cg.picture-widget + :cg.picture-widget.palette :cg.pixmap + :cg.pixmap-widget :cg.pixmap.file-io + :cg.pixmap.printing :cg.pixmap.rotate :cg.printing + :cg.progress-indicator :cg.project-window + :cg.property :cg.radio-button :cg.rich-edit + :cg.rich-edit-pane :cg.rich-edit-pane.clipboard + :cg.rich-edit-pane.printing :cg.sample-file-menu + :cg.scaling-stream :cg.scroll-bar + :cg.scroll-bar-mixin :cg.selected-object + :cg.shortcut-menu :cg.static-text :cg.status-bar + :cg.string-dialog :cg.tab-control + :cg.template-string :cg.text-edit-pane + :cg.text-edit-pane.file-io :cg.text-edit-pane.mark + :cg.text-or-combo :cg.text-widget :cg.timer + :cg.toggling-widget :cg.toolbar :cg.tooltip + :cg.trackbar :cg.tray :cg.up-down-control + :cg.utility-dialog :cg.web-browser + :cg.web-browser.dde :cg.wrap-string + :cg.yes-no-list :cg.yes-no-string :dde) :splash-file-module (make-instance 'build-module :name "") :icon-file-module (make-instance 'build-module :name "") :include-flags '(:compiler :top-level :local-name-info) @@ -39,6 +77,7 @@ :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

[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

[cells-cvs] CVS update: cell-cultures/celtic/celtic2.lisp
by ktilton＠common-lisp.net 23 Feb '05

23 Feb '05

Update of /project/cells/cvsroot/cell-cultures/celtic In directory common-lisp.net:/tmp/cvs-serv16585/celtic Added Files: celtic2.lisp Log Message: Apply Andras SImon's patches from Jan 6, 2004 to get things working on CMU and ACL/Linux Date: Wed Feb 23 20:01:23 2005 Author: ktilton

1 0

← Newer
1
...
48
49
50
51
52
53
54
...
73
Older →

Jump to page:

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

2004

2003

cells-cvs