July 2007 - funds-cvs@common-lisp.net - mailman3.common-lisp.net

[funds-cvs] r71 - in trunk/funds: src src/trees src/trees/heap tests tests/trees
by abaine＠common-lisp.net 10 Jul '07

10 Jul '07

Author: abaine Date: Tue Jul 10 08:14:29 2007 New Revision: 71 Modified: trunk/funds/src/package.lisp trunk/funds/src/queue.lisp trunk/funds/src/stack.lisp trunk/funds/src/trees/avl.lisp trunk/funds/src/trees/bt.lisp trunk/funds/src/trees/classes.lisp trunk/funds/src/trees/constructors.lisp trunk/funds/src/trees/heap/heap-empty-p.lisp trunk/funds/src/trees/heap/heap-first.lisp trunk/funds/src/trees/heap/heap-insert.lisp trunk/funds/src/trees/heap/heap-remove.lisp trunk/funds/src/trees/tree-as-alist.lisp trunk/funds/src/trees/tree-empty-p.lisp trunk/funds/src/trees/tree-find.lisp trunk/funds/src/trees/tree-height.lisp trunk/funds/src/trees/tree-insert.lisp trunk/funds/src/trees/tree-remove.lisp trunk/funds/src/trees/tree-weight.lisp trunk/funds/tests/package.lisp trunk/funds/tests/trees/avl-tree-test.lisp Log: Added boilerplate to .lisp files. Modified: trunk/funds/src/package.lisp ============================================================================== --- trunk/funds/src/package.lisp (original) +++ trunk/funds/src/package.lisp Tue Jul 10 08:14:29 2007 @@ -1,4 +1,20 @@ +;;;; +;;;; Copyright 2007 Andrew Baine +;;;; +;;;; Licensed under the Apache License, Version 2.0 (the "License"); +;;;; you may not use this file except in compliance with the License. +;;;; You may obtain a copy of the License at +;;;; +;;;; http://www.apache.org/licenses/LICENSE-2.0 +;;;; +;;;; Unless required by applicable law or agreed to in writing, software +;;;; distributed under the License is distributed on an "AS IS" BASIS, +;;;; WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. +;;;; See the License for the specific language governing permissions and +;;;; limitations under the License. +;;;; + (in-package :cl-user) (defpackage :funds Modified: trunk/funds/src/queue.lisp ============================================================================== --- trunk/funds/src/queue.lisp (original) +++ trunk/funds/src/queue.lisp Tue Jul 10 08:14:29 2007 @@ -1,4 +1,20 @@ +;;;; +;;;; Copyright 2007 Andrew Baine +;;;; +;;;; Licensed under the Apache License, Version 2.0 (the "License"); +;;;; you may not use this file except in compliance with the License. +;;;; You may obtain a copy of the License at +;;;; +;;;; http://www.apache.org/licenses/LICENSE-2.0 +;;;; +;;;; Unless required by applicable law or agreed to in writing, software +;;;; distributed under the License is distributed on an "AS IS" BASIS, +;;;; WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. +;;;; See the License for the specific language governing permissions and +;;;; limitations under the License. +;;;; + (in-package :funds) (defstruct queue Modified: trunk/funds/src/stack.lisp ============================================================================== --- trunk/funds/src/stack.lisp (original) +++ trunk/funds/src/stack.lisp Tue Jul 10 08:14:29 2007 @@ -1,4 +1,20 @@ +;;;; +;;;; Copyright 2007 Andrew Baine +;;;; +;;;; Licensed under the Apache License, Version 2.0 (the "License"); +;;;; you may not use this file except in compliance with the License. +;;;; You may obtain a copy of the License at +;;;; +;;;; http://www.apache.org/licenses/LICENSE-2.0 +;;;; +;;;; Unless required by applicable law or agreed to in writing, software +;;;; distributed under the License is distributed on an "AS IS" BASIS, +;;;; WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. +;;;; See the License for the specific language governing permissions and +;;;; limitations under the License. +;;;; + (in-package :funds) (defun make-stack () Modified: trunk/funds/src/trees/avl.lisp ============================================================================== --- trunk/funds/src/trees/avl.lisp (original) +++ trunk/funds/src/trees/avl.lisp Tue Jul 10 08:14:29 2007 @@ -1,4 +1,20 @@ +;;;; +;;;; Copyright 2007 Andrew Baine +;;;; +;;;; Licensed under the Apache License, Version 2.0 (the "License"); +;;;; you may not use this file except in compliance with the License. +;;;; You may obtain a copy of the License at +;;;; +;;;; http://www.apache.org/licenses/LICENSE-2.0 +;;;; +;;;; Unless required by applicable law or agreed to in writing, software +;;;; distributed under the License is distributed on an "AS IS" BASIS, +;;;; WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. +;;;; See the License for the specific language governing permissions and +;;;; limitations under the License. +;;;; + (in-package :funds) (defun balance (inside root outside &key heavy-side) Modified: trunk/funds/src/trees/bt.lisp ============================================================================== --- trunk/funds/src/trees/bt.lisp (original) +++ trunk/funds/src/trees/bt.lisp Tue Jul 10 08:14:29 2007 @@ -1,4 +1,20 @@ +;;;; +;;;; Copyright 2007 Andrew Baine +;;;; +;;;; Licensed under the Apache License, Version 2.0 (the "License"); +;;;; you may not use this file except in compliance with the License. +;;;; You may obtain a copy of the License at +;;;; +;;;; http://www.apache.org/licenses/LICENSE-2.0 +;;;; +;;;; Unless required by applicable law or agreed to in writing, software +;;;; distributed under the License is distributed on an "AS IS" BASIS, +;;;; WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. +;;;; See the License for the specific language governing permissions and +;;;; limitations under the License. +;;;; + (in-package :funds) (defun left-p (side) Modified: trunk/funds/src/trees/classes.lisp ============================================================================== --- trunk/funds/src/trees/classes.lisp (original) +++ trunk/funds/src/trees/classes.lisp Tue Jul 10 08:14:29 2007 @@ -1,4 +1,20 @@ +;;;; +;;;; Copyright 2007 Andrew Baine +;;;; +;;;; Licensed under the Apache License, Version 2.0 (the "License"); +;;;; you may not use this file except in compliance with the License. +;;;; You may obtain a copy of the License at +;;;; +;;;; http://www.apache.org/licenses/LICENSE-2.0 +;;;; +;;;; Unless required by applicable law or agreed to in writing, software +;;;; distributed under the License is distributed on an "AS IS" BASIS, +;;;; WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. +;;;; See the License for the specific language governing permissions and +;;;; limitations under the License. +;;;; + (in-package :funds) (defclass tree () Modified: trunk/funds/src/trees/constructors.lisp ============================================================================== --- trunk/funds/src/trees/constructors.lisp (original) +++ trunk/funds/src/trees/constructors.lisp Tue Jul 10 08:14:29 2007 @@ -1,4 +1,20 @@ +;;;; +;;;; Copyright 2007 Andrew Baine +;;;; +;;;; Licensed under the Apache License, Version 2.0 (the "License"); +;;;; you may not use this file except in compliance with the License. +;;;; You may obtain a copy of the License at +;;;; +;;;; http://www.apache.org/licenses/LICENSE-2.0 +;;;; +;;;; Unless required by applicable law or agreed to in writing, software +;;;; distributed under the License is distributed on an "AS IS" BASIS, +;;;; WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. +;;;; See the License for the specific language governing permissions and +;;;; limitations under the License. +;;;; + (in-package :funds) (defun make-bt-leaf () Modified: trunk/funds/src/trees/heap/heap-empty-p.lisp ============================================================================== --- trunk/funds/src/trees/heap/heap-empty-p.lisp (original) +++ trunk/funds/src/trees/heap/heap-empty-p.lisp Tue Jul 10 08:14:29 2007 @@ -1,4 +1,20 @@ +;;;; +;;;; Copyright 2007 Andrew Baine +;;;; +;;;; Licensed under the Apache License, Version 2.0 (the "License"); +;;;; you may not use this file except in compliance with the License. +;;;; You may obtain a copy of the License at +;;;; +;;;; http://www.apache.org/licenses/LICENSE-2.0 +;;;; +;;;; Unless required by applicable law or agreed to in writing, software +;;;; distributed under the License is distributed on an "AS IS" BASIS, +;;;; WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. +;;;; See the License for the specific language governing permissions and +;;;; limitations under the License. +;;;; + (in-package :funds) (defun heap-empty-p (heap) Modified: trunk/funds/src/trees/heap/heap-first.lisp ============================================================================== --- trunk/funds/src/trees/heap/heap-first.lisp (original) +++ trunk/funds/src/trees/heap/heap-first.lisp Tue Jul 10 08:14:29 2007 @@ -1,4 +1,20 @@ +;;;; +;;;; Copyright 2007 Andrew Baine +;;;; +;;;; Licensed under the Apache License, Version 2.0 (the "License"); +;;;; you may not use this file except in compliance with the License. +;;;; You may obtain a copy of the License at +;;;; +;;;; http://www.apache.org/licenses/LICENSE-2.0 +;;;; +;;;; Unless required by applicable law or agreed to in writing, software +;;;; distributed under the License is distributed on an "AS IS" BASIS, +;;;; WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. +;;;; See the License for the specific language governing permissions and +;;;; limitations under the License. +;;;; + (in-package :funds) (defun heap-first (heap) Modified: trunk/funds/src/trees/heap/heap-insert.lisp ============================================================================== --- trunk/funds/src/trees/heap/heap-insert.lisp (original) +++ trunk/funds/src/trees/heap/heap-insert.lisp Tue Jul 10 08:14:29 2007 @@ -1,4 +1,20 @@ +;;;; +;;;; Copyright 2007 Andrew Baine +;;;; +;;;; Licensed under the Apache License, Version 2.0 (the "License"); +;;;; you may not use this file except in compliance with the License. +;;;; You may obtain a copy of the License at +;;;; +;;;; http://www.apache.org/licenses/LICENSE-2.0 +;;;; +;;;; Unless required by applicable law or agreed to in writing, software +;;;; distributed under the License is distributed on an "AS IS" BASIS, +;;;; WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. +;;;; See the License for the specific language governing permissions and +;;;; limitations under the License. +;;;; + (in-package :funds) (defgeneric heap-insert (heap value priority &key order)) Modified: trunk/funds/src/trees/heap/heap-remove.lisp ============================================================================== --- trunk/funds/src/trees/heap/heap-remove.lisp (original) +++ trunk/funds/src/trees/heap/heap-remove.lisp Tue Jul 10 08:14:29 2007 @@ -1,4 +1,20 @@ +;;;; +;;;; Copyright 2007 Andrew Baine +;;;; +;;;; Licensed under the Apache License, Version 2.0 (the "License"); +;;;; you may not use this file except in compliance with the License. +;;;; You may obtain a copy of the License at +;;;; +;;;; http://www.apache.org/licenses/LICENSE-2.0 +;;;; +;;;; Unless required by applicable law or agreed to in writing, software +;;;; distributed under the License is distributed on an "AS IS" BASIS, +;;;; WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. +;;;; See the License for the specific language governing permissions and +;;;; limitations under the License. +;;;; + (in-package :funds) (defmethod heap-remove ((heap heap-leaf) &key order) Modified: trunk/funds/src/trees/tree-as-alist.lisp ============================================================================== --- trunk/funds/src/trees/tree-as-alist.lisp (original) +++ trunk/funds/src/trees/tree-as-alist.lisp Tue Jul 10 08:14:29 2007 @@ -1,4 +1,20 @@ +;;;; +;;;; Copyright 2007 Andrew Baine +;;;; +;;;; Licensed under the Apache License, Version 2.0 (the "License"); +;;;; you may not use this file except in compliance with the License. +;;;; You may obtain a copy of the License at +;;;; +;;;; http://www.apache.org/licenses/LICENSE-2.0 +;;;; +;;;; Unless required by applicable law or agreed to in writing, software +;;;; distributed under the License is distributed on an "AS IS" BASIS, +;;;; WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. +;;;; See the License for the specific language governing permissions and +;;;; limitations under the License. +;;;; + (in-package :funds) (defgeneric tree-as-alist (tree) Modified: trunk/funds/src/trees/tree-empty-p.lisp ============================================================================== --- trunk/funds/src/trees/tree-empty-p.lisp (original) +++ trunk/funds/src/trees/tree-empty-p.lisp Tue Jul 10 08:14:29 2007 @@ -1,4 +1,20 @@ +;;;; +;;;; Copyright 2007 Andrew Baine +;;;; +;;;; Licensed under the Apache License, Version 2.0 (the "License"); +;;;; you may not use this file except in compliance with the License. +;;;; You may obtain a copy of the License at +;;;; +;;;; http://www.apache.org/licenses/LICENSE-2.0 +;;;; +;;;; Unless required by applicable law or agreed to in writing, software +;;;; distributed under the License is distributed on an "AS IS" BASIS, +;;;; WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. +;;;; See the License for the specific language governing permissions and +;;;; limitations under the License. +;;;; + (in-package :funds) (defgeneric tree-empty-p (tree) Modified: trunk/funds/src/trees/tree-find.lisp ============================================================================== --- trunk/funds/src/trees/tree-find.lisp (original) +++ trunk/funds/src/trees/tree-find.lisp Tue Jul 10 08:14:29 2007 @@ -1,4 +1,20 @@ +;;;; +;;;; Copyright 2007 Andrew Baine +;;;; +;;;; Licensed under the Apache License, Version 2.0 (the "License"); +;;;; you may not use this file except in compliance with the License. +;;;; You may obtain a copy of the License at +;;;; +;;;; http://www.apache.org/licenses/LICENSE-2.0 +;;;; +;;;; Unless required by applicable law or agreed to in writing, software +;;;; distributed under the License is distributed on an "AS IS" BASIS, +;;;; WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. +;;;; See the License for the specific language governing permissions and +;;;; limitations under the License. +;;;; + (in-package :funds) (defgeneric tree-find (tree key &key test order) Modified: trunk/funds/src/trees/tree-height.lisp ============================================================================== --- trunk/funds/src/trees/tree-height.lisp (original) +++ trunk/funds/src/trees/tree-height.lisp Tue Jul 10 08:14:29 2007 @@ -1,4 +1,20 @@ +;;;; +;;;; Copyright 2007 Andrew Baine +;;;; +;;;; Licensed under the Apache License, Version 2.0 (the "License"); +;;;; you may not use this file except in compliance with the License. +;;;; You may obtain a copy of the License at +;;;; +;;;; http://www.apache.org/licenses/LICENSE-2.0 +;;;; +;;;; Unless required by applicable law or agreed to in writing, software +;;;; distributed under the License is distributed on an "AS IS" BASIS, +;;;; WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. +;;;; See the License for the specific language governing permissions and +;;;; limitations under the License. +;;;; + (in-package :funds) (defgeneric tree-height (tree) Modified: trunk/funds/src/trees/tree-insert.lisp ============================================================================== --- trunk/funds/src/trees/tree-insert.lisp (original) +++ trunk/funds/src/trees/tree-insert.lisp Tue Jul 10 08:14:29 2007 @@ -1,4 +1,20 @@ +;;;; +;;;; Copyright 2007 Andrew Baine +;;;; +;;;; Licensed under the Apache License, Version 2.0 (the "License"); +;;;; you may not use this file except in compliance with the License. +;;;; You may obtain a copy of the License at +;;;; +;;;; http://www.apache.org/licenses/LICENSE-2.0 +;;;; +;;;; Unless required by applicable law or agreed to in writing, software +;;;; distributed under the License is distributed on an "AS IS" BASIS, +;;;; WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. +;;;; See the License for the specific language governing permissions and +;;;; limitations under the License. +;;;; + (in-package :funds) (defgeneric tree-insert (tree key value &key test order) Modified: trunk/funds/src/trees/tree-remove.lisp ============================================================================== --- trunk/funds/src/trees/tree-remove.lisp (original) +++ trunk/funds/src/trees/tree-remove.lisp Tue Jul 10 08:14:29 2007 @@ -1,4 +1,20 @@ +;;;; +;;;; Copyright 2007 Andrew Baine +;;;; +;;;; Licensed under the Apache License, Version 2.0 (the "License"); +;;;; you may not use this file except in compliance with the License. +;;;; You may obtain a copy of the License at +;;;; +;;;; http://www.apache.org/licenses/LICENSE-2.0 +;;;; +;;;; Unless required by applicable law or agreed to in writing, software +;;;; distributed under the License is distributed on an "AS IS" BASIS, +;;;; WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. +;;;; See the License for the specific language governing permissions and +;;;; limitations under the License. +;;;; + (in-package :funds) (defgeneric tree-remove (tree key &key test order) Modified: trunk/funds/src/trees/tree-weight.lisp ============================================================================== --- trunk/funds/src/trees/tree-weight.lisp (original) +++ trunk/funds/src/trees/tree-weight.lisp Tue Jul 10 08:14:29 2007 @@ -1,4 +1,20 @@ +;;;; +;;;; Copyright 2007 Andrew Baine +;;;; +;;;; Licensed under the Apache License, Version 2.0 (the "License"); +;;;; you may not use this file except in compliance with the License. +;;;; You may obtain a copy of the License at +;;;; +;;;; http://www.apache.org/licenses/LICENSE-2.0 +;;;; +;;;; Unless required by applicable law or agreed to in writing, software +;;;; distributed under the License is distributed on an "AS IS" BASIS, +;;;; WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. +;;;; See the License for the specific language governing permissions and +;;;; limitations under the License. +;;;; + (in-package :funds) (defgeneric tree-weight (tree) Modified: trunk/funds/tests/package.lisp ============================================================================== --- trunk/funds/tests/package.lisp (original) +++ trunk/funds/tests/package.lisp Tue Jul 10 08:14:29 2007 @@ -1,4 +1,20 @@ +;;;; +;;;; Copyright 2007 Andrew Baine +;;;; +;;;; Licensed under the Apache License, Version 2.0 (the "License"); +;;;; you may not use this file except in compliance with the License. +;;;; You may obtain a copy of the License at +;;;; +;;;; http://www.apache.org/licenses/LICENSE-2.0 +;;;; +;;;; Unless required by applicable law or agreed to in writing, software +;;;; distributed under the License is distributed on an "AS IS" BASIS, +;;;; WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. +;;;; See the License for the specific language governing permissions and +;;;; limitations under the License. +;;;; + (in-package :cl-user) (defpackage funds-tests Modified: trunk/funds/tests/trees/avl-tree-test.lisp ============================================================================== --- trunk/funds/tests/trees/avl-tree-test.lisp (original) +++ trunk/funds/tests/trees/avl-tree-test.lisp Tue Jul 10 08:14:29 2007 @@ -1,4 +1,20 @@ +;;;; +;;;; Copyright 2007 Andrew Baine +;;;; +;;;; Licensed under the Apache License, Version 2.0 (the "License"); +;;;; you may not use this file except in compliance with the License. +;;;; You may obtain a copy of the License at +;;;; +;;;; http://www.apache.org/licenses/LICENSE-2.0 +;;;; +;;;; Unless required by applicable law or agreed to in writing, software +;;;; distributed under the License is distributed on an "AS IS" BASIS, +;;;; WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. +;;;; See the License for the specific language governing permissions and +;;;; limitations under the License. +;;;; + (in-package :funds.tests.trees) (defun random-tree (&key (test #'eql) (order #'<))

