cells-cvs

cells-cvs@common-lisp.net

721 discussions

[cells-cvs] CVS cells
by ktilton 24 May '06

24 May '06

Update of /project/cells/cvsroot/cells In directory clnet:/tmp/cvs-serv19700 Modified Files: cells.lpr Log Message: --- /project/cells/cvsroot/cells/cells.lpr 2006/05/20 06:32:19 1.12 +++ /project/cells/cvsroot/cells/cells.lpr 2006/05/24 20:39:38 1.13 @@ -1,4 +1,4 @@ -;; -*- lisp-version: "8.0 [Windows] (May 11, 2006 6:29)"; cg: "1.81"; -*- +;; -*- lisp-version: "8.0 [Windows] (May 22, 2006 0:51)"; cg: "1.81"; -*- (in-package :cg-user) @@ -27,7 +27,9 @@ (make-instance 'module :name "doc\\01-Cell-basics.lisp") (make-instance 'module :name - "doc\\motor-control.lisp")) + "doc\\motor-control.lisp") + (make-instance 'module :name + "porting\\do-no-harm.lisp")) :projects (list (make-instance 'project-module :name "utils-kt\\utils-kt")) :libraries nil

1 0

[cells-cvs] CVS cells/utils-kt
by ktilton 24 May '06

24 May '06

Update of /project/cells/cvsroot/cells/utils-kt In directory clnet:/tmp/cvs-serv19700/utils-kt Modified Files: utils-kt.lpr Log Message: --- /project/cells/cvsroot/cells/utils-kt/utils-kt.lpr 2006/05/20 06:32:20 1.10 +++ /project/cells/cvsroot/cells/utils-kt/utils-kt.lpr 2006/05/24 20:39:38 1.11 @@ -1,4 +1,4 @@ -;; -*- lisp-version: "8.0 [Windows] (May 11, 2006 6:29)"; cg: "1.81"; -*- +;; -*- lisp-version: "8.0 [Windows] (May 22, 2006 0:51)"; cg: "1.81"; -*- (in-package :cg-user)

1 0

[cells-cvs] CVS cells/doc
by ktilton 20 May '06

20 May '06

Update of /project/cells/cvsroot/cells/doc In directory clnet:/tmp/cvs-serv6697/doc Modified Files: 01-Cell-basics.lisp Log Message: A slow tedious transition to LLGPL --- /project/cells/cvsroot/cells/doc/01-Cell-basics.lisp 2006/05/01 20:23:14 1.3 +++ /project/cells/cvsroot/cells/doc/01-Cell-basics.lisp 2006/05/20 06:32:19 1.4 @@ -1,17 +1,20 @@ -;; -*- mode: Lisp; Syntax: Common-Lisp; Package: cells -*- -;;; -;;; Copyright (c) 1995,2003 by Kenneth William Tilton. -;;; -;;; All rights reserved. -;;; -;;; THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR -;;; IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -;;; FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -;;; AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -;;; LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING -;;; FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS -;;; IN THE SOFTWARE. +;; -*- mode: Lisp; Syntax: Common-Lisp; Package: cells; -*- +#| + + Cells -- Automatic Dataflow Managememnt + +Copyright (C) 1995, 2006 by Kenneth Tilton + +This library is free software; you can redistribute it and/or +modify it under the terms of the Lisp Lesser GNU Public License + (http://opensource.franz.com/preamble.html), known as the LLGPL. +This library is distributed WITHOUT ANY WARRANTY; without even +the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. + +See the Lisp Lesser GNU Public License for more details. + +|# (in-package :cells)

1 0

[cells-cvs] CVS cells/utils-kt
by ktilton 20 May '06

20 May '06

Update of /project/cells/cvsroot/cells/utils-kt In directory clnet:/tmp/cvs-serv6697/utils-kt Modified Files: datetime.lisp debug.lisp defpackage.lisp detritus.lisp flow-control.lisp strings.lisp utils-kt.lpr Log Message: A slow tedious transition to LLGPL --- /project/cells/cvsroot/cells/utils-kt/datetime.lisp 2006/03/22 20:36:38 1.1 +++ /project/cells/cvsroot/cells/utils-kt/datetime.lisp 2006/05/20 06:32:20 1.2 @@ -1,25 +1,21 @@ ;; -*- mode: Lisp; Syntax: Common-Lisp; Package: cello; -*- -;;; -;;; -;;; Copyright © 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 -;;; in the Software without restriction, including without limitation the rights -;;; to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -;;; copies of the Software, and to permit persons to whom the Software is furnished -;;; to do so, subject to the following conditions: -;;; -;;; The above copyright notice and this permission notice shall be included in -;;; all copies or substantial portions of the Software. -;;; -;;; THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR -;;; IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -;;; FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -;;; AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -;;; LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING -;;; FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS -;;; IN THE SOFTWARE. +#| + + Utils-kt + +Copyright (C) 1995, 2006 by Kenneth Tilton + +This library is free software; you can redistribute it and/or +modify it under the terms of the Lisp Lesser GNU Public License + (http://opensource.franz.com/preamble.html), known as the LLGPL. + +This library is distributed WITHOUT ANY WARRANTY; without even +the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. + +See the Lisp Lesser GNU Public License for more details. + +|# + (in-package :utils-kt) --- /project/cells/cvsroot/cells/utils-kt/debug.lisp 2006/05/01 20:23:14 1.7 +++ /project/cells/cvsroot/cells/utils-kt/debug.lisp 2006/05/20 06:32:20 1.8 @@ -1,24 +1,22 @@ ;; -*- mode: Lisp; Syntax: Common-Lisp; Package: utils-kt; -*- ;;; -;;; Copyright (c) 1995,2004 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 -;;; in the Software without restriction, including without limitation the rights -;;; to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -;;; copies of the Software, and to permit persons to whom the Software is furnished -;;; to do so, subject to the following conditions: -;;; -;;; The above copyright notice and this permission notice shall be included in -;;; all copies or substantial portions of the Software. -;;; -;;; THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR -;;; IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -;;; FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -;;; AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -;;; LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING -;;; FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS -;;; IN THE SOFTWARE. +#| + + Utils-kt + +Copyright (C) 1995, 2006 by Kenneth Tilton + +This library is free software; you can redistribute it and/or +modify it under the terms of the Lisp Lesser GNU Public License + (http://opensource.franz.com/preamble.html), known as the LLGPL. + +This library is distributed WITHOUT ANY WARRANTY; without even +the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. + +See the Lisp Lesser GNU Public License for more details. + +|# + (in-package :utils-kt) --- /project/cells/cvsroot/cells/utils-kt/defpackage.lisp 2006/04/01 21:47:00 1.3 +++ /project/cells/cvsroot/cells/utils-kt/defpackage.lisp 2006/05/20 06:32:20 1.4 @@ -1,24 +1,19 @@ -;; -*- mode: Lisp; Syntax: Common-Lisp; Package: utils-kt; -*- -;;; -;;; Copyright (c) 1995,2004 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 -;;; in the Software without restriction, including without limitation the rights -;;; to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -;;; copies of the Software, and to permit persons to whom the Software is furnished -;;; to do so, subject to the following conditions: -;;; -;;; The above copyright notice and this permission notice shall be included in -;;; all copies or substantial portions of the Software. -;;; -;;; THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR -;;; IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -;;; FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -;;; AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -;;; LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING -;;; FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS -;;; IN THE SOFTWARE. +#| + + Utils-kt + +Copyright (C) 1995, 2006 by Kenneth Tilton + +This library is free software; you can redistribute it and/or +modify it under the terms of the Lisp Lesser GNU Public License + (http://opensource.franz.com/preamble.html), known as the LLGPL. + +This library is distributed WITHOUT ANY WARRANTY; without even +the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. + +See the Lisp Lesser GNU Public License for more details. + +|# (in-package :cl-user) --- /project/cells/cvsroot/cells/utils-kt/detritus.lisp 2006/05/03 08:22:16 1.5 +++ /project/cells/cvsroot/cells/utils-kt/detritus.lisp 2006/05/20 06:32:20 1.6 @@ -1,24 +1,21 @@ ;; -*- mode: Lisp; Syntax: Common-Lisp; Package: utils-kt; -*- -;;; -;;; 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 -;;; in the Software without restriction, including without limitation the rights -;;; to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -;;; copies of the Software, and to permit persons to whom the Software is furnished -;;; to do so, subject to the following conditions: -;;; -;;; The above copyright notice and this permission notice shall be included in -;;; all copies or substantial portions of the Software. -;;; -;;; THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR -;;; IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -;;; FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -;;; AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -;;; LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING -;;; FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS -;;; IN THE SOFTWARE. +#| + + Utils-kt + +Copyright (C) 1995, 2006 by Kenneth Tilton + +This library is free software; you can redistribute it and/or +modify it under the terms of the Lisp Lesser GNU Public License + (http://opensource.franz.com/preamble.html), known as the LLGPL. + +This library is distributed WITHOUT ANY WARRANTY; without even +the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. + +See the Lisp Lesser GNU Public License for more details. + +|# + (in-package :utils-kt) --- /project/cells/cvsroot/cells/utils-kt/flow-control.lisp 2005/05/18 21:47:32 1.2 +++ /project/cells/cvsroot/cells/utils-kt/flow-control.lisp 2006/05/20 06:32:20 1.3 @@ -1,25 +1,21 @@ ;; -*- mode: Lisp; Syntax: Common-Lisp; Package: utils-kt; -*- -;;; -;;; -;;; 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 -;;; in the Software without restriction, including without limitation the rights -;;; to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -;;; copies of the Software, and to permit persons to whom the Software is furnished -;;; to do so, subject to the following conditions: -;;; -;;; The above copyright notice and this permission notice shall be included in -;;; all copies or substantial portions of the Software. -;;; -;;; THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR -;;; IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -;;; FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -;;; AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -;;; LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING -;;; FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS -;;; IN THE SOFTWARE. +#| + + Utils-kt + +Copyright (C) 1995, 2006 by Kenneth Tilton + +This library is free software; you can redistribute it and/or +modify it under the terms of the Lisp Lesser GNU Public License + (http://opensource.franz.com/preamble.html), known as the LLGPL. + +This library is distributed WITHOUT ANY WARRANTY; without even +the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. + +See the Lisp Lesser GNU Public License for more details. + +|# + (in-package :utils-kt) --- /project/cells/cvsroot/cells/utils-kt/strings.lisp 2006/03/16 05:26:47 1.3 +++ /project/cells/cvsroot/cells/utils-kt/strings.lisp 2006/05/20 06:32:20 1.4 @@ -1,24 +1,21 @@ ;; -*- mode: Lisp; Syntax: Common-Lisp; Package: utils-kt; -*- -;;; -;;; 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 -;;; in the Software without restriction, including without limitation the rights -;;; to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -;;; copies of the Software, and to permit persons to whom the Software is furnished -;;; to do so, subject to the following conditions: -;;; -;;; The above copyright notice and this permission notice shall be included in -;;; all copies or substantial portions of the Software. -;;; -;;; THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR -;;; IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -;;; FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -;;; AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -;;; LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING -;;; FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS -;;; IN THE SOFTWARE. +#| + + Utils-kt + +Copyright (C) 1995, 2006 by Kenneth Tilton + +This library is free software; you can redistribute it and/or +modify it under the terms of the Lisp Lesser GNU Public License + (http://opensource.franz.com/preamble.html), known as the LLGPL. + +This library is distributed WITHOUT ANY WARRANTY; without even +the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. + +See the Lisp Lesser GNU Public License for more details. + +|# + (in-package :utils-kt) --- /project/cells/cvsroot/cells/utils-kt/utils-kt.lpr 2006/05/12 08:27:40 1.9 +++ /project/cells/cvsroot/cells/utils-kt/utils-kt.lpr 2006/05/20 06:32:20 1.10 @@ -1,4 +1,4 @@ -;; -*- lisp-version: "8.0 [Windows] (May 5, 2006 15:39)"; cg: "1.81"; -*- +;; -*- lisp-version: "8.0 [Windows] (May 11, 2006 6:29)"; cg: "1.81"; -*- (in-package :cg-user)

