Browse files

initial

  • Loading branch information...
0 parents commit de3be0657f9a4f542af81205f3ccc89aebe179da @sake committed Feb 6, 2010
Showing with 208 additions and 0 deletions.
  1. +45 −0 cl-treemaps.asd
  2. +45 −0 cl-treempas-test.asd
  3. +30 −0 src/interface.lisp
  4. +25 −0 src/package.lisp
  5. +23 −0 test/package.lisp
  6. +22 −0 test/suites.lisp
  7. +18 −0 test/testcases.lisp
45 cl-treemaps.asd
@@ -0,0 +1,45 @@
+;;; cl-treemaps - Common LISP binary trees
+;;; Copyright (C) 2010 Tobias Wich <tobias.wich@electrologic.org>
+;;;
+;;; This library is free software; you can redistribute it and/or
+;;; modify it under the terms of the GNU Lesser General Public
+;;; License as published by the Free Software Foundation; either
+;;; version 2.1 of the License, or (at your option) any later version.
+;;;
+;;; This library is distributed in the hope that it will be useful,
+;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
+;;; Lesser General Public License for more details.
+;;;
+;;; You should have received a copy of the GNU Lesser General Public
+;;; License along with this library; if not, write to the Free Software
+;;; Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
+
+(in-package :cl-user)
+
+(defpackage cl-treemaps-system
+ (:use :cl :asdf))
+
+(in-package :cl-treemaps-system)
+
+(defsystem cl-treemaps
+ :name "cl-treemaps"
+ :description "Common Lisp binary trees"
+; :long-description "Clon is a name derived from JSON and is in fact a object persitance layer which uses an
+; underlying database technology to realise the persitance."
+ :author "Tobias Wich <tobias.wich@electrologic.org>"
+ :version "0.1"
+ :license "BSD"
+; :depends-on (flexi-streams ieee-floats cl-containers)
+ :components
+ ((:module src
+ :serial t
+ :components
+ ((:file "package")
+ (:file "interface")
+ (:file "red-black")))))
+
+
+;; method to call tests
+(defmethod perform ((o test-op) (c (eql (find-system 'cl-treemaps))))
+ (operate 'test-op 'cl-treemaps-test))
45 cl-treempas-test.asd
@@ -0,0 +1,45 @@
+;;; cl-treemaps - Common LISP binary trees
+;;; Copyright (C) 2010 Tobias Wich <tobias.wich@electrologic.org>
+;;;
+;;; This library is free software; you can redistribute it and/or
+;;; modify it under the terms of the GNU Lesser General Public
+;;; License as published by the Free Software Foundation; either
+;;; version 2.1 of the License, or (at your option) any later version.
+;;;
+;;; This library is distributed in the hope that it will be useful,
+;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
+;;; Lesser General Public License for more details.
+;;;
+;;; You should have received a copy of the GNU Lesser General Public
+;;; License along with this library; if not, write to the Free Software
+;;; Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
+
+(in-package :cl-user)
+
+(defpackage cl-treemaps-test-system
+ (:use :cl :asdf))
+
+(in-package :cl-treemaps-test-system)
+
+(defsystem cl-treemaps-test
+ :name "cl-treemaps-test"
+ :description "Common LISP binary trees - Testpackage"
+ :long-description "Test system for cl-treemaps."
+ :author "Tobias Wich <tobias.wich@electrologic.org>"
+ :version "0.1"
+ :license "BSD"
+ :depends-on (cl-treemaps FiveAM)
+ :components
+ ((:module test
+ :serial t
+ :components
+ ((:file "package")
+ (:file "testcases")
+ (:file "suites")))))
+
+
+;; method to call tests
+(defmethod perform ((o test-op) (c (eql (find-system 'cl-treemaps-test))))
+ (operate 'load-op c)
+ (funcall (intern "RUN-ALL-SUITES" :cl-treemaps-test))) ; important: string must be uppercase to match symbol
30 src/interface.lisp
@@ -0,0 +1,30 @@
+;;; cl-treemaps - Common LISP binary trees
+;;; Copyright (C) 2010 Tobias Wich <tobias.wich@electrologic.org>
+;;;
+;;; This library is free software; you can redistribute it and/or
+;;; modify it under the terms of the GNU Lesser General Public
+;;; License as published by the Free Software Foundation; either
+;;; version 2.1 of the License, or (at your option) any later version.
+;;;
+;;; This library is distributed in the hope that it will be useful,
+;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
+;;; Lesser General Public License for more details.
+;;;
+;;; You should have received a copy of the GNU Lesser General Public
+;;; License along with this library; if not, write to the Free Software
+;;; Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
+
+(in-package :cl-treemaps)
+
+(defgeneric make-tree ()
+ (:documentation ""))
+
+(defgeneric get-tree-entry ()
+ (:documentation ""))
+
+(defgeneric del-tree-entry ()
+ (:documentation ""))
+
+(defgeneric clr-tree ()
+ (:documentation ""))
25 src/package.lisp
@@ -0,0 +1,25 @@
+;;; cl-treemaps - Common LISP binary trees
+;;; Copyright (C) 2010 Tobias Wich <tobias.wich@electrologic.org>
+;;;
+;;; This library is free software; you can redistribute it and/or
+;;; modify it under the terms of the GNU Lesser General Public
+;;; License as published by the Free Software Foundation; either
+;;; version 2.1 of the License, or (at your option) any later version.
+;;;
+;;; This library is distributed in the hope that it will be useful,
+;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
+;;; Lesser General Public License for more details.
+;;;
+;;; You should have received a copy of the GNU Lesser General Public
+;;; License along with this library; if not, write to the Free Software
+;;; Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
+
+(in-package :cl-user)
+
+
+(defpackage clon-db
+ (:documentation "Common Lisp binary trees")
+ (:use :cl)
+ ;; tree operations
+ (:export make-tree get-tree-entry del-tree-entry clr-tree))
23 test/package.lisp
@@ -0,0 +1,23 @@
+;;; cl-treemaps - Common LISP binary trees
+;;; Copyright (C) 2010 Tobias Wich <tobias.wich@electrologic.org>
+;;;
+;;; This library is free software; you can redistribute it and/or
+;;; modify it under the terms of the GNU Lesser General Public
+;;; License as published by the Free Software Foundation; either
+;;; version 2.1 of the License, or (at your option) any later version.
+;;;
+;;; This library is distributed in the hope that it will be useful,
+;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
+;;; Lesser General Public License for more details.
+;;;
+;;; You should have received a copy of the GNU Lesser General Public
+;;; License along with this library; if not, write to the Free Software
+;;; Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
+
+(in-package :cl-user)
+
+
+(defpackage cl-treemaps-test
+ (:use :cl :cl-treemaps :FiveAM)
+ (:export run-all-suites))
22 test/suites.lisp
@@ -0,0 +1,22 @@
+;;; cl-treemaps - Common LISP binary trees
+;;; Copyright (C) 2010 Tobias Wich <tobias.wich@electrologic.org>
+;;;
+;;; This library is free software; you can redistribute it and/or
+;;; modify it under the terms of the GNU Lesser General Public
+;;; License as published by the Free Software Foundation; either
+;;; version 2.1 of the License, or (at your option) any later version.
+;;;
+;;; This library is distributed in the hope that it will be useful,
+;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
+;;; Lesser General Public License for more details.
+;;;
+;;; You should have received a copy of the GNU Lesser General Public
+;;; License along with this library; if not, write to the Free Software
+;;; Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
+
+(in-package :clon-test)
+
+
+(defun run-all-suites ()
+ (run-clon-db-tests))
18 test/testcases.lisp
@@ -0,0 +1,18 @@
+;;; cl-treemaps - Common LISP binary trees
+;;; Copyright (C) 2010 Tobias Wich <tobias.wich@electrologic.org>
+;;;
+;;; This library is free software; you can redistribute it and/or
+;;; modify it under the terms of the GNU Lesser General Public
+;;; License as published by the Free Software Foundation; either
+;;; version 2.1 of the License, or (at your option) any later version.
+;;;
+;;; This library is distributed in the hope that it will be useful,
+;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
+;;; Lesser General Public License for more details.
+;;;
+;;; You should have received a copy of the GNU Lesser General Public
+;;; License along with this library; if not, write to the Free Software
+;;; Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
+
+(in-package :clon-test)

0 comments on commit de3be06

Please sign in to comment.