1 0

[funds-cvs] r70 - trunk/funds
by abaine＠common-lisp.net 10 Jul '07

10 Jul '07

Author: abaine Date: Tue Jul 10 08:09:23 2007 New Revision: 70 Modified: trunk/funds/license.txt Log: Fixed typo in license. Modified: trunk/funds/license.txt ============================================================================== --- trunk/funds/license.txt (original) +++ trunk/funds/license.txt Tue Jul 10 08:09:23 2007 @@ -1,14 +1,16 @@ -;;;; Copyright 2007 Andrew Baine ;;;; -;;;; Licensed under the Apache License, Version 2.0 (the "License"); you -;;;; may not use this file except in compliance with the License. You may -;;;; obtain a copy of the License at -;;;; -;;;; http://www.apache.org/licenses/LICENSE-2.0 Unless required by -;;;; -;;;; applicable law or agreed to in writing, software distributed under the -;;;; License is distributed on an "AS IS" BASIS, WITHOUT WARRANTIES OR -;;;; CONDITIONS OF ANY KIND, either express or implied. See the License for -;;;; the specific language governing permissions and limitations under the -;;;; License. +;;;; Copyright 2007 Andrew Baine +;;;; +;;;; Licensed under the Apache License, Version 2.0 (the "License"); +;;;; you may not use this file except in compliance with the License. +;;;; You may obtain a copy of the License at +;;;; +;;;; http://www.apache.org/licenses/LICENSE-2.0 +;;;; +;;;; Unless required by applicable law or agreed to in writing, software +;;;; distributed under the License is distributed on an "AS IS" BASIS, +;;;; WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. +;;;; See the License for the specific language governing permissions and +;;;; limitations under the License. +;;;;

