blob: 0332ea51e43a0fcb87f0a8f49f36df1bc71c8859 (
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
|
(in-package :cl-user)
(defpackage :consfigurator.util
(:use #:cl)
(:shadowing-import-from #:uiop
#:strcat
#:string-prefix-p
#:split-string
#:escape-sh-command
#:escape-sh-token
#:run-program
#:read-file-string
#:subprocess-error
#:stripln
#:unix-namestring
#:pathname-directory-pathname
#:with-temporary-file
#:ensure-directory-pathname
#:getenv
#:subdirectories
#:directory-files
#:file-exists-p)
(:export #:strcat
#:string-prefix-p
#:split-string
#:escape-sh-command
#:escape-sh-token
#:run-program
#:read-file-string
#:subprocess-error
#:stripln
#:unix-namestring
#:pathname-directory-pathname
#:with-temporary-file
#:ensure-directory-pathname
#:getenv
#:subdirectories
#:directory-files
#:file-exists-p
#:lines
#:unlines
#:noop
#:symbol-named
#:version<
#:version>
#:version<=
#:version>=
#:string->filename
#:filename->string))
(defpackage :consfigurator.core
(:use #:cl
#:alexandria
#:consfigurator.util)
(:export #:establish-connection
#:connection
#:lisp-connection
#:posix-connection
#:connection-run
#:connection-readfile
#:connection-writefile
#:connection-upload
#:connection-teardown
#:run
#:connection-run-failed
#:runlines
#:readfile
#:writefile
#:propattrs
#:propunapply
#:defprop
#:*hostattrs*
#:add-hostattr
#:require-data
#:in-consfig
#:hostattr
#:defhost
#:*host*
#:defdeploy
#:defdeploy-these
#:defhostdeploy
#:deploy
#:deploy-these
#:add-data-source
#:register-data-source
#:data-uploaded
#:host-data-uploaded
#:get-data
#:upload-all-prerequisite-data))
(eval-when (:compile-toplevel :load-toplevel :execute)
(unless (find-package :consfigurator)
(make-package :consfigurator :use '(cl))))
(defpackage :consfigurator.connection.ssh
(:use #:cl #:consfigurator))
(defpackage :consfigurator.connection.local
(:use #:cl #:consfigurator)
(:export #:local-connection))
(defpackage :consfigurator.connection.debian-sbcl
(:use #:cl #:consfigurator))
(defpackage :consfigurator.property.file
(:use #:cl #:consfigurator)
(:export #:file-has-content
#:file-contains-lines))
(defpackage :consfigurator.data.asdf
(:use #:cl #:consfigurator))
(defpackage :consfigurator.data.pgp
(:use #:cl #:consfigurator))
(defpackage :consfigurator.property.command
(:use #:cl #:consfigurator)
(:export #:shell-command))
(in-package :consfigurator)
(dolist (package '(:consfigurator.core :consfigurator.util))
(use-package package)
(do-external-symbols (sym package)
(export sym)))
|