1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
|
(defpackage :cl-postgres-system
(:use :common-lisp :asdf))
(in-package :cl-postgres-system)
;; Change this to enable/disable unicode manually (mind that it won't
;; work unless your implementation supports it).
(defparameter *unicode*
#+(or sb-unicode unicode ics openmcl-unicode-strings) t
#-(or sb-unicode unicode ics openmcl-unicode-strings) nil)
(defparameter *string-file* (if *unicode* "strings-utf-8" "strings-ascii"))
(defsystem "cl-postgres"
:description "Low-level client library for PostgreSQL"
:depends-on ("md5"
(:feature (:or :sbcl :allegro :ccl :genera) "usocket")
(:feature :sbcl (:require :sb-bsd-sockets)))
:components
((:module "cl-postgres"
:components ((:file "trivial-utf-8")
(:file "ieee-floats")
(:file "features")
(:file "package" :depends-on ("features"))
(:file "errors" :depends-on ("package"))
(:file "sql-string" :depends-on ("package"))
(:file #.*string-file* :depends-on ("package" "trivial-utf-8"))
(:file "communicate" :depends-on (#.*string-file* "sql-string"))
(:file "messages" :depends-on ("communicate"))
(:file "oid" :depends-on ("package"))
(:file "interpret" :depends-on ("oid" "communicate" "ieee-floats"))
(:file "protocol" :depends-on ("interpret" "messages" "errors"))
(:file "public" :depends-on ("protocol"))
(:file "bulk-copy" :depends-on ("public")))))
:in-order-to ((test-op (test-op "cl-postgres/tests")
(test-op "cl-postgres/simple-date-tests"))))
(defsystem "cl-postgres/tests"
:depends-on ("cl-postgres" "fiveam")
:components
((:module "cl-postgres"
:components ((:file "tests"))))
:perform (test-op (o c)
(uiop:symbol-call :cl-postgres-tests '#:prompt-connection)
(uiop:symbol-call :fiveam '#:run! :cl-postgres)))
(defsystem "cl-postgres/simple-date-tests"
:depends-on ("cl-postgres" "cl-postgres/tests" "fiveam" "simple-date/postgres-glue")
:components
((:module "cl-postgres"
:components ((:file "simple-date-tests"))))
:perform (test-op (o c)
(uiop:symbol-call :cl-postgres-simple-date-tests '#:prompt-connection)
(uiop:symbol-call :fiveam '#:run! :cl-postgres-simple-date)))
#|
;; The definitions below should work, unlike the bogus method they replace;
;; but I recommend instead explicit dependency on simple-date/postgres-glue.
(load-system "asdf-system-connections")
(defsystem-connection "postgres/with-simple-date"
:requires ("simple-date" "cl-postgres")
:depends-on ("simple-date/postgres-glue"))
|#
|