1 0

[cells-cvs] CVS cells
by ktilton 20 May '06

20 May '06

Update of /project/cells/cvsroot/cells In directory clnet:/tmp/cvs-serv6697 Modified Files: README.txt cell-types.lisp cells.lisp cells.lpr constructors.lisp defmodel.lisp family-values.lisp family.lisp fm-utilities.lisp initialize.lisp integrity.lisp link.lisp load.lisp md-slot-value.lisp md-utilities.lisp model-object.lisp optimization.lisp propagate.lisp slot-utilities.lisp synapse-types.lisp synapse.lisp Log Message: A slow tedious transition to LLGPL --- /project/cells/cvsroot/cells/README.txt 2006/03/22 04:08:34 1.2 +++ /project/cells/cvsroot/cells/README.txt 2006/05/20 06:32:19 1.3 @@ -25,7 +25,7 @@ Now in .\doc is cells-overview.pdf. That is pretty rough and obsolete in re the code, but some of it might be enlightening. -Cells is written in almost-portable ANSI Common Lisp. It makes very +Cells is written in portable ANSI Common Lisp. It makes very light use of the introspective portions of the MOP, and contains a few workarounds for shortcomings in common implementations. @@ -44,7 +44,7 @@ * MCL One of the Cells tests fails with CMUCL. This appears to be caused by -a bug in its CLOS implementation, but has not been investigated in +a bug in CMUCL's CLOS implementation, but has not been investigated in great depth. Cells is believed to work with Corman CL, but has not been recently @@ -57,8 +57,6 @@ package where the MOP lives. In reality, however, you might have to find workarounds for bugs in ANSI compliance. - - ***** Installation ***** [ Cells follows the usual convention for asdf and asdf-installable --- /project/cells/cvsroot/cells/cell-types.lisp 2006/03/16 05:28:27 1.8 +++ /project/cells/cvsroot/cells/cell-types.lisp 2006/05/20 06:32:19 1.9 @@ -1,24 +1,20 @@ ;; -*- mode: Lisp; Syntax: Common-Lisp; Package: cells; -*- -;;; -;;; 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 -;;; in the Software without restriction, including without limitation the rights -;;; to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -;;; copies of the Software, and to permit persons to whom the Software is furnished -;;; to do so, subject to the following conditions: -;;; -;;; The above copyright notice and this permission notice shall be included in -;;; all copies or substantial portions of the Software. -;;; -;;; THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR -;;; IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -;;; FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -;;; AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -;;; LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING -;;; FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS -;;; IN THE SOFTWARE. +#| + + Cells -- Automatic Dataflow Managememnt + +Copyright (C) 1995, 2006 by Kenneth Tilton + +This library is free software; you can redistribute it and/or +modify it under the terms of the Lisp Lesser GNU Public License + (http://opensource.franz.com/preamble.html), known as the LLGPL. + +This library is distributed WITHOUT ANY WARRANTY; without even +the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. + +See the Lisp Lesser GNU Public License for more details. + +|# (in-package :cells) --- /project/cells/cvsroot/cells/cells.lisp 2006/05/01 20:23:14 1.8 +++ /project/cells/cvsroot/cells/cells.lisp 2006/05/20 06:32:19 1.9 @@ -1,27 +1,20 @@ ;; -*- mode: Lisp; Syntax: Common-Lisp; Package: cells; -*- -;;; -;;; 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 -;;; in the Software without restriction, including without limitation the rights -;;; to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -;;; copies of the Software, and to permit persons to whom the Software is furnished -;;; to do so, subject to the following conditions: -;;; -;;; The above copyright notice and this permission notice shall be included in -;;; all copies or substantial portions of the Software. -;;; -;;; THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR -;;; IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -;;; FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -;;; AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -;;; LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING -;;; FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS -;;; IN THE SOFTWARE. +#| -;;;(eval-when (compile load) -;;; (proclaim '(optimize (speed 1) (safety 1) (space 1) (debug 2)))) + Cells -- Automatic Dataflow Managememnt + +Copyright (C) 1995, 2006 by Kenneth Tilton + +This library is free software; you can redistribute it and/or +modify it under the terms of the Lisp Lesser GNU Public License + (http://opensource.franz.com/preamble.html), known as the LLGPL. + +This library is distributed WITHOUT ANY WARRANTY; without even +the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. + +See the Lisp Lesser GNU Public License for more details. + +|# (eval-when (compile load) (proclaim '(optimize (speed 2) (safety 3) (space 1) (debug 3)))) --- /project/cells/cvsroot/cells/cells.lpr 2006/05/12 08:27:39 1.11 +++ /project/cells/cvsroot/cells/cells.lpr 2006/05/20 06:32:19 1.12 @@ -1,4 +1,4 @@ -;; -*- lisp-version: "8.0 [Windows] (May 5, 2006 15:39)"; cg: "1.81"; -*- +;; -*- lisp-version: "8.0 [Windows] (May 11, 2006 6:29)"; cg: "1.81"; -*- (in-package :cg-user) --- /project/cells/cvsroot/cells/constructors.lisp 2006/05/01 20:23:14 1.5 +++ /project/cells/cvsroot/cells/constructors.lisp 2006/05/20 06:32:19 1.6 @@ -1,24 +1,20 @@ ;; -*- mode: Lisp; Syntax: Common-Lisp; Package: cells; -*- -;;; -;;; 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 -;;; in the Software without restriction, including without limitation the rights -;;; to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -;;; copies of the Software, and to permit persons to whom the Software is furnished -;;; to do so, subject to the following conditions: -;;; -;;; The above copyright notice and this permission notice shall be included in -;;; all copies or substantial portions of the Software. -;;; -;;; THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR -;;; IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -;;; FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -;;; AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -;;; LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING -;;; FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS -;;; IN THE SOFTWARE. +#| + + Cells -- Automatic Dataflow Managememnt + +Copyright (C) 1995, 2006 by Kenneth Tilton + +This library is free software; you can redistribute it and/or +modify it under the terms of the Lisp Lesser GNU Public License + (http://opensource.franz.com/preamble.html), known as the LLGPL. + +This library is distributed WITHOUT ANY WARRANTY; without even +the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. + +See the Lisp Lesser GNU Public License for more details. + +|# (in-package :cells) --- /project/cells/cvsroot/cells/defmodel.lisp 2006/03/16 05:28:28 1.3 +++ /project/cells/cvsroot/cells/defmodel.lisp 2006/05/20 06:32:19 1.4 @@ -1,24 +1,20 @@ ;; -*- mode: Lisp; Syntax: Common-Lisp; Package: cells; -*- -;;; -;;; 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 -;;; in the Software without restriction, including without limitation the rights -;;; to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -;;; copies of the Software, and to permit persons to whom the Software is furnished -;;; to do so, subject to the following conditions: -;;; -;;; The above copyright notice and this permission notice shall be included in -;;; all copies or substantial portions of the Software. -;;; -;;; THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR -;;; IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -;;; FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -;;; AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -;;; LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING -;;; FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS -;;; IN THE SOFTWARE. +#| + + Cells -- Automatic Dataflow Managememnt + +Copyright (C) 1995, 2006 by Kenneth Tilton + +This library is free software; you can redistribute it and/or +modify it under the terms of the Lisp Lesser GNU Public License + (http://opensource.franz.com/preamble.html), known as the LLGPL. + +This library is distributed WITHOUT ANY WARRANTY; without even +the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. + +See the Lisp Lesser GNU Public License for more details. + +|# (in-package :cells) --- /project/cells/cvsroot/cells/family-values.lisp 2006/05/12 08:27:39 1.3 +++ /project/cells/cvsroot/cells/family-values.lisp 2006/05/20 06:32:19 1.4 @@ -1,24 +1,20 @@ ;; -*- mode: Lisp; Syntax: Common-Lisp; Package: cells; -*- -;;; -;;; 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 -;;; in the Software without restriction, including without limitation the rights -;;; to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -;;; copies of the Software, and to permit persons to whom the Software is furnished -;;; to do so, subject to the following conditions: -;;; -;;; The above copyright notice and this permission notice shall be included in -;;; all copies or substantial portions of the Software. -;;; -;;; THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR -;;; IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -;;; FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -;;; AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -;;; LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING -;;; FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS -;;; IN THE SOFTWARE. +#| + + Cells -- Automatic Dataflow Managememnt + +Copyright (C) 1995, 2006 by Kenneth Tilton + +This library is free software; you can redistribute it and/or +modify it under the terms of the Lisp Lesser GNU Public License + (http://opensource.franz.com/preamble.html), known as the LLGPL. + +This library is distributed WITHOUT ANY WARRANTY; without even +the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. + +See the Lisp Lesser GNU Public License for more details. + +|# (in-package :cells) --- /project/cells/cvsroot/cells/family.lisp 2006/05/01 20:23:14 1.6 +++ /project/cells/cvsroot/cells/family.lisp 2006/05/20 06:32:19 1.7 @@ -1,24 +1,20 @@ ;; -*- mode: Lisp; Syntax: Common-Lisp; Package: cells; -*- -;;; -;;; 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 -;;; in the Software without restriction, including without limitation the rights -;;; to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -;;; copies of the Software, and to permit persons to whom the Software is furnished -;;; to do so, subject to the following conditions: -;;; -;;; The above copyright notice and this permission notice shall be included in -;;; all copies or substantial portions of the Software. -;;; -;;; THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR -;;; IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -;;; FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -;;; AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -;;; LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING -;;; FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS -;;; IN THE SOFTWARE. +#| + + Cells -- Automatic Dataflow Managememnt + +Copyright (C) 1995, 2006 by Kenneth Tilton + +This library is free software; you can redistribute it and/or +modify it under the terms of the Lisp Lesser GNU Public License + (http://opensource.franz.com/preamble.html), known as the LLGPL. + +This library is distributed WITHOUT ANY WARRANTY; without even +the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. + +See the Lisp Lesser GNU Public License for more details. + +|# (in-package :cells) --- /project/cells/cvsroot/cells/fm-utilities.lisp 2006/05/01 20:23:14 1.6 +++ /project/cells/cvsroot/cells/fm-utilities.lisp 2006/05/20 06:32:19 1.7 @@ -1,24 +1,20 @@ ;; -*- mode: Lisp; Syntax: Common-Lisp; Package: cells; -*- -;;; -;;; 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 -;;; in the Software without restriction, including without limitation the rights -;;; to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -;;; copies of the Software, and to permit persons to whom the Software is furnished -;;; to do so, subject to the following conditions: -;;; -;;; The above copyright notice and this permission notice shall be included in -;;; all copies or substantial portions of the Software. -;;; -;;; THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR -;;; IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -;;; FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -;;; AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -;;; LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING -;;; FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS -;;; IN THE SOFTWARE. +#| + + Cells -- Automatic Dataflow Managememnt + +Copyright (C) 1995, 2006 by Kenneth Tilton + +This library is free software; you can redistribute it and/or +modify it under the terms of the Lisp Lesser GNU Public License + (http://opensource.franz.com/preamble.html), known as the LLGPL. + +This library is distributed WITHOUT ANY WARRANTY; without even +the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. + +See the Lisp Lesser GNU Public License for more details. + +|# (in-package :cells) --- /project/cells/cvsroot/cells/initialize.lisp 2006/05/01 20:23:14 1.4 +++ /project/cells/cvsroot/cells/initialize.lisp 2006/05/20 06:32:19 1.5 @@ -1,24 +1,20 @@ ;; -*- mode: Lisp; Syntax: Common-Lisp; Package: cells; -*- -;;; -;;; 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 -;;; in the Software without restriction, including without limitation the rights -;;; to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -;;; copies of the Software, and to permit persons to whom the Software is furnished -;;; to do so, subject to the following conditions: -;;; -;;; The above copyright notice and this permission notice shall be included in -;;; all copies or substantial portions of the Software. -;;; -;;; THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR -;;; IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -;;; FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -;;; AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -;;; LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING -;;; FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS -;;; IN THE SOFTWARE. +#| + + Cells -- Automatic Dataflow Managememnt + +Copyright (C) 1995, 2006 by Kenneth Tilton + +This library is free software; you can redistribute it and/or +modify it under the terms of the Lisp Lesser GNU Public License + (http://opensource.franz.com/preamble.html), known as the LLGPL. + +This library is distributed WITHOUT ANY WARRANTY; without even +the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. + +See the Lisp Lesser GNU Public License for more details. + +|# (in-package :cells) --- /project/cells/cvsroot/cells/integrity.lisp 2006/05/03 08:22:15 1.8 +++ /project/cells/cvsroot/cells/integrity.lisp 2006/05/20 06:32:19 1.9 @@ -1,24 +1,20 @@ ;; -*- mode: Lisp; Syntax: Common-Lisp; Package: cells; -*- -;;; -;;; 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 -;;; in the Software without restriction, including without limitation the rights -;;; to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -;;; copies of the Software, and to permit persons to whom the Software is furnished -;;; to do so, subject to the following conditions: -;;; -;;; The above copyright notice and this permission notice shall be included in -;;; all copies or substantial portions of the Software. -;;; -;;; THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR -;;; IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -;;; FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -;;; AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -;;; LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING -;;; FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS -;;; IN THE SOFTWARE. +#| + + Cells -- Automatic Dataflow Managememnt + +Copyright (C) 1995, 2006 by Kenneth Tilton + +This library is free software; you can redistribute it and/or +modify it under the terms of the Lisp Lesser GNU Public License + (http://opensource.franz.com/preamble.html), known as the LLGPL. + +This library is distributed WITHOUT ANY WARRANTY; without even +the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. + +See the Lisp Lesser GNU Public License for more details. + +|# (in-package :cells) --- /project/cells/cvsroot/cells/link.lisp 2006/03/16 05:28:28 1.8 +++ /project/cells/cvsroot/cells/link.lisp 2006/05/20 06:32:19 1.9 @@ -1,24 +1,20 @@ ;; -*- mode: Lisp; Syntax: Common-Lisp; Package: cells; -*- -;;; -;;; 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 -;;; in the Software without restriction, including without limitation the rights -;;; to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -;;; copies of the Software, and to permit persons to whom the Software is furnished -;;; to do so, subject to the following conditions: -;;; -;;; The above copyright notice and this permission notice shall be included in -;;; all copies or substantial portions of the Software. -;;; -;;; THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR -;;; IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -;;; FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -;;; AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -;;; LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING -;;; FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS -;;; IN THE SOFTWARE. +#| + + Cells -- Automatic Dataflow Managememnt + +Copyright (C) 1995, 2006 by Kenneth Tilton + +This library is free software; you can redistribute it and/or +modify it under the terms of the Lisp Lesser GNU Public License + (http://opensource.franz.com/preamble.html), known as the LLGPL. + +This library is distributed WITHOUT ANY WARRANTY; without even +the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. + +See the Lisp Lesser GNU Public License for more details. + +|# (in-package :cells) --- /project/cells/cvsroot/cells/load.lisp 2006/03/22 05:26:53 1.4 +++ /project/cells/cvsroot/cells/load.lisp 2006/05/20 06:32:19 1.5 @@ -11,10 +11,10 @@ asdf:*central-registry*) #-runtestsuite -(ASDF:OOS 'ASDF:LOAD-OP :CELLS) +(asdf:oos 'asdf:load-op :cells) #+runtestsuite -(ASDF:OOS 'ASDF:LOAD-OP :CELLS-TEST) +(asdf:oos 'asdf:load-op :cells-test) #+checkoutceltk (ASDF:OOS 'ASDF:LOAD-OP :CELTK) --- /project/cells/cvsroot/cells/md-slot-value.lisp 2006/05/04 21:25:12 1.13 +++ /project/cells/cvsroot/cells/md-slot-value.lisp 2006/05/20 06:32:19 1.14 @@ -1,24 +1,20 @@ ;; -*- mode: Lisp; Syntax: Common-Lisp; Package: cells; -*- -;;; -;;; 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 -;;; in the Software without restriction, including without limitation the rights -;;; to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -;;; copies of the Software, and to permit persons to whom the Software is furnished -;;; to do so, subject to the following conditions: -;;; -;;; The above copyright notice and this permission notice shall be included in -;;; all copies or substantial portions of the Software. -;;; -;;; THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR -;;; IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -;;; FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -;;; AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -;;; LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING -;;; FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS -;;; IN THE SOFTWARE. +#| + + Cells -- Automatic Dataflow Managememnt + +Copyright (C) 1995, 2006 by Kenneth Tilton + +This library is free software; you can redistribute it and/or +modify it under the terms of the Lisp Lesser GNU Public License + (http://opensource.franz.com/preamble.html), known as the LLGPL. + +This library is distributed WITHOUT ANY WARRANTY; without even +the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. + +See the Lisp Lesser GNU Public License for more details. + +|# (in-package :cells) --- /project/cells/cvsroot/cells/md-utilities.lisp 2006/03/16 05:28:28 1.3 +++ /project/cells/cvsroot/cells/md-utilities.lisp 2006/05/20 06:32:19 1.4 @@ -1,24 +1,20 @@ ;; -*- mode: Lisp; Syntax: Common-Lisp; Package: cells; -*- -;;; -;;; 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 -;;; in the Software without restriction, including without limitation the rights -;;; to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -;;; copies of the Software, and to permit persons to whom the Software is furnished -;;; to do so, subject to the following conditions: -;;; -;;; The above copyright notice and this permission notice shall be included in -;;; all copies or substantial portions of the Software. -;;; -;;; THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR -;;; IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -;;; FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -;;; AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -;;; LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING -;;; FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS -;;; IN THE SOFTWARE. +#| + + Cells -- Automatic Dataflow Managememnt + +Copyright (C) 1995, 2006 by Kenneth Tilton + +This library is free software; you can redistribute it and/or +modify it under the terms of the Lisp Lesser GNU Public License + (http://opensource.franz.com/preamble.html), known as the LLGPL. + +This library is distributed WITHOUT ANY WARRANTY; without even +the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. + +See the Lisp Lesser GNU Public License for more details. + +|# (in-package :cells) --- /project/cells/cvsroot/cells/model-object.lisp 2006/03/18 00:15:40 1.4 +++ /project/cells/cvsroot/cells/model-object.lisp 2006/05/20 06:32:19 1.5 @@ -1,24 +1,20 @@ ;; -*- mode: Lisp; Syntax: Common-Lisp; Package: cells; -*- -;;; -;;; 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 -;;; in the Software without restriction, including without limitation the rights -;;; to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -;;; copies of the Software, and to permit persons to whom the Software is furnished -;;; to do so, subject to the following conditions: -;;; -;;; The above copyright notice and this permission notice shall be included in -;;; all copies or substantial portions of the Software. -;;; -;;; THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR -;;; IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -;;; FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -;;; AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -;;; LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING -;;; FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS -;;; IN THE SOFTWARE. +#| + + Cells -- Automatic Dataflow Managememnt + +Copyright (C) 1995, 2006 by Kenneth Tilton + +This library is free software; you can redistribute it and/or +modify it under the terms of the Lisp Lesser GNU Public License + (http://opensource.franz.com/preamble.html), known as the LLGPL. + +This library is distributed WITHOUT ANY WARRANTY; without even +the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. + +See the Lisp Lesser GNU Public License for more details. + +|# (in-package :cells) --- /project/cells/cvsroot/cells/optimization.lisp 2006/03/16 05:28:28 1.5 +++ /project/cells/cvsroot/cells/optimization.lisp 2006/05/20 06:32:19 1.6 @@ -1,24 +1,20 @@ ;; -*- mode: Lisp; Syntax: Common-Lisp; Package: cells; -*- -;;; -;;; 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 -;;; in the Software without restriction, including without limitation the rights -;;; to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -;;; copies of the Software, and to permit persons to whom the Software is furnished -;;; to do so, subject to the following conditions: -;;; -;;; The above copyright notice and this permission notice shall be included in -;;; all copies or substantial portions of the Software. -;;; -;;; THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR -;;; IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -;;; FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -;;; AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -;;; LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING -;;; FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS -;;; IN THE SOFTWARE. +#| + + Cells -- Automatic Dataflow Managememnt + +Copyright (C) 1995, 2006 by Kenneth Tilton + +This library is free software; you can redistribute it and/or +modify it under the terms of the Lisp Lesser GNU Public License + (http://opensource.franz.com/preamble.html), known as the LLGPL. + +This library is distributed WITHOUT ANY WARRANTY; without even +the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. + +See the Lisp Lesser GNU Public License for more details. + +|# (in-package :cells) --- /project/cells/cvsroot/cells/propagate.lisp 2006/03/22 18:48:13 1.11 +++ /project/cells/cvsroot/cells/propagate.lisp 2006/05/20 06:32:19 1.12 @@ -1,24 +1,20 @@ ;; -*- mode: Lisp; Syntax: Common-Lisp; Package: cells; -*- -;;; -;;; 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 -;;; in the Software without restriction, including without limitation the rights -;;; to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -;;; copies of the Software, and to permit persons to whom the Software is furnished -;;; to do so, subject to the following conditions: -;;; -;;; The above copyright notice and this permission notice shall be included in -;;; all copies or substantial portions of the Software. -;;; -;;; THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR -;;; IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -;;; FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -;;; AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -;;; LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING -;;; FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS -;;; IN THE SOFTWARE. +#| + + Cells -- Automatic Dataflow Managememnt + +Copyright (C) 1995, 2006 by Kenneth Tilton + +This library is free software; you can redistribute it and/or +modify it under the terms of the Lisp Lesser GNU Public License + (http://opensource.franz.com/preamble.html), known as the LLGPL. + +This library is distributed WITHOUT ANY WARRANTY; without even +the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. + +See the Lisp Lesser GNU Public License for more details. + +|# (in-package :cells) --- /project/cells/cvsroot/cells/slot-utilities.lisp 2006/03/16 05:28:28 1.2 +++ /project/cells/cvsroot/cells/slot-utilities.lisp 2006/05/20 06:32:19 1.3 @@ -1,24 +1,20 @@ ;; -*- mode: Lisp; Syntax: Common-Lisp; Package: cells; -*- -;;; -;;; 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 -;;; in the Software without restriction, including without limitation the rights -;;; to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -;;; copies of the Software, and to permit persons to whom the Software is furnished -;;; to do so, subject to the following conditions: -;;; -;;; The above copyright notice and this permission notice shall be included in -;;; all copies or substantial portions of the Software. -;;; -;;; THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR -;;; IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -;;; FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -;;; AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -;;; LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING -;;; FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS -;;; IN THE SOFTWARE. +#| + + Cells -- Automatic Dataflow Managememnt + +Copyright (C) 1995, 2006 by Kenneth Tilton + +This library is free software; you can redistribute it and/or +modify it under the terms of the Lisp Lesser GNU Public License + (http://opensource.franz.com/preamble.html), known as the LLGPL. + +This library is distributed WITHOUT ANY WARRANTY; without even +the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. + +See the Lisp Lesser GNU Public License for more details. + +|# (in-package :cells) --- /project/cells/cvsroot/cells/synapse-types.lisp 2006/03/16 05:28:28 1.4 +++ /project/cells/cvsroot/cells/synapse-types.lisp 2006/05/20 06:32:19 1.5 @@ -1,24 +1,20 @@ ;; -*- mode: Lisp; Syntax: Common-Lisp; Package: cells; -*- -;;; -;;; 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 -;;; in the Software without restriction, including without limitation the rights -;;; to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -;;; copies of the Software, and to permit persons to whom the Software is furnished -;;; to do so, subject to the following conditions: -;;; -;;; The above copyright notice and this permission notice shall be included in -;;; all copies or substantial portions of the Software. -;;; -;;; THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR -;;; IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -;;; FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -;;; AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -;;; LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING -;;; FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS -;;; IN THE SOFTWARE. +#| + + Cells -- Automatic Dataflow Managememnt + +Copyright (C) 1995, 2006 by Kenneth Tilton + +This library is free software; you can redistribute it and/or +modify it under the terms of the Lisp Lesser GNU Public License + (http://opensource.franz.com/preamble.html), known as the LLGPL. + +This library is distributed WITHOUT ANY WARRANTY; without even +the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. + +See the Lisp Lesser GNU Public License for more details. + +|# (in-package :cells) --- /project/cells/cvsroot/cells/synapse.lisp 2006/03/16 05:28:28 1.9 +++ /project/cells/cvsroot/cells/synapse.lisp 2006/05/20 06:32:19 1.10 @@ -1,24 +1,20 @@ ;; -*- mode: Lisp; Syntax: Common-Lisp; Package: cells; -*- -;;; -;;; 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 -;;; in the Software without restriction, including without limitation the rights -;;; to use, copy, modify, merge, publish, distribute, sublicense, and/or sell -;;; copies of the Software, and to permit persons to whom the Software is furnished -;;; to do so, subject to the following conditions: -;;; -;;; The above copyright notice and this permission notice shall be included in -;;; all copies or substantial portions of the Software. -;;; -;;; THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR -;;; IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, -;;; FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE -;;; AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER -;;; LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING -;;; FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS -;;; IN THE SOFTWARE. +#| + + Cells -- Automatic Dataflow Managememnt + +Copyright (C) 1995, 2006 by Kenneth Tilton + +This library is free software; you can redistribute it and/or +modify it under the terms of the Lisp Lesser GNU Public License + (http://opensource.franz.com/preamble.html), known as the LLGPL. + +This library is distributed WITHOUT ANY WARRANTY; without even +the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. + +See the Lisp Lesser GNU Public License for more details. + +|# (in-package :cells)

1 0

[cells-cvs] CVS Celtk
by ktilton 16 May '06

16 May '06

Update of /project/cells/cvsroot/Celtk In directory clnet:/tmp/cvs-serv17320 Modified Files: demos.lisp entry.lisp menu.lisp multichoice.lisp run.lisp timer.lisp tk-events.lisp widget.lisp Log Message: create command replacing event generate --- /project/cells/cvsroot/Celtk/demos.lisp 2006/05/16 21:17:15 1.16 +++ /project/cells/cvsroot/Celtk/demos.lisp 2006/05/17 00:40:55 1.17 @@ -25,11 +25,11 @@ (defun ctk::tk-test () ;; ACL project manager needs a zero-argument function, in project package (test-window - ;; true tester: 'one-button-window + ;;'one-button-window ;; Not so good: 'ltktest-cells-inside ;; 'menu-button-test - ;; 'spinbox-test - 'lotsa-widgets + 'spinbox-test + ;; 'lotsa-widgets ;; Now in Gears project 'gears-demo )) @@ -40,6 +40,11 @@ (mk-frame-stack :packing (c?pack-self) :kids (c? (the-kids + (mk-menubar + :kids (c? (the-kids + (mk-menu-entry-cascade-ex (:label "File") + (mk-menu-entry-command-ex () "Load" (format t "~&Load pressed")) + (mk-menu-entry-command-ex () "Save" (format t "~&Save pressed")))))) (make-instance 'entry :id :entree :fm-parent *parent* @@ -48,70 +53,19 @@ :fm-parent *parent* :text "read" :on-command (lambda (self) - (trc "entry reads" (ctk::tk-eval-var (path (fm^ :entree))))))))))))) - -#+save -(defmodel one-button-window (window) - () - (:default-initargs - :on-event (lambda (self &rest event-args) - (trc "we got events" self event-args)) - :kids (c? (the-kids - (mk-menubar - :kids (c? (the-kids - (mk-menu-entry-cascade-ex (:label "File") - (mk-menu-entry-command-ex () "Load" (format t "~&Load pressed")) - (mk-menu-entry-command-ex () "Save" (format t "~&Save pressed")))))) - (mk-frame-stack - :packing (c?pack-self) - :kids (c? (the-kids - - ;;; (mk-scrolled-list - ;;; :id :spinpkg-sym-list - ;;; :list-height 6 - ;;; :list-item-keys (c? (loop for sym being the symbols in (find-package "CELTK") - ;;; for n below 5 - ;;; counting sym into symct - ;;; collecting sym into syms - ;;; finally (trc "syms found !!!" symct) - ;;; (return syms))) - ;;; :list-item-factory (lambda (sym) - ;;; (trc "make list item" sym *parent*) - ;;; (make-instance 'listbox-item - ;;; :fm-parent *parent* - ;;; :md-value sym - ;;; :item-text (down$ (symbol-name sym))))) - (mk-text-widget - :id :my-text - :md-value (c?n "hello, world") - :height 3 - :width 25) - (make-instance 'button - :fm-parent *parent* - :text "<<kenny>>" - :on-command (lambda (self) - (trc "button pushed!!!" self))) - ;;; (make-instance 'button - ;;; :fm-parent *parent* - ;;; :text "time now?" - ;;; :on-command (c? (lambda (self) - ;;; (trc "we got callbacks" self)))) + (trc "entry reads" (ctk::tk-eval-var (path (fm^ :entree)))))) (make-instance 'scale :fm-parent *parent* :tk-label "Boots" :on-command (c? (lambda (self value) - (trc "we got scale callbacks" self value)))) + (trc "we got scale callbacks" self (parse-integer value))))) (mk-spinbox :id :spin-pkg :md-value (c-in "cells") ;;(cells::c?n "cells") :tk-values (mapcar 'down$ (sort (mapcar 'package-name (list-all-packages)) - 'string>))) - (make-instance 'entry - :fm-parent *parent* - :md-value (c-in "Boots")) - ))))))) + 'string>)))))))))) (defmodel spinbox-test (window) () @@ -142,7 +96,8 @@ (make-instance 'listbox-item :fm-parent *parent* :md-value sym - :item-text (down$ (symbol-name sym)))))))))) + :item-text (down$ (symbol-name sym))))) + (mk-label :text (c? (selection (fm^ :spinpkg-sym-list))))))))) (defmodel menu-button-test (window) --- /project/cells/cvsroot/Celtk/entry.lisp 2006/05/16 02:52:22 1.7 +++ /project/cells/cvsroot/Celtk/entry.lisp 2006/05/17 00:40:55 1.8 @@ -65,8 +65,7 @@ (defmethod md-awaken :after ((self entry)) ;; move this to a traces slot on widget (with-integrity (:client `(:trace ,self)) - (tk-format-now "trace add variable ~a write TraceOP" (^path)) - )) + (tk-format-now "trace add variable ~a write TraceOP" (^path)))) ;;; /// this next replicates the handling of tk-mirror-variable because ;;; those leverage the COMMAND mechanism, which entry lacks --- /project/cells/cvsroot/Celtk/menu.lisp 2006/05/16 21:17:15 1.14 +++ /project/cells/cvsroot/Celtk/menu.lisp 2006/05/17 00:40:55 1.15 @@ -172,7 +172,7 @@ () (:tk-spec command -command) (:default-initargs - :command (c? (format nil "event generate . <<do-menu-command>> -data ~a" (path-idx self))))) + :command (c? (format nil "do-on-command ~a" (path-idx self))))) (defmacro mk-menu-entry-command-ex ((&rest menu-command-initargs) lbl callback-body) `(mk-menu-entry-command --- /project/cells/cvsroot/Celtk/multichoice.lisp 2006/05/16 21:17:15 1.7 +++ /project/cells/cvsroot/Celtk/multichoice.lisp 2006/05/17 00:40:55 1.8 @@ -44,10 +44,9 @@ :tk-variable nil ;;(c? (^path)) :xscrollcommand (c-in nil) :yscrollcommand (c-in nil) - :command (c? (format nil "event generate ~a <<do-on-command>> -data" (^path))) :on-command (lambda (self value) ;; (trc "hi scale" self value) - (setf (^md-value) value)))) + (setf (^md-value) (parse-integer value))))) (defmethod make-tk-instance :after ((self scale)) "Still necessary?" @@ -116,7 +115,7 @@ :id (gentemp "SPN") :textVariable (c? (^path)) :xscrollcommand (c-in nil) - :command (c? (format nil "event generate ~a <<do-on-command>> -data %s" (^path))) + :command (c? (format nil "do-on-command ~a %s" (^path))) :on-command (c? (lambda (self text) (eko ("variable mirror command fired !!!!!!!" text) (setf (^md-value) text)))))) --- /project/cells/cvsroot/Celtk/run.lisp 2006/05/16 02:52:22 1.10 +++ /project/cells/cvsroot/Celtk/run.lisp 2006/05/17 00:40:55 1.11 @@ -39,12 +39,13 @@ (tk-app-init *tki*) (tk-togl-init *tki*) (tk-format-now "proc TraceOP {n1 n2 op} {event generate $n1 <<trace>> -data $op}") + (tcl-create-command *tki* "do-on-command" (get-callback 'do-on-command) 42 0) (with-integrity () (setf *tkw* (make-instance root-class)) (tk-create-event-handler-ex *tkw* 'main-window-proc :virtualEventMask)) - + (tk-format `(:fini) "wm deiconify .") (tk-format-now "bind . <Escape> {destroy .}") @@ -55,9 +56,6 @@ (when (eq (xevent-type xe) :virtualevent) (bwhen (n$ (xsv name xe)) (case (read-from-string (string-upcase n$)) - (do-menu-command (let ((self (gethash (tcl-get-string (xsv user-data xe)) (dictionary *tkw*)))) - (bwhen (c (^on-command)) - (funcall c self)))) (time-is-up (let ((self (gethash (tcl-get-string (xsv user-data xe)) (dictionary *tkw*)))) (bwhen (c (^on-command)) (funcall c self)))) --- /project/cells/cvsroot/Celtk/timer.lisp 2006/05/16 02:52:22 1.5 +++ /project/cells/cvsroot/Celtk/timer.lisp 2006/05/17 00:40:55 1.6 @@ -52,7 +52,7 @@ (export '(repeat ^repeat))) (defmodel timer () - ((id :cell nil :initarg :id :accessor id :initform :anon + ((id :cell nil :initarg :id :accessor id :initform (gentemp "AFTER") :documentation "A debugging aid") (tag :cell nil :initarg :tag :accessor tag :initform :anon :documentation "A debugging aid") @@ -99,9 +99,8 @@ (setf (id self) (set-timer self (^delay))))))))))) (defun set-timer (self time) - (let ((lookup-id (gentemp "AFTER"))) - (setf (gethash lookup-id (dictionary *tkw*)) self) - (tk-eval "after ~a {event generate . <<time-is-up>> -data ~a}" time lookup-id))) + (setf (gethash (id self) (dictionary *tkw*)) self) + (tk-eval "after ~a {do-on-command ~a}" time (id self))) (defobserver timers ((self tk-object) new-value old-value) (dolist (k (set-difference old-value new-value)) --- /project/cells/cvsroot/Celtk/tk-events.lisp 2006/05/15 05:15:37 1.2 +++ /project/cells/cvsroot/Celtk/tk-events.lisp 2006/05/17 00:40:55 1.3 @@ -8,6 +8,18 @@ (tcl-idle-proc :pointer) (client-data :int)) +(defcfun ("Tcl_CreateCommand" tcl-create-command) :pointer + (interp :pointer) + (cmdName :string) + (proc :pointer) + (client-data :int) + (delete-proc :pointer)) + +(defcfun ("Tcl_SetResult" tcl-set-result) :void + (interp :pointer) + (result :string) + (free-proc :pointer)) + (defcfun ("Tcl_GetString" tcl-get-string) :string (tcl-obj :pointer)) --- /project/cells/cvsroot/Celtk/widget.lisp 2006/05/16 21:17:15 1.7 +++ /project/cells/cvsroot/Celtk/widget.lisp 2006/05/17 00:40:55 1.8 @@ -95,24 +95,21 @@ (defclass commander () () (:default-initargs - :command (c? (format nil "event generate ~a <<do-on-command>>" (^path))))) + :command (c? (format nil "do-on-command ~a" (^path))))) -(defcallback commander-event-proc :void ((client-data :int)(xe :pointer)) +(defcallback do-on-command :int ((client-data :int)(interp :pointer)(argc :int)(argv :pointer)) (declare (ignore client-data)) - (when (eq (xevent-type xe) :virtualevent) - (bwhen (n$ (xsv name xe)) - (case (read-from-string (string-upcase n$)) - (do-on-command (let ((self (xwin-widget (xsv event-window xe)))) - (bwhen (c (^on-command)) - (let ((d (xsv user-data xe))) - (if (plusp d) - (funcall c self (read-from-string (tcl-get-string d))) - (funcall c self)))))) - (otherwise (trc "commander sees unknown" n$)))))) - -(defmethod make-tk-instance :after ((self commander)) - (with-integrity (:client `(:post-make-tk ,self)) - (tk-create-event-handler-ex self 'commander-event-proc :virtualEventMask))) + (destructuring-bind (path &rest args) + (loop for argn upfrom 1 below argc + collecting (mem-aref argv :string argn)) + (bif (self (gethash path (dictionary *tkw*))) + (bIf (cmd (^on-command)) + (progn (apply cmd self args) + 0) + (progn (tcl-set-result interp (format nil "do-on-command> Target widget ~a has no on-command to run" path) 0) + 1)) + (progn (tcl-set-result interp (format nil "do-on-command> Target widget ~a does not exist" path) 0) + 1)))) (defun widget-menu (self key) (or (find key (^menus) :key 'md-name)

