25 Jul 2002 Kevin Rosenberg (kevin@rosenberg.net)
* Also change case of logical host in loader files
- * Remove ;bin; component for .system files if using
- Common Lisp Controller.
+ * Rework handling of logical pathnames
05 Jul 2002 Kevin Rosenberg (kevin@rosenberg.net)
* Change case of logical host
;;;; Programmer: Kevin M. Rosenberg
;;;; Date Started: Feb 2002
;;;;
-;;;; $Id: clsql-aodbc.system,v 1.7 2002/07/05 17:05:45 kevin Exp $
+;;;; $Id: clsql-aodbc.system,v 1.8 2002/07/26 05:19:00 kevin Exp $
;;;;
;;;; This file, part of CLSQL, is Copyright (c) 2002 by Kevin M. Rosenberg
;;;;
(defsystem :clsql-aodbc
:source-pathname "cl-library:clsql;interfaces;aodbc;"
:source-extension "cl"
- :binary-pathname "cl-library:clsql;interfaces;aodbc;bin;"
:components ((:file "aodbc-package")
(:file "aodbc-sql" :depends-on ("aodbc-package")))
:depends-on (:clsql-base))
;;;; Programmer: Kevin M. Rosenberg
;;;; Date Started: Feb 2002
;;;;
-;;;; $Id: clsql-base.system,v 1.7 2002/07/05 17:05:45 kevin Exp $
+;;;; $Id: clsql-base.system,v 1.8 2002/07/26 05:19:00 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 :cl-user)
+(in-package :make)
;; For use with non-Debian installations
(let ((helper-pathname (make-pathname :name "set-cl-library" :type "cl"
:defaults *load-truename*)))
(when (probe-file helper-pathname)
- (load helper-pathname)))
+ (load helper-pathname)))
;;; System definitions
-(mk:defsystem :clsql-base
+(defsystem :clsql-base
:source-pathname "cl-library:clsql;base;"
:source-extension "cl"
- :binary-pathname "cl-library:clsql;base;bin;"
- :components ((:file "cmucl-compat")
+ :components ((:file "cmucl-compat")
(:file "package")
(:file "utils" :depends-on ("package"))
(:file "classes" :depends-on ("package"))
;;;; Programmer: Kevin M. Rosenberg\r
;;;; Date Started: Feb 2002\r
;;;;\r
-;;;; $Id: clsql-mysql.system,v 1.14 2002/07/05 17:05:45 kevin Exp $\r
+;;;; $Id: clsql-mysql.system,v 1.15 2002/07/26 05:19:00 kevin Exp $\r
;;;;\r
;;;; This file, part of CLSQL, is Copyright (c) 2002 by Kevin M. Rosenberg\r
;;;;\r
\r
(declaim (optimize (debug 3) (speed 3) (safety 1) (compilation-speed 0)))\r
\r
-(in-package :cl-user)\r
+(in-package :make)\r
\r
;;; System definition\r
\r
-(mk:defsystem :clsql-mysql\r
+(defsystem :clsql-mysql\r
:source-pathname "cl-library:clsql;interfaces;mysql;"\r
:source-extension "cl"\r
- :binary-pathname "cl-library:clsql;interfaces;mysql;bin;"\r
:components ((:file "mysql-package")\r
(:file "mysql-loader" :depends-on ("mysql-package"))\r
(:file "mysql-api" :depends-on ("mysql-loader"))\r
;;;; -*- Mode: LISP; Syntax: ANSI-Common-Lisp; Base: 10 -*-
;;;; This is copyrighted software. See interfaces/oracle/* files for terms.
;;;;
-;;;; $Id: clsql-oracle.system,v 1.1 2002/05/15 17:28:43 kevin Exp $
+;;;; $Id: clsql-oracle.system,v 1.2 2002/07/26 05:19:00 kevin Exp $
-(in-package :cl-user)
+(in-package :make)
;;; System definition
-(mk:defsystem :clsql-oracle
+(defsystem :clsql-oracle
:source-pathname "cl-library:clsql;interfaces;oracle"
:source-extension "cl"
:components
;;;; Programmer: Kevin M. Rosenberg\r
;;;; Date Started: Feb 2002\r
;;;;\r
-;;;; $Id: clsql-postgresql-socket.system,v 1.8 2002/07/05 17:05:45 kevin Exp $\r
+;;;; $Id: clsql-postgresql-socket.system,v 1.9 2002/07/26 05:19:00 kevin Exp $\r
;;;;\r
;;;; This file, part of CLSQL, is Copyright (c) 2002 by Kevin M. Rosenberg\r
;;;;\r
(defsystem :clsql-postgresql-socket\r
:source-pathname "cl-library:clsql;interfaces;postgresql-socket;"\r
:source-extension "cl"\r
- :binary-pathname "cl-library:clsql;interfaces;postgresql-socket;bin;"\r
:components ((:file "postgresql-socket-package")\r
(:file "postgresql-socket-api"\r
:depends-on ("postgresql-socket-package"))\r
;;;; Programmer: Kevin M. Rosenberg\r
;;;; Date Started: Feb 2002\r
;;;;\r
-;;;; $Id: clsql-postgresql.system,v 1.8 2002/07/05 17:05:45 kevin Exp $\r
+;;;; $Id: clsql-postgresql.system,v 1.9 2002/07/26 05:19:00 kevin Exp $\r
;;;;\r
;;;; This file, part of CLSQL, is Copyright (c) 2002 by Kevin M. Rosenberg\r
;;;;\r
(defsystem :clsql-postgresql\r
:source-pathname "cl-library:clsql;interfaces;postgresql;"\r
:source-extension "cl"\r
- :binary-pathname "cl-library:clsql;interfaces;postgresql;bin;"\r
- :source-extension "cl"\r
:components ((:file "postgresql-package")\r
(:file "postgresql-loader" :depends-on ("postgresql-package"))\r
(:file "postgresql-api" :depends-on ("postgresql-loader"))\r
;;;; Programmer: Kevin M. Rosenberg
;;;; Date Started: Feb 2002
;;;;
-;;;; $Id: clsql-uffi.system,v 1.4 2002/07/05 17:05:45 kevin Exp $
+;;;; $Id: clsql-uffi.system,v 1.5 2002/07/26 05:19:00 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 :cl-user)
+(in-package :make)
;;; System definition
-(mk:defsystem :clsql-uffi
+(defsystem :clsql-uffi
:source-pathname "cl-library:clsql;interfaces;clsql-uffi;"
:source-extension "cl"
- :binary-pathname "cl-library:clsql;interfaces;clsql-uffi;bin;"
:components ((:file "clsql-uffi-package")
(:file "clsql-uffi-loader" :depends-on ("clsql-uffi-package"))
(:file "clsql-uffi" :depends-on ("clsql-uffi-loader")))
;;;; Programmer: Kevin M. Rosenberg
;;;; Date Started: Feb 2002
;;;;
-;;;; $Id: clsql.system,v 1.16 2002/07/05 17:05:45 kevin Exp $
+;;;; $Id: clsql.system,v 1.17 2002/07/26 05:19:00 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 :cl-user)
+(in-package :make)
;; For use with non-Debian installations
(let ((helper-pathname (make-pathname :name "set-cl-library" :type "cl"
:defaults *load-truename*)))
(when (probe-file helper-pathname)
- (load helper-pathname)))
+ (load helper-pathname)))
;;; System definitions
-(mk:defsystem :clsql
+(defsystem :clsql
:source-pathname "cl-library:clsql;sql;"
:source-extension "cl"
- :binary-pathname "cl-library:clsql;sql;bin;"
:components ((:file "package")
(:file "pool" :depends-on ("package"))
(:file "loop-extension")
:host (pathname-host base-pathname)
:device (pathname-device base-pathname)
:directory (pathname-directory base-pathname)))
+ ("**;*.cl.*" ,(merge-pathnames
+ (make-pathname
+ :name :wild
+ :type :wild
+ :directory '(:relative :wild-inferiors))
+ base-pathname))
+ ("**;*.lisp.*" ,(merge-pathnames
+ (make-pathname
+ :name :wild
+ :type :wild
+ :directory '(:relative :wild-inferiors))
+ base-pathname))
+ ("**;*.c.*" ,(merge-pathnames
+ (make-pathname
+ :name :wild
+ :type :wild
+ :directory '(:relative :wild-inferiors))
+ base-pathname))
+ ("**;*.h.*" ,(merge-pathnames
+ (make-pathname
+ :name :wild
+ :type :wild
+ :directory '(:relative :wild-inferiors))
+ base-pathname))
("**;bin;*.*.*" ,(merge-pathnames
(make-pathname
:name :wild
:type :wild
:directory
(append '(:relative :wild-inferiors
- ".bin" #.+set-logical-compiler-name+)))
+ ".bin" #.+set-logical-compiler-name+)))
base-pathname))
+ ;; default is to place in .bin/<compiler> directory
("**;*.*.*" ,(merge-pathnames
- (make-pathname
+ (make-pathname
:name :wild
:type :wild
- :directory '(:relative :wild-inferiors))
- base-pathname))))
- )
+ :directory
+ (append '(:relative :wild-inferiors
+ ".bin" #.+set-logical-compiler-name+)))
+ base-pathname)))))
+