blob: 91364c8b87f225716b774005cc40973667e8d105 (
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
|
(in-package :cl-user)
(defpackage :consfigurator.util
(:use #:cl)
(:shadowing-import-from #:uiop
#:strcat
#:string-prefix-p)
(:export #:strcat
#:string-prefix-p
#:lines
#:unlines
#:noop
#:symbol-named
#:version<
#:version>
#:version<=
#:version>=
#:string->filename
#:filename->string))
(defpackage :consfigurator.core
(:use #:cl
#:alexandria
#:consfigurator.util)
(:export #:connect-and-apply
#:apply-properties
#:connection
#:lisp-connection
#:posix-connection
#:connection-run
#:run
#:connection-readfile
#:readfile
#:connection-writefile
#:writefile
#:connection-upload
#:connection-teardown
#:*host*
#:*hostattrs*
#:add-hostattr
#:require-data
#:establish-connection
#:defprop
#:defhost
#:hostattr
#:setconsfig
#:defdeploy
#:defdeploy-these
#:defhostdeploy
#:deploy
#:deploy-these
#:add-data-source
#:register-data-source
#:get-path-to-concatenated-system))
(defpackage :consfigurator.connection.ssh
(:use #:cl #:consfigurator))
(defpackage :consfigurator.property.file
(:use #:cl #:consfigurator)
(:export #:file-has-content
#:file-contains-lines))
(defpackage :consfigurator.property.command
(:use #:cl #:consfigurator)
(:export #:shell-command))
(defpackage :consfigurator.data.pgp
(:use #:cl #:consfigurator))
(unless (find-package :consfigurator)
(make-package :consfigurator :use '("cl")))
(in-package :consfigurator)
(dolist (package '(:consfigurator.core :consfigurator.util))
(use-package package)
(do-external-symbols (sym package)
(export sym)))
|