blob: 8b0d0eb679b783f63704a263c42cc6d3345a66b8 (
plain)
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
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
|
(in-package :cl-user)
(defpackage :consfigurator
(:use #:cl #:alexandria)
(:local-nicknames (#:re #:cl-ppcre))
(:shadowing-import-from #:uiop
#:strcat
#:string-prefix-p
#:split-string
#:last-char
#:escape-sh-command
#:escape-sh-token
#:run-program
#:read-file-string
#:copy-stream-to-stream
#:subprocess-error
#:stripln
#:unix-namestring
#:pathname-directory-pathname
#:with-temporary-file
#:ensure-directory-pathname
#:getenv
#:subdirectories
#:directory-files
#:file-exists-p)
(:export ;; re-export from UIOP
#:strcat
#:string-prefix-p
#:split-string
#:last-char
#:escape-sh-command
#:escape-sh-token
#:run-program
#:read-file-string
#:copy-stream-to-stream
#:subprocess-error
#:stripln
#:unix-namestring
#:pathname-directory-pathname
#:with-temporary-file
#:ensure-directory-pathname
#:getenv
#:subdirectories
#:directory-files
#:file-exists-p
;; util.lisp
#:lines
#:unlines
#:noop
#:symbol-named
#:version<
#:version>
#:version<=
#:version>=
#:string->filename
#:filename->string
;; connection.lisp
#:establish-connection
#:preprocess-connection-args
#:connection
#:lisp-connection
#:posix-connection
#:lisp-connection-p
#:connection-run
#:connection-readfile
#:connection-writefile
#:connection-upload
#:connection-teardown
#:run
#:mrun
#:with-remote-temporary-file
#:run-failed
#:runlines
#:test
#:readfile
#:writefile
;; property.lisp
#:propattrs
#:propunapply
#:defprop
#:defproplist
#:inapplicable-property
#:get-hostattrs
#:get-hostattrs-car
#:push-hostattrs
#:get-hostname
#:require-data
;; propspec.lisp
#:in-consfig
#:make-propspec
#:continue-without-system
;; host.lisp
#:host
#:defhost
#:make-host
#:hostattrs
;; deployment.lisp
#:defdeploy
#:defdeploy-these
#:deploy
#:deploy*
#:deploys #:deploys.
#:deploy-these
#:deploy-these*
#:deploys-these #:deploys-these.
#:continue-deploy*
;; data.lisp
#:data
#:iden1
#:iden2
#:data-version
#:data-mime
#:string-data
#:data-string
#:file-data
#:data-file
#:missing-data-source
#:try-register-data-source
#:register-data-source
#:reset-data-sources
#:skip-data-source
#:get-data-stream
#:with-data-stream
#:get-data-string
#:upload-all-prerequisite-data
#:request-lisp-systems
#:continue-deploy*-program))
(defpackage :consfigurator.connection.shell-wrap
(:use #:cl #:consfigurator)
(:export #:shell-wrap-connection #:connection-shell-wrap))
(defpackage :consfigurator.connection.ssh
(:use #:cl
#:consfigurator
#:alexandria
#:consfigurator.connection.shell-wrap))
(defpackage :consfigurator.connection.sudo
(:use #:cl
#:consfigurator
#:alexandria
#:consfigurator.connection.shell-wrap))
(defpackage :consfigurator.connection.local
(:use #:cl #:consfigurator #:alexandria)
(:export #:local-connection))
(defpackage :consfigurator.connection.debian-sbcl
(:use #:cl #:consfigurator))
(defpackage :consfigurator.connection.chroot
(:use #:cl #:consfigurator #:cffi))
(defpackage :consfigurator.connection.chroot.fork
(:use #:cl #:consfigurator #-(or sbcl) #:cffi))
(defpackage :consfigurator.connection.chroot.shell
(:use #:cl
#:consfigurator
#:consfigurator.connection.shell-wrap))
(defpackage :consfigurator.property.chroot
(:use #:cl #:consfigurator)
(:export #:os-bootstrapped #:os-bootstrapped.))
(defpackage :consfigurator.property.cmd
(:use #:cl #:consfigurator)
(:export #:single))
(defpackage :consfigurator.property.file
(:use #:cl #:consfigurator #:alexandria)
(:local-nicknames (#:re #:cl-ppcre))
(:export #:has-content
#:contains-lines
#:data-uploaded
#:host-data-uploaded
#:secret-uploaded
#:host-secret-uploaded
#:regex-replaced-lines))
(defpackage :consfigurator.property.os
(:use #:cl #:consfigurator)
(:export #:required
#:unixlike
#:linux
#:debianlike
#:debian
#:debian-stable
#:debian-testing
#:debian-unstable))
(defpackage :consfigurator.property.apt
(:use #:cl #:consfigurator)
(:local-nicknames (#:re #:cl-ppcre)
(#:os #:consfigurator.property.os))
(:export #:installed))
(defpackage :consfigurator.data.asdf
(:use #:cl #:consfigurator))
(defpackage :consfigurator.data.pgp
(:use #:cl #:consfigurator #:alexandria)
(:export #:list-data #:get-data #:set-data #:set-data-from-file))
|