1 0

[funds-cvs] r69 - trunk/funds
by abaine＠common-lisp.net 10 Jul '07

10 Jul '07

Author: abaine Date: Tue Jul 10 08:00:38 2007 New Revision: 69 Modified: trunk/funds/license.txt Log: Apache license boilerplate added. Modified: trunk/funds/license.txt ============================================================================== --- trunk/funds/license.txt (original) +++ trunk/funds/license.txt Tue Jul 10 08:00:38 2007 @@ -1,22 +1,14 @@ -The MIT License - -Copyright (c) 2007 Andrew Baine <andrew.baine(a)gmail.com> - -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. +;;;; Copyright 2007 Andrew Baine +;;;; +;;;; Licensed under the Apache License, Version 2.0 (the "License"); you +;;;; may not use this file except in compliance with the License. You may +;;;; obtain a copy of the License at +;;;; +;;;; http://www.apache.org/licenses/LICENSE-2.0 Unless required by +;;;; +;;;; applicable law or agreed to in writing, software distributed under the +;;;; License is distributed on an "AS IS" BASIS, WITHOUT WARRANTIES OR +;;;; CONDITIONS OF ANY KIND, either express or implied. See the License for +;;;; the specific language governing permissions and limitations under the +;;;; License.

1 0

[funds-cvs] r68 - trunk/public_html
by abaine＠common-lisp.net 10 Jul '07

