X-Git-Url: http://git.kpe.io/?p=clsql.git;a=blobdiff_plain;f=clsql.asd;h=e891452f4ac21ee1006569f96da7b64508ce57d1;hp=2890db90e0f67c83b3d0196f440408fca124d1d9;hb=8a8ee2d7d791b7a3efaed06420802a925d16fca3;hpb=2434b58ef00a7f6c5915c86b25a891c4adda79e4 diff --git a/clsql.asd b/clsql.asd index 2890db9..e891452 100644 --- a/clsql.asd +++ b/clsql.asd @@ -2,38 +2,72 @@ ;;;; ************************************************************************* ;;;; FILE IDENTIFICATION ;;;; -;;;; Name: clsql.system -;;;; Purpose: Defsystem-3/4 for CLSQL -;;;; Programmer: Kevin M. Rosenberg -;;;; Date Started: Feb 2002 +;;;; Name: clsql.asd +;;;; Purpose: System definition for CLSQL-CLASSIC +;;;; Authors: Marcus Pearce and Kevin M. Rosenberg +;;;; Created: March 2004 ;;;; -;;;; $Id: clsql.asd,v 1.8 2002/09/18 07:50:01 kevin Exp $ -;;;; -;;;; This file, part of CLSQL, is Copyright (c) 2002 by Kevin M. Rosenberg +;;;; $Id$ ;;;; ;;;; CLSQL users are granted the rights to distribute and use this software ;;;; as governed by the terms of the Lisp Lesser GNU Public License ;;;; (http://opensource.franz.com/preamble.html), also known as the LLGPL. ;;;; ************************************************************************* -(in-package :asdf) +(in-package #:cl-user) +(defpackage #:clsql-system (:use #:asdf #:cl)) +(in-package #:clsql-system) -(defsystem clsql - :perform (load-op :after (op clsql) - (pushnew :clsql cl:*features*)) - :components - ((:module :sql - :components - ((:file "package") - (:file "pool" :depends-on ("package")) - (:file "loop-extension") - (:file "sql" :depends-on ("pool")) - (:file "transactions" :depends-on ("sql")) - (:file "functional" :depends-on ("sql")) - (:file "usql" :depends-on ("sql"))))) - :depends-on (:clsql-base) - ) +(defsystem #:clsql + :name "CLSQL" + :author "Kevin Rosenberg " + :maintainer "Kevin M. Rosenberg " + :licence "Lessor Lisp General Public License" + :description "Common Lisp SQL Interface library" + :long-description "A Common Lisp interface to SQL RDBMS based on +the Xanalys CommonSQL interface for Lispworks. It depends on the +low-level database interfaces as well as a functional and an object +oriented interface." + :components + ((:module sql + :components + ((:module :base + :pathname "" + :components + ((:file "cmucl-compat") + (:file "package") + (:file "utils" :depends-on ("package" "db-interface")) + (:file "base-classes" :depends-on ("package")) + (:file "conditions" :depends-on ("base-classes")) + (:file "db-interface" :depends-on ("conditions")) + (:file "initialize" :depends-on ("db-interface" "utils")) + (:file "loop-extension" :depends-on ("db-interface")) + (:file "time" :depends-on ("package")) + (:file "database" :depends-on ("initialize")) + (:file "recording" :depends-on ("time" "database")) + (:file "basic-sql" :depends-on ("database" "cmucl-compat")) + (:file "pool" :depends-on ("basic-sql")) + (:file "transaction" :depends-on ("basic-sql")) + (:file "kmr-mop" :depends-on ("package")))) + (:module :core + :pathname "" + :components ((:file "generics") + (:file "classes" :depends-on ("generics")) + (:file "operations" :depends-on ("classes")) + (:file "syntax" :depends-on ("operations"))) + :depends-on (:base)) + (:module :functional + :pathname "" + :components ((:file "sql") + (:file "table" :depends-on ("sql"))) + :depends-on (:core)) + (:module :object + :pathname "" + :components ((:file "metaclasses") + (:file "objects" :depends-on ("metaclasses"))) + :depends-on (:functional)))))) + -(defmethod source-file-type ((c cl-source-file) -e (s (eql (find-system :clsql)))) - "cl") +(defmethod perform ((o test-op) (c (eql (find-system 'clsql)))) + (operate 'load-op 'clsql-tests) + (operate 'test-op 'clsql-tests :force t))