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
|
(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 PosgreSQL"
:depends-on (:md5
#-(or sbcl allegro ccl) :usocket
#+sbcl :sb-bsd-sockets)
:components
((:module :cl-postgres
:components ((:file "trivial-utf-8")
(:file "ieee-floats")
(:file "package")
(: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 "interpret" :depends-on ("communicate" "ieee-floats"))
(:file "protocol" :depends-on ("interpret" "messages" "errors"))
(:file "public" :depends-on ("protocol"))
(:file "bulk-copy" :depends-on ("public"))))))
(defsystem :cl-postgres-tests
:depends-on (:cl-postgres :eos :simple-date)
:components
((:module :cl-postgres
:components ((:file "tests")))))
(defmethod perform ((op asdf:test-op) (system (eql (find-system :cl-postgres))))
(asdf:oos 'asdf:load-op :cl-postgres-tests)
(funcall (intern (string :prompt-connection) (string :cl-postgres-tests)))
(funcall (intern (string :run!) (string :Eos)) :cl-postgres))
(defmethod perform :after ((op asdf:load-op) (system (eql (find-system :cl-postgres))))
(when (and (find-package :simple-date)
(not (find-symbol (symbol-name '#:+postgres-day-offset+) :simple-date)))
(asdf:oos 'asdf:load-op :simple-date-postgres-glue)))
|
