-
Notifications
You must be signed in to change notification settings - Fork 0
/
rsb-introspection.asd
105 lines (83 loc) · 4.6 KB
/
rsb-introspection.asd
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
95
96
97
98
99
100
101
102
103
104
105
;;;; rsb-introspection.asd --- System definition for introspection for RSB.
;;;;
;;;; Copyright (C) 2013-2018 Jan Moringen
;;;;
;;;; Author: Jan Moringen <[email protected]>
#.(unless (find-package '#:rsb-system)
(load (merge-pathnames "rsb.asd" *load-truename*))
(values))
(cl:in-package #:rsb-system)
(defsystem "rsb-introspection"
:description "Introspection support for RSB."
:license "LGPLv3" ; see COPYING file for details.
:author "Jan Moringen <[email protected]>"
:maintainer "Jan Moringen <[email protected]>"
:version #.(version/string)
:defsystem-depends-on ("cl-protobuf")
:depends-on ("utilities.print-items"
(:version "uiop" "3") ; for portable platform information
(:version "rsb" #.(version/string))
(:version "rsb-model" #.(version/string))
(:version "rsb-patterns-request-reply" #.(version/string)))
:components ((:protocol-buffer-descriptor-directory "protocol"
:pathname "data"
:components ((:file "Hello"
:pathname "rsb/protocol/introspection/Hello")
(:file "Bye"
:pathname "rsb/protocol/introspection/Bye")))
(:module "introspection"
:pathname "src/introspection"
:depends-on ("protocol")
:serial t
:components ((:file "package")
;; Platform information interface.
(:file "platform-common")
(:file "platform-sbcl-linux"
:if-feature (:and :sbcl :linux))
(:file "platform-sbcl-darwin"
:if-feature (:and :sbcl :darwin))
(:file "platform-sbcl-win32"
:if-feature (:and :sbcl :win32))
(:file "platform-generic"
:if-feature (:or (:not :sbcl)
(:and (:not :linux)
(:not :darwin)
(:not :win32))))
(:file "conditions")
(:file "protocol")
(:file "variables")
(:file "model")
(:file "conversion")
(:file "mixins")
(:file "local-introspection")
(:file "timing-tracking")
(:file "remote-introspection")
(:file "reloading"
:if-feature :sbcl))))
:in-order-to ((test-op (test-op "rsb-introspection/test"))))
(defsystem "rsb-introspection/test"
:description "Unit tests for the rsb-introspection system."
:license "LGPLv3" ; see COPYING file for details.
:author "Jan Moringen <[email protected]>"
:maintainer "Jan Moringen <[email protected]>"
:version #.(version/string)
:depends-on ((:version "lift" "1.7.1")
(:version "rsb-introspection" #.(version/string))
(:version "rsb/test" #.(version/string))
(:version "rsb-model/test" #.(version/string)))
:components ((:module "introspection"
:pathname "test/introspection"
:serial t
:components ((:file "package")
(:file "platform")
(:file "model")
(:file "local-introspection")
(:file "timing-tracking")
(:file "remote-introspection")
(:file "reloading"
:if-feature :sbcl))))
:perform (test-op (operation component)
(eval (read-from-string "(log:config :warn)")) ; less noise
(eval (read-from-string "(lift:run-tests :config
(asdf:system-relative-pathname
:rsb-introspection/test \"lift-introspection.config\"))"))))