[funds-cvs] r71 - in trunk/funds: src src/trees src/trees/heap tests tests/trees
abaine at common-lisp.net
abaine at common-lisp.net
Tue Jul 10 12:14:31 UTC 2007
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 #'<))
More information about the Funds-cvs
mailing list