1 0

[cells-cvs] CVS Celtk
by ktilton 16 May '06

16 May '06

Update of /project/cells/cvsroot/Celtk In directory clnet:/tmp/cvs-serv26224 Modified Files: Celtk.lisp demos.lisp load.lisp lotsa-widgets.lisp menu.lisp multichoice.lisp tk-interp.lisp widget.lisp Log Message: --- /project/cells/cvsroot/Celtk/Celtk.lisp 2006/05/16 02:52:22 1.21 +++ /project/cells/cvsroot/Celtk/Celtk.lisp 2006/05/16 21:17:15 1.22 @@ -62,23 +62,22 @@ (define-symbol-macro .tkw (nearest self window)) + ; --- tk-format --- talking to wish/Tk ----------------------------------------------------- +(defconstant +tk-client-task-priority+ + '(:delete :forget :destroy + :pre-make-tk :make-tk :make-tk-menubutton :post-make-tk + :variable :bind :selection :trace :configure :grid :pack :fini)) + (defun tk-user-queue-sort (task1 task2) "Intended for use as user queue sorter, to make Tk happy by giving it stuff in the order it needs to work properly." - (let ((priority '(:delete :forget :destroy - :pre-make-tk :make-tk :make-tk-menubutton :post-make-tk - :variable :bind :selection :trace :configure :grid :pack :fini))) - (destructuring-bind (type1 self1 &rest dbg) task1 + (destructuring-bind (type1 self1 &rest dbg) task1 (declare (ignorable dbg)) - (assert type1) - (assert (find type1 priority) () "unknown task type ~a in task ~a" type1 task1) (destructuring-bind (type2 self2 &rest dbg) task2 (declare (ignorable dbg)) - (assert type2) - (assert (find type2 priority) () "unknown task type ~a in task ~a" type2 task2) - (let ((p1 (position type1 priority)) - (p2 (position type2 priority))) + (let ((p1 (position type1 +tk-client-task-priority+)) + (p2 (position type2 +tk-client-task-priority+))) (cond ((< p1 p2) t) ((< p2 p1) nil) @@ -86,12 +85,14 @@ (:make-tk (fm-ordered-p self1 self2)) (:pack - (fm-ascendant-p self2 self1)))))))))) + (fm-ascendant-p self2 self1))))))))) (defun tk-user-queue-handler (user-q) - #+shh (loop for (defer-info . nil) in (sort (copy-list (fifo-data user-q)) 'tk-user-queue-sort :key 'car) - do (trc "user-q-handler sees" defer-info)) + (loop for (defer-info . nil) in (fifo-data user-q) + unless (find (car defer-info) +tk-client-task-priority+) + do (error "unknown tk client task type ~a in task: ~a " (car defer-info) defer-info)) + (loop for (nil #+not defer-info . task) in (prog1 (sort (fifo-data user-q) 'tk-user-queue-sort :key 'car) (fifo-clear user-q)) --- /project/cells/cvsroot/Celtk/demos.lisp 2006/05/16 02:52:22 1.15 +++ /project/cells/cvsroot/Celtk/demos.lisp 2006/05/16 21:17:15 1.16 @@ -137,8 +137,7 @@ for n below 5 counting sym into symct collecting sym into syms - finally (trc "syms found !!!" symct) - (return syms))))) + finally (return syms))))) :list-item-factory (lambda (sym) (make-instance 'listbox-item :fm-parent *parent* @@ -154,7 +153,7 @@ (mk-popup-menubutton :id :font-face :initial-value (c? (second (^entry-values))) - :entry-values (c? (eko ("popup ff") (subseq (tk-eval-list "font families") 4 10)))) + :entry-values (c? (subseq (tk-eval-list "font families") 4 10))) (mk-label :text "Four score and seven years ago today, our fathers broguht forth on this continent a new nation..." :wraplength 200 :justify 'left --- /project/cells/cvsroot/Celtk/load.lisp 2006/05/12 08:30:14 1.5 +++ /project/cells/cvsroot/Celtk/load.lisp 2006/05/16 21:17:15 1.6 @@ -1,9 +1,26 @@ +;;; +;;; +;;; First, grab these: +;;; +;;; http://common-lisp.net/cgi-bin/viewcvs.cgi/cells/?root=cells +;;; Celtk: http://common-lisp.net/cgi-bin/viewcvs.cgi/Celtk/?root=cells +;;; CFFI: http://common-lisp.net/project/cffi/releases/cffi_0.9.1.tar.gz +;;; cl-opengl: http://common-lisp.net/cgi-bin/darcsweb/darcsweb.cgi?r=cl-opencl%20cl-openg… +;; +;;; At the bottom of any of those pages look for a "Download tarball" link. Except cl-opengl, those guys +;;; are not download-friendly. +;;; +;;; Next, get ASDF loaded: + #+eval-this-if-you-do-not-autoload-asdf (load (make-pathname #+lispworks :host #-lispworks :device "c" :directory '(:absolute "0dev" "cells") :name "asdf" :type "lisp")) +;;; /After/ you have manually evaluated the above form, you can tell ASDF +;;; where you put everything by adjusting these paths and evaluating: + (progn (push (make-pathname #+lispworks :host #-lispworks :device "c" :directory '(:absolute "0dev" "cells")) @@ -21,16 +38,14 @@ :directory '(:absolute "0dev" "Celtk")) asdf:*central-registry*)) -#-runtestsuite -(ASDF:OOS 'ASDF:LOAD-OP :CELLS) - -#+runtestsuite -(ASDF:OOS 'ASDF:LOAD-OP :CELLS-TEST) +;;; and now you can try building the whole mess: (ASDF:OOS 'ASDF:LOAD-OP :CELTK) -#+ortestceltk -(ctk:test-window 'celtk-user::ltktest-cells-inside) +;;; and test: + +(ctk::test-window 'celtk-user::lotsa-widgets) + +;;; When that crashes, track down all the define-foreign-library calls in the source +;;; and fix the pathnames to point to your shared libraries. -#+opengl -(celtk-user::gears) \ No newline at end of file --- /project/cells/cvsroot/Celtk/lotsa-widgets.lisp 2006/05/13 14:36:58 1.1 +++ /project/cells/cvsroot/Celtk/lotsa-widgets.lisp 2006/05/16 21:17:15 1.2 @@ -88,8 +88,7 @@ for n below 25 counting sym into symct collecting sym into syms - finally (trc "syms found !!!" symct) - (return syms))))) + finally (return syms))))) :list-item-factory (lambda (sym) (make-instance 'listbox-item :fm-parent *parent* @@ -161,7 +160,7 @@ (mk-popup-menubutton :id :font-face :initial-value (c? (second (^entry-values))) - :entry-values (c? (eko ("popup ff") (subseq (tk-eval-list "font families") 4 10)))) + :entry-values (c? (subseq (tk-eval-list "font families") 4 10))) (mk-scale :id :font-size :md-value (c-in 14) --- /project/cells/cvsroot/Celtk/menu.lisp 2006/05/15 05:15:37 1.13 +++ /project/cells/cvsroot/Celtk/menu.lisp 2006/05/16 21:17:15 1.14 @@ -63,11 +63,11 @@ `(mk-menu :kids (c? (the-kids ,@submenus)))) (defmethod make-tk-instance :after ((self menu)) - (trc "make-tk-instance > traversing menu" self) + (trc nil "make-tk-instance > traversing menu" self) (fm-menu-traverse self (lambda (entry &aux (menu self)) (assert (typep entry 'menu-entry)) - (trc "make-tk-instance visiting menu entry" (path menu) entry) + (trc nil "make-tk-instance visiting menu entry" (path menu) entry) (tk-format `(:post-make-tk ,self) "~(~a~) add ~(~a~) ~{~(~a~) ~a~^ ~}" (path menu) (tk-class entry) @@ -273,11 +273,9 @@ :kids (c? (the-kids ;; don't worry, this flattens (loop for v in (entry-values .parent) collecting - (progn - (trc "popup-menubutton entry label" v (down$ v)) - (mk-menu-entry-radiobutton + (mk-menu-entry-radiobutton :label (down$ v) - :value v)))))))))) + :value v))))))))) (defobserver initial-value ((self popup-menubutton)) (when new-value --- /project/cells/cvsroot/Celtk/multichoice.lisp 2006/05/16 02:52:22 1.6 +++ /project/cells/cvsroot/Celtk/multichoice.lisp 2006/05/16 21:17:15 1.7 @@ -46,7 +46,7 @@ :yscrollcommand (c-in nil) :command (c? (format nil "event generate ~a <<do-on-command>> -data" (^path))) :on-command (lambda (self value) - (trc "hi scale" self value) + ;; (trc "hi scale" self value) (setf (^md-value) value)))) (defmethod make-tk-instance :after ((self scale)) --- /project/cells/cvsroot/Celtk/tk-interp.lisp 2006/05/16 02:52:22 1.8 +++ /project/cells/cvsroot/Celtk/tk-interp.lisp 2006/05/16 21:17:15 1.9 @@ -100,7 +100,7 @@ (Tcl_Init interp) (Tk_Init interp) - (format t "~%*** Tk_AppInit has been called.~%") + ;;(format t "~%*** Tk_AppInit has been called.~%") ;; Return OK (foreign-enum-value 'tcl-retcode-values :tcl-ok)) --- /project/cells/cvsroot/Celtk/widget.lisp 2006/05/16 02:52:22 1.6 +++ /project/cells/cvsroot/Celtk/widget.lisp 2006/05/16 21:17:15 1.7 @@ -73,13 +73,13 @@ (defobserver event-handler () (when new-value ;; \\\ work out how to unregister any old value (with-integrity (:client `(:post-make-tk ,self)) - (trc "creating event handler for" self) + (trc nil "creating event handler for" self) (tk-create-event-handler-ex self 'widget-event-handler -1)))) ;; // make this -1 more efficient (defun tk-create-event-handler-ex (widget callback-name &rest masks) (let ((self-tkwin (widget-to-tkwin widget))) (assert (plusp self-tkwin)) - (trc "setting up widget virtual-event handler" widget :tkwin self-tkwin) + (trc nil "setting up widget virtual-event handler" widget :tkwin self-tkwin) (tk-create-event-handler self-tkwin (apply 'foreign-masks-combine 'tk-event-mask masks) (get-callback callback-name)

1 0

[cells-cvs] CVS Celtk
by ktilton 16 May '06

16 May '06

Update of /project/cells/cvsroot/Celtk In directory clnet:/tmp/cvs-serv17807 Removed Files: gears.lisp Log Message:

1 0

[cells-cvs] CVS Celtk/gears
by ktilton 16 May '06

16 May '06

Update of /project/cells/cvsroot/Celtk/gears In directory clnet:/tmp/cvs-serv17766/gears Log Message: Directory /project/cells/cvsroot/Celtk/gears added to the repository

1 0

[cells-cvs] CVS gears
by ktilton 15 May '06

15 May '06

Update of /project/cells/cvsroot/gears In directory clnet:/tmp/cvs-serv27612 Modified Files: gears.lisp Log Message: Celtk2 alpha release --- /project/cells/cvsroot/gears/gears.lisp 2006/05/12 08:33:46 1.1 +++ /project/cells/cvsroot/gears/gears.lisp 2006/05/16 02:53:12 1.2 @@ -47,33 +47,29 @@ :timer-interval (c? (let ((n$ (md-value (fm-other :vtime)))) (format nil "~a" (max 1 (or (parse-integer n$ :junk-allowed t) 0))))) :double 1 ;; "yes" - :bindings (c? (list - (list '(ctk::|<1>| "%X %Y") - (lambda (self event root-x root-y) - (declare (ignorable self event root-x root-y)) - (RotStart self root-x root-y) - 0)) - (list '(ctk::|<B1-Motion>| "%X %Y") - (lambda (self event root-x root-y) - (declare (ignore event)) - (RotMove self root-x root-y) - 0)))))))))) + :event-handler (c? (lambda (self xe) + (case (tk-event-type (xsv type xe)) + (:virtualevent + (trc "canvas virtual" (xsv name xe))) + (:buttonpress + (RotStart self (xsv x-root xe) (xsv y-root xe))) + (:motionnotify + (RotMove self (xsv x-root xe) (xsv y-root xe))) + (:buttonrelease + (setf *startx* nil))))))))))) (defun RotStart (self x y) - ;(trc "Rotstart!!!" self x y) (setf *startx* x) (setf *starty* y) (setf *xangle0* (rotx self)) (setf *yangle0* (roty self))) (defun RotMove (self x y) - ;(trc "RotMove!!!!" self x y) - (setf *xangle* (+ *xangle0* (- x *startx*))) - (setf *yangle* (+ *yangle0* (- y *starty*))) - (setf (rotx self) *xangle*) - (assert (eql *xangle* (rotx self))) - (setf (roty self) *yangle*) - (trc nil "RotMove x y" *xangle* *yangle*)) + (when *startx* + (setf *xangle* (+ *xangle0* (- x *startx*))) + (setf *yangle* (+ *yangle0* (- y *starty*))) + (setf (rotx self) *xangle*) + (setf (roty self) *yangle*))) (defconstant +pif+ (coerce pi 'single-float)) @@ -138,6 +134,7 @@ (gl:load-identity) (gl:translate 0 0 -30)))) + (defmethod togl-display-using-class ((self gears) &aux (scale (scale (upper self gears-demo)))) (declare (ignorable scale))

1 0

← Newer
1
...
36
37
38
39
40
41
42
...
73
Older →

Jump to page:

2025

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

2004

2003

cells-cvs