clsql.asd

   1 ;;;; -*- Mode: LISP; Syntax: ANSI-Common-Lisp; Base: 10 -*-
   2 ;;;; *************************************************************************
   3 ;;;; FILE IDENTIFICATION
   4 ;;;;
   5 ;;;; Name:     clsql.asd
   6 ;;;; Purpose:  ASDF system definition for CLSQL
   7 ;;;; Authors:  Marcus Pearce and Kevin M. Rosenberg
   8 ;;;; Created:  March 2004
   9 ;;;;
  10 ;;;; CLSQL users are granted the rights to distribute and use this software
  11 ;;;; as governed by the terms of the Lisp Lesser GNU Public License
  12 ;;;; (http://opensource.franz.com/preamble.html), also known as the LLGPL.
  13 ;;;; *************************************************************************
  14
  15 (in-package #:cl-user)
  16 (defpackage #:clsql-system (:use #:asdf #:cl))
  17 (in-package #:clsql-system)
  18
  19 #+clisp
  20 (progn
  21   (asdf:operate 'asdf:load-op 'cffi)
  22   (asdf:operate 'asdf:load-op 'cffi-uffi-compat)
  23   (asdf:defsystem uffi :depends-on (cffi-uffi-compat)))
  24
  25 ;; need to load uffi for below perform :after method
  26 (eval-when (:compile-toplevel :load-toplevel :execute)
  27   (unless (find-package 'uffi)
  28     (asdf:operate 'asdf:load-op 'uffi)))
  29
  30 (defsystem clsql
  31     :name "CLSQL"
  32     :author "Kevin Rosenberg <kevin@rosenberg.net>"
  33     :maintainer "Kevin M. Rosenberg <kmr@debian.org>"
  34     :licence "Lessor Lisp General Public License"
  35     :description "Common Lisp SQL Interface library"
  36     :long-description "A Common Lisp interface to SQL RDBMS based on
  37 the Xanalys CommonSQL interface for Lispworks. It depends on the
  38 low-level database interfaces as well as a functional and an object
  39 oriented interface."
  40     :components
  41     ((:module sql
  42               :components
  43               ((:module base
  44                         :pathname ""
  45                         :components
  46                         ((:file "cmucl-compat")
  47                          (:file "package")
  48                          (:file "kmr-mop" :depends-on ("package"))
  49                          (:file "base-classes" :depends-on ("package"))
  50                          (:file "conditions" :depends-on ("base-classes"))
  51                          (:file "db-interface" :depends-on ("conditions"))
  52                          (:file "utils" :depends-on ("package" "db-interface"))
  53                          (:file "time" :depends-on ("package" "conditions" "utils"))
  54                          (:file "generics" :depends-on ("package"))))
  55                (:module database
  56                         :pathname ""
  57                         :components
  58                         ((:file "initialize")
  59                          (:file "database" :depends-on ("initialize"))
  60                          (:file "recording" :depends-on ("database"))
  61                          (:file "pool" :depends-on ("database")))
  62                         :depends-on (base))
  63                (:module syntax
  64                         :pathname ""
  65                         :components ((:file "expressions")
  66                                      (:file "operations"
  67                                             :depends-on ("expressions"))
  68                                      (:file "syntax" :depends-on ("operations")))
  69                         :depends-on (database))
  70                (:module functional
  71                         :pathname ""
  72                         :components ((:file "fdml")
  73                                      (:file "transaction" :depends-on ("fdml"))
  74                                      #+clisp (:file "ansi-loop")
  75                                      (:file "loop-extension"
  76                                             :depends-on ("fdml" #+clisp "ansi-loop"))
  77                                      (:file "fddl" :depends-on ("fdml")))
  78                         :depends-on (syntax))
  79                (:module object
  80                         :pathname ""
  81                         :components ((:file "metaclasses")
  82                                      (:file "ooddl" :depends-on ("metaclasses"))
  83                                      (:file "oodml" :depends-on ("ooddl")))
  84                         :depends-on (functional))
  85                (:module generic
  86                         :pathname ""
  87                         :components ((:file "generic-postgresql")
  88                                      (:file "generic-odbc")
  89                                      (:file "sequences"))
  90                         :depends-on (functional))))))
  91
  92
  93 (defmethod perform ((o test-op) (c (eql (find-system 'clsql))))
  94   (operate 'load-op 'clsql-tests)
  95   (operate 'test-op 'clsql-tests :force t))
  96
  97 (defmethod perform :after ((o load-op) (c (eql (find-system 'clsql))))
  98   (let* ((init-var (uffi:getenv "CLSQLINIT"))
  99          (init-file (or (when init-var (probe-file init-var))
 100                         (probe-file
 101                          (concatenate 'string
 102                                       (namestring (user-homedir-pathname))
 103                                       ".clsql-init.lisp"))
 104                         (probe-file "/etc/clsql-init.lisp")
 105                         #+(or mswin windows win32 win64 mswindows)
 106                         (probe-file "c:\\etc\\clsql-init.lisp"))))
 107     (when init-file (load init-file))))
 108