+01 Sep 2002 Kevin Rosenberg (kevin@rosenberg.net)
+ * Rework use of file types in .asd files
+
17 Aug 2002 Kevin Rosenberg (kevin@rosenberg.net)
* Add .asd definition files for ASDF users
;;;; Programmer: Kevin M. Rosenberg
;;;; Date Started: Aug 2002
;;;;
-;;;; $Id: clsql-aodbc.asd,v 1.2 2002/08/23 19:39:56 kevin Exp $
+;;;; $Id: clsql-aodbc.asd,v 1.3 2002/09/01 09:00:14 kevin Exp $
;;;;
;;;; This file, part of CLSQL, is Copyright (c) 2002 by Kevin M. Rosenberg
;;;;
(declaim (optimize (debug 3) (speed 3) (safety 1) (compilation-speed 0)))
(in-package :asdf)
+(defmethod source-file-type ((c cl-source-file)
+ (s (eql (find-system 'clsql-aodbc))))
+ "cl")
+
(defsystem clsql-aodbc
- :default-component-class clsql-cl-source-file
:pathname #.(format nil "~A:clsql-aodbc;" +clsql-logical-host+)
:components ((:file "aodbc-package")
(:file "aodbc-sql" :depends-on ("aodbc-package")))
;;;; Programmer: Kevin M. Rosenberg
;;;; Date Started: Feb 2002
;;;;
-;;;; $Id: clsql-base.asd,v 1.4 2002/08/23 19:39:56 kevin Exp $
+;;;; $Id: clsql-base.asd,v 1.5 2002/09/01 09:00:14 kevin Exp $
;;;;
;;;; This file, part of CLSQL, is Copyright (c) 2002 by Kevin M. Rosenberg
;;;;
#-common-lisp-controller "clsql"
"Logical hostname for loading system")
-(unless (ignore-errors (find-class 'clsql-cl-source-file))
- (defclass clsql-cl-source-file (cl-source-file) ())
- (defmethod source-file-type ((c clsql-cl-source-file) (s module))
- "cl"))
+(defmethod source-file-type ((c cl-source-file)
+ (s (eql (find-system 'clsql-base))))
+ "cl")
;;; System definitions
(defsystem clsql-base
- :default-component-class clsql-cl-source-file
:pathname #.(format nil "~A:clsql-base;" +clsql-logical-host+)
:perform (load-op :after (op clsql-base)
(pushnew :clsql-base cl:*features*))
;;;; Programmer: Kevin M. Rosenberg\r
;;;; Date Started: Aug 2002\r
;;;;\r
-;;;; $Id: clsql-mysql.asd,v 1.2 2002/08/23 19:39:56 kevin Exp $\r
+;;;; $Id: clsql-mysql.asd,v 1.3 2002/09/01 09:00:14 kevin Exp $\r
;;;;\r
;;;; This file, part of CLSQL, is Copyright (c) 2002 by Kevin M. Rosenberg\r
;;;;\r
\r
;;; System definition\r
\r
+(defmethod source-file-type ((c cl-source-file)\r
+ (s (eql (find-system 'clsql-mysql)))) \r
+ "cl")\r
+\r
(defsystem clsql-mysql\r
- :default-component-class clsql-cl-source-file\r
:pathname #.(format nil "~A:clsql-mysql;" +clsql-logical-host+)\r
:components ((:file "mysql-package")\r
(:file "mysql-loader" :depends-on ("mysql-package"))\r
;;;; -*- Mode: LISP; Syntax: ANSI-Common-Lisp; Base: 10 -*-
;;;; This is copyrighted software. See interfaces/oracle/* files for terms.
;;;;
-;;;; $Id: clsql-oracle.asd,v 1.2 2002/08/23 19:39:56 kevin Exp $
+;;;; $Id: clsql-oracle.asd,v 1.3 2002/09/01 09:00:15 kevin Exp $
(in-package :asdf)
;;; System definition
+(defmethod source-file-type ((c cl-source-file)
+ (s (eql (find-system 'clsql-oracle))))
+ "cl")
+
(defsystem :clsql-oracle
- :default-component-class clsql-cl-source-file
:pathname #.(format nil "~A:clsql-oracle;" +clsql-logical-host+)
:pathname "cl-library:clsql-oracle"
:components
;;;; Programmer: Kevin M. Rosenberg\r
;;;; Date Started: Aug 2002\r
;;;;\r
-;;;; $Id: clsql-postgresql-socket.asd,v 1.2 2002/08/23 19:39:56 kevin Exp $\r
+;;;; $Id: clsql-postgresql-socket.asd,v 1.3 2002/09/01 09:00:15 kevin Exp $\r
;;;;\r
;;;; This file, part of CLSQL, is Copyright (c) 2002 by Kevin M. Rosenberg\r
;;;;\r
\r
;;; System definition\r
\r
+(defmethod source-file-type ((c cl-source-file)\r
+ (s (eql (find-system 'clsql-postgresql-socket)))) \r
+ "cl")\r
+\r
(defsystem clsql-postgresql-socket\r
- :default-component-class clsql-cl-source-file\r
:pathname #.(format nil "~A:clsql-postgresql-socket;" +clsql-logical-host+)\r
:components ((:file "postgresql-socket-package")\r
(:file "postgresql-socket-api"\r
;;;; Programmer: Kevin M. Rosenberg\r
;;;; Date Started: Aug 2002\r
;;;;\r
-;;;; $Id: clsql-postgresql.asd,v 1.2 2002/08/23 19:39:56 kevin Exp $\r
+;;;; $Id: clsql-postgresql.asd,v 1.3 2002/09/01 09:00:15 kevin Exp $\r
;;;;\r
;;;; This file, part of CLSQL, is Copyright (c) 2002 by Kevin M. Rosenberg\r
;;;;\r
(declaim (optimize (debug 3) (speed 3) (safety 1) (compilation-speed 0)))\r
(in-package :asdf)\r
\r
+(defmethod source-file-type ((c cl-source-file)\r
+ (s (eql (find-system 'clsql-postgresql)))) \r
+ "cl")\r
+\r
(defsystem clsql-postgresql\r
- :default-component-class clsql-cl-source-file\r
:pathname #.(format nil "~A:clsql-postgresql;" +clsql-logical-host+)\r
:components ((:file "postgresql-package")\r
(:file "postgresql-loader" :depends-on ("postgresql-package"))\r
;;;; Programmer: Kevin M. Rosenberg
;;;; Date Started: Aug 2002
;;;;
-;;;; $Id: clsql-uffi.asd,v 1.3 2002/08/23 19:39:56 kevin Exp $
+;;;; $Id: clsql-uffi.asd,v 1.4 2002/09/01 09:00:15 kevin Exp $
;;;;
;;;; This file, part of CLSQL, is Copyright (c) 2002 by Kevin M. Rosenberg
;;;;
;;; System definition
+(defmethod source-file-type ((c cl-source-file)
+ (s (eql (find-system 'clsql-uffi))))
+ "cl")
+
(defsystem clsql-uffi
- :default-component-class clsql-cl-source-file
:pathname #.(format nil "~A:clsql-uffi;" +clsql-logical-host+)
:components ((:file "clsql-uffi-package")
(:file "clsql-uffi-loader" :depends-on ("clsql-uffi-package"))
;;;; Programmer: Kevin M. Rosenberg
;;;; Date Started: Feb 2002
;;;;
-;;;; $Id: clsql.asd,v 1.3 2002/08/23 19:39:56 kevin Exp $
+;;;; $Id: clsql.asd,v 1.4 2002/09/01 09:00:15 kevin Exp $
;;;;
;;;; This file, part of CLSQL, is Copyright (c) 2002 by Kevin M. Rosenberg
;;;;
;;; System definitions
-(unless (ignore-errors (find-class 'clsql-cl-source-file))
- (defclass clsql-cl-source-file (cl-source-file) ())
- (defmethod source-file-type ((c clsql-cl-source-file) (s module))
- "cl"))
+
+(defmethod source-file-type ((c cl-source-file)
+ (s (eql (find-system 'clsql))))
+ "cl")
(defsystem clsql
- :default-component-class clsql-cl-source-file
:pathname #.(format nil "~A:clsql;" +clsql-logical-host+)
:perform (load-op :after (op clsql)
(pushnew :clsql cl:*features*))