10 Jul '07

Author: abaine Date: Tue Jul 10 07:36:55 2007 New Revision: 68 Modified: trunk/public_html/index.html Log: Switched to apache license. Modified: trunk/public_html/index.html ============================================================================== --- trunk/public_html/index.html (original) +++ trunk/public_html/index.html Tue Jul 10 07:36:55 2007 @@ -16,8 +16,8 @@ <p>The goal of the Funds project is to provide portable, purely functional, efficient data structures written in Common Lisp. Funds is open source software released under the - <a href="http://www.opensource.org/licenses/mit-license.php"> - MIT License + <a href="http://www.apache.org/licenses/LICENSE-2.0"> + Apache License </a>.</p> <h3>Mailing Lists</h3> @@ -40,9 +40,10 @@ development as a <a href="http://code.google.com/soc/lispnyc/appinfo.html?csaid=F098323F679401F6"> Google Summer of Code Project</a>, and a release is planned for - July 13, 2007. + August 20, 2007. In the meantime, the sources are available from + subversion repository. -</p> + </p> <h3>Project members</h3> <ul>

1 0

[funds-cvs] r67 - trunk/funds
by abaine＠common-lisp.net 08 Jul '07

08 Jul '07

Author: abaine Date: Sun Jul 8 00:36:03 2007 New Revision: 67 Modified: trunk/funds/issues.txt Log: Found another issue. Modified: trunk/funds/issues.txt ============================================================================== --- trunk/funds/issues.txt (original) +++ trunk/funds/issues.txt Sun Jul 8 00:36:03 2007 @@ -10,4 +10,3 @@ 4. Documentation -- sparse in some files, nonexistent in others. -

1 0

[funds-cvs] r66 - trunk/funds
by abaine＠common-lisp.net 08 Jul '07

08 Jul '07

Author: abaine Date: Sun Jul 8 00:35:18 2007 New Revision: 66 Added: trunk/funds/README Log: Added terse instructions. Added: trunk/funds/README ============================================================================== --- (empty file) +++ trunk/funds/README Sun Jul 8 00:35:18 2007 @@ -0,0 +1,10 @@ + +Funds is designed to be loaded with asdf, available from +http://cclan.cvs.sourceforge.net/*checkout*/cclan/asdf/asdf.lisp. + +To load the system, type at a lisp prompt: + + > (asdf-operate 'asdf:load-op 'funds) + +To see the publicly exported symbols in package "FUNDS," look at +the file funds/src/package.lisp. \ No newline at end of file

1 0

[funds-cvs] r65 - trunk/funds
by abaine＠common-lisp.net 08 Jul '07

08 Jul '07

Author: abaine Date: Sun Jul 8 00:34:52 2007 New Revision: 65 Added: trunk/funds/issues.txt Log: issues.txt has some things that have been bugging me. Added: trunk/funds/issues.txt ============================================================================== --- (empty file) +++ trunk/funds/issues.txt Sun Jul 8 00:34:52 2007 @@ -0,0 +1,13 @@ + +1. Test suite has to be updated to test avl-tree and heap. + +2. What is the implication of removing from an empty tree. Probably +just returning the same empty tree. But perhaps it should +signal an error? + +3. Build dictionary on top of avl tree. Build functional array on top +of binary tree. + +4. Documentation -- sparse in some files, nonexistent in others. + +

