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
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
|
;;;; -*- Mode: LISP; Syntax: Ansi-Common-Lisp; Base: 10; -*-
(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 abcl) t
#-(or sb-unicode unicode ics openmcl-unicode-strings abcl) nil)
(defparameter *string-file* (if *unicode* "strings-utf-8" "strings-ascii"))
(defsystem "cl-postgres"
:description "Low-level client library for PostgreSQL"
:author "Marijn Haverbeke <marijnh@gmail.com>"
:maintainer "Sabra Crolleton <sabra.crolleton@gmail.com>"
:license "zlib"
:version "1.33.2"
:depends-on ("md5" "split-sequence" "ironclad" "cl-base64" "uax-15"
(:feature (:or :sbcl :allegro :ccl :clisp :genera
:armedbear :cmucl :lispworks)
"usocket")
(:feature :sbcl (:require :sb-bsd-sockets)))
:components
((:module "cl-postgres"
:components ((:file "package")
(:file "features")
(:file "config")
(:file "oid" :depends-on ("package" "config"))
(:file "errors" :depends-on ("package"))
(:file "data-types" :depends-on ("package" "config"))
(:file "sql-string" :depends-on ("package" "config" "data-types"))
(:file "trivial-utf-8" :depends-on ("package" "config"))
(:file #.*string-file*
:depends-on ("package" "trivial-utf-8" "config"))
(:file "communicate"
:depends-on (#.*string-file* "sql-string" "config"))
(:file "messages" :depends-on ("communicate" "config"))
(:file "ieee-floats" :depends-on ("config"))
(:file "interpret"
:depends-on ("oid" "communicate" "ieee-floats" "config"))
(:file "saslprep" :depends-on ("package" "config"))
(:file "scram"
:depends-on ("package" "messages" "errors" "saslprep"
"trivial-utf-8" "config"))
(:file "protocol"
:depends-on ("package" "interpret" "messages" "errors" "scram"
"saslprep" "trivial-utf-8" "config"))
(:file "public" :depends-on ("package" "protocol" "features" "config"))
(:file "bulk-copy"
:depends-on ("package" "public" "trivial-utf-8")))))
: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" "uiop")
:components
((:module "cl-postgres/tests"
:components ((:file "test-package")
(:file "tests" :depends-on ("test-package"))
(:file "test-binary-parameters" :depends-on ("test-package" "tests"))
(:file "test-oids" :depends-on ("test-package" "tests"))
(:file "test-ieee-float" :depends-on ("test-package" "tests"))
(:file "test-clp-utf8" :depends-on ("test-package" "tests"))
(:file "test-data-types" :depends-on ("test-package" "tests"))
(:file "test-communicate" :depends-on ("test-package" "tests"))
(:file "tests-scram" :depends-on ("test-package" "tests"))
(:file "tests-saslprep" :depends-on ("test-package")))))
: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"
"simple-date/postgres-glue")
:components
((:module "cl-postgres/tests"
:components ((:file "test-package")
(: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"))
|#
|