1 0

[funds-cvs] r64 - trunk/funds/src/trees
by abaine＠common-lisp.net 08 Jul '07

08 Jul '07

Author: abaine Date: Sat Jul 7 23:29:15 2007 New Revision: 64 Modified: trunk/funds/src/trees/tree-remove.lisp Log: Added declaration to avoid compiler warnings. Modified: trunk/funds/src/trees/tree-remove.lisp ============================================================================== --- trunk/funds/src/trees/tree-remove.lisp (original) +++ trunk/funds/src/trees/tree-remove.lisp Sat Jul 7 23:29:15 2007 @@ -20,6 +20,7 @@ (t (remove-side tree key :test test :order order :side :right)))) (defmethod tree-remove ((tree avl-tree) key &key (test #'eql) (order #'<)) + (declare (ignore test order)) (let* ((temp (call-next-method)) (heavy-side (if (heavier-p temp :side :left) :left

1 0

[funds-cvs] r63 - trunk/funds/src
by abaine＠common-lisp.net 08 Jul '07

08 Jul '07

Author: abaine Date: Sat Jul 7 23:25:10 2007 New Revision: 63 Modified: trunk/funds/src/package.lisp Log: Changed defpackage form to funds. Modified: trunk/funds/src/package.lisp ============================================================================== --- trunk/funds/src/package.lisp (original) +++ trunk/funds/src/package.lisp Sat Jul 7 23:25:10 2007 @@ -1,7 +1,7 @@ (in-package :cl-user) -(defpackage :funds-clos +(defpackage :funds (:use :cl) (:export :make-avl-tree :make-binary-tree

1 0

[funds-cvs] r62 - in trunk/funds/src: . trees trees/heap
by abaine＠common-lisp.net 08 Jul '07

08 Jul '07

Author: abaine Date: Sat Jul 7 23:23:18 2007 New Revision: 62 Modified: trunk/funds/src/queue.lisp trunk/funds/src/stack.lisp trunk/funds/src/trees/avl.lisp trunk/funds/src/trees/bt.lisp trunk/funds/src/trees/classes.lisp trunk/funds/src/trees/constructors.lisp trunk/funds/src/trees/heap/heap-empty-p.lisp trunk/funds/src/trees/heap/heap-first.lisp trunk/funds/src/trees/heap/heap-insert.lisp trunk/funds/src/trees/heap/heap-remove.lisp trunk/funds/src/trees/tree-as-alist.lisp trunk/funds/src/trees/tree-empty-p.lisp trunk/funds/src/trees/tree-find.lisp trunk/funds/src/trees/tree-height.lisp trunk/funds/src/trees/tree-insert.lisp trunk/funds/src/trees/tree-remove.lisp trunk/funds/src/trees/tree-weight.lisp Log: Changed all in-package forms to use funds rather than funds-clos. Modified: trunk/funds/src/queue.lisp ============================================================================== --- trunk/funds/src/queue.lisp (original) +++ trunk/funds/src/queue.lisp Sat Jul 7 23:23:18 2007 @@ -1,5 +1,5 @@ -(in-package :funds-clos) +(in-package :funds) (defstruct queue (next-priority 0) Modified: trunk/funds/src/stack.lisp ============================================================================== --- trunk/funds/src/stack.lisp (original) +++ trunk/funds/src/stack.lisp Sat Jul 7 23:23:18 2007 @@ -1,5 +1,5 @@ -(in-package :funds-clos) +(in-package :funds) (defun make-stack () "An empty stack." Modified: trunk/funds/src/trees/avl.lisp ============================================================================== --- trunk/funds/src/trees/avl.lisp (original) +++ trunk/funds/src/trees/avl.lisp Sat Jul 7 23:23:18 2007 @@ -1,5 +1,5 @@ -(in-package :funds-clos) +(in-package :funds) (defun balance (inside root outside &key heavy-side) (let ((other-side (other-side heavy-side))) Modified: trunk/funds/src/trees/bt.lisp ============================================================================== --- trunk/funds/src/trees/bt.lisp (original) +++ trunk/funds/src/trees/bt.lisp Sat Jul 7 23:23:18 2007 @@ -1,5 +1,5 @@ -(in-package :funds-clos) +(in-package :funds) (defun left-p (side) (eq side :left)) Modified: trunk/funds/src/trees/classes.lisp ============================================================================== --- trunk/funds/src/trees/classes.lisp (original) +++ trunk/funds/src/trees/classes.lisp Sat Jul 7 23:23:18 2007 @@ -1,5 +1,5 @@ -(in-package :funds-clos) +(in-package :funds) (defclass tree () () Modified: trunk/funds/src/trees/constructors.lisp ============================================================================== --- trunk/funds/src/trees/constructors.lisp (original) +++ trunk/funds/src/trees/constructors.lisp Sat Jul 7 23:23:18 2007 @@ -1,5 +1,5 @@ -(in-package :funds-clos) +(in-package :funds) (defun make-bt-leaf () (make-instance 'bt-leaf)) Modified: trunk/funds/src/trees/heap/heap-empty-p.lisp ============================================================================== --- trunk/funds/src/trees/heap/heap-empty-p.lisp (original) +++ trunk/funds/src/trees/heap/heap-empty-p.lisp Sat Jul 7 23:23:18 2007 @@ -1,5 +1,5 @@ -(in-package :funds-clos) +(in-package :funds) (defun heap-empty-p (heap) (tree-empty-p heap)) \ No newline at end of file Modified: trunk/funds/src/trees/heap/heap-first.lisp ============================================================================== --- trunk/funds/src/trees/heap/heap-first.lisp (original) +++ trunk/funds/src/trees/heap/heap-first.lisp Sat Jul 7 23:23:18 2007 @@ -1,5 +1,5 @@ -(in-package :funds-clos) +(in-package :funds) (defun heap-first (heap) (bt-value heap)) Modified: trunk/funds/src/trees/heap/heap-insert.lisp ============================================================================== --- trunk/funds/src/trees/heap/heap-insert.lisp (original) +++ trunk/funds/src/trees/heap/heap-insert.lisp Sat Jul 7 23:23:18 2007 @@ -1,5 +1,5 @@ -(in-package :funds-clos) +(in-package :funds) (defgeneric heap-insert (heap value priority &key order)) Modified: trunk/funds/src/trees/heap/heap-remove.lisp ============================================================================== --- trunk/funds/src/trees/heap/heap-remove.lisp (original) +++ trunk/funds/src/trees/heap/heap-remove.lisp Sat Jul 7 23:23:18 2007 @@ -1,5 +1,5 @@ -(in-package :funds-clos) +(in-package :funds) (defmethod heap-remove ((heap heap-leaf) &key order) (declare (ignore order)) Modified: trunk/funds/src/trees/tree-as-alist.lisp ============================================================================== --- trunk/funds/src/trees/tree-as-alist.lisp (original) +++ trunk/funds/src/trees/tree-as-alist.lisp Sat Jul 7 23:23:18 2007 @@ -1,5 +1,5 @@ -(in-package :funds-clos) +(in-package :funds) (defgeneric tree-as-alist (tree) (:documentation Modified: trunk/funds/src/trees/tree-empty-p.lisp ============================================================================== --- trunk/funds/src/trees/tree-empty-p.lisp (original) +++ trunk/funds/src/trees/tree-empty-p.lisp Sat Jul 7 23:23:18 2007 @@ -1,5 +1,5 @@ -(in-package :funds-clos) +(in-package :funds) (defgeneric tree-empty-p (tree) (:documentation Modified: trunk/funds/src/trees/tree-find.lisp ============================================================================== --- trunk/funds/src/trees/tree-find.lisp (original) +++ trunk/funds/src/trees/tree-find.lisp Sat Jul 7 23:23:18 2007 @@ -1,5 +1,5 @@ -(in-package :funds-clos) +(in-package :funds) (defgeneric tree-find (tree key &key test order) (:documentation Modified: trunk/funds/src/trees/tree-height.lisp ============================================================================== --- trunk/funds/src/trees/tree-height.lisp (original) +++ trunk/funds/src/trees/tree-height.lisp Sat Jul 7 23:23:18 2007 @@ -1,5 +1,5 @@ -(in-package :funds-clos) +(in-package :funds) (defgeneric tree-height (tree) (:documentation "The height of the given tree.")) Modified: trunk/funds/src/trees/tree-insert.lisp ============================================================================== --- trunk/funds/src/trees/tree-insert.lisp (original) +++ trunk/funds/src/trees/tree-insert.lisp Sat Jul 7 23:23:18 2007 @@ -1,5 +1,5 @@ -(in-package :funds-clos) +(in-package :funds) (defgeneric tree-insert (tree key value &key test order) (:documentation Modified: trunk/funds/src/trees/tree-remove.lisp ============================================================================== --- trunk/funds/src/trees/tree-remove.lisp (original) +++ trunk/funds/src/trees/tree-remove.lisp Sat Jul 7 23:23:18 2007 @@ -1,5 +1,5 @@ -(in-package :funds-clos) +(in-package :funds) (defgeneric tree-remove (tree key &key test order) (:documentation Modified: trunk/funds/src/trees/tree-weight.lisp ============================================================================== --- trunk/funds/src/trees/tree-weight.lisp (original) +++ trunk/funds/src/trees/tree-weight.lisp Sat Jul 7 23:23:18 2007 @@ -1,5 +1,5 @@ -(in-package :funds-clos) +(in-package :funds) (defgeneric tree-weight (tree) (:documentation

1 0