Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Newer
Older
100644 296 lines (279 sloc) 7.869 kb
996fec5 @xach Initial commit.
xach authored
1 ;;;; package.lisp
2
3 (defpackage #:ql-util
2317817 @xach Add (:documentation ...) to each defpackage, plus some other
xach authored
4 (:documentation
5 "Utility functions used in various places.")
996fec5 @xach Initial commit.
xach authored
6 (:use #:cl)
7 (:export #:write-line-to-file
e8f9aa4 @xach Add & export WITHOUT-PROMPTING.
xach authored
8 #:without-prompting
996fec5 @xach Initial commit.
xach authored
9 #:press-enter-to-continue
10 #:replace-file
ddf9fb6 @xach Add and export COPY-FILE.
xach authored
11 #:copy-file
996fec5 @xach Initial commit.
xach authored
12 #:delete-file-if-exists
13 #:ensure-file-exists
14 #:split-spaces
5e31063 @xach Check local archive validity.
xach authored
15 #:first-line
16 #:file-size))
996fec5 @xach Initial commit.
xach authored
17
18 (defpackage #:ql-setup
2317817 @xach Add (:documentation ...) to each defpackage, plus some other
xach authored
19 (:documentation
20 "Functions and variables initialized early in the Quicklisp client
21 configuration.")
996fec5 @xach Initial commit.
xach authored
22 (:use #:cl)
23 (:export #:qmerge
24 #:qenough
25 #:*quicklisp-home*))
26
27 (defpackage #:ql-config
2317817 @xach Add (:documentation ...) to each defpackage, plus some other
xach authored
28 (:documentation
29 "Getting and setting persistent configuration values.")
996fec5 @xach Initial commit.
xach authored
30 (:use #:cl #:ql-util #:ql-setup)
31 (:export #:config-value))
32
33 (defpackage #:ql-impl
2317817 @xach Add (:documentation ...) to each defpackage, plus some other
xach authored
34 (:documentation
35 "Configuration of implementation-specific packages and interfaces.")
996fec5 @xach Initial commit.
xach authored
36 (:use #:cl)
37 (:export #:*implementation*)
38 (:export #:definterface
39 #:defimplementation
bce4eb4 @xach Add & export SHOW-INTERFACES to make it easier to see what interfaces
xach authored
40 #:show-interfaces)
996fec5 @xach Initial commit.
xach authored
41 (:export #:lisp
42 #:abcl
43 #:allegro
44 #:ccl
45 #:clisp
46 #:cmucl
47 #:cormanlisp
48 #:ecl
49 #:gcl
50 #:lispworks
3332f5b @jcbeaudoin Initial port to MKCL.
jcbeaudoin authored
51 #:mkcl
996fec5 @xach Initial commit.
xach authored
52 #:scl
53 #:sbcl))
54
55 (defpackage #:ql-impl-util
2317817 @xach Add (:documentation ...) to each defpackage, plus some other
xach authored
56 (:documentation
57 "Utility functions that require implementation-specific
58 functionality.")
996fec5 @xach Initial commit.
xach authored
59 (:use #:cl #:ql-impl)
60 (:export #:call-with-quiet-compilation
61 #:add-to-init-file
62 #:rename-directory
6611cd8 @xach First cut at a DELETE-DIRECTORY-TREE implementation.
xach authored
63 #:delete-directory
e6f5474 @xach Add & use PROBE-DIRECTORY for client updates.
xach authored
64 #:probe-directory
251eda8 @xach Rework directory deletion.
xach authored
65 #:directory-entries
0142e4e @xach Add NATIVE-NAMESTRING implemenation utility function.
xach authored
66 #:delete-directory-tree
cbf925c @xach First cut at local-projects support.
xach authored
67 #:native-namestring
68 #:directory-write-date))
996fec5 @xach Initial commit.
xach authored
69
70 (defpackage #:ql-network
2317817 @xach Add (:documentation ...) to each defpackage, plus some other
xach authored
71 (:documentation
72 "Simple, low-level network access.")
996fec5 @xach Initial commit.
xach authored
73 (:use #:cl #:ql-impl)
74 (:export #:open-connection
75 #:write-octets
76 #:read-octets
77 #:close-connection
78 #:with-connection))
79
80 (defpackage #:ql-progress
2317817 @xach Add (:documentation ...) to each defpackage, plus some other
xach authored
81 (:documentation
82 "Displaying a progress bar.")
996fec5 @xach Initial commit.
xach authored
83 (:use #:cl)
84 (:export #:make-progress-bar
85 #:start-display
86 #:update-progress
87 #:finish-display))
88
89 (defpackage #:ql-http
2317817 @xach Add (:documentation ...) to each defpackage, plus some other
xach authored
90 (:documentation
91 "A simple HTTP client.")
996fec5 @xach Initial commit.
xach authored
92 (:use #:cl #:ql-network #:ql-progress #:ql-config)
93 (:export #:*proxy-url*
94 #:fetch
95 #:hostname
96 #:port
97 #:path
98 #:url
99 #:*maximum-redirects*
7883a8b @xach Add mechanism to list available versions for a dist, if any.
xach authored
100 #:*default-url-defaults*)
101 (:export #:fetch-error
102 #:unexpected-http-status
103 #:unexpected-http-status-code
104 #:unexpected-http-status-url
105 #:too-many-redirects
106 #:too-many-redirects-url
107 #:too-many-redirects-count))
996fec5 @xach Initial commit.
xach authored
108
109 (defpackage #:ql-minitar
2317817 @xach Add (:documentation ...) to each defpackage, plus some other
xach authored
110 (:documentation
111 "A simple implementation of unpacking the 'tar' file format.")
996fec5 @xach Initial commit.
xach authored
112 (:use #:cl)
113 (:export #:tarball-contents
114 #:unpack-tarball))
115
116 (defpackage #:ql-gunzipper
2317817 @xach Add (:documentation ...) to each defpackage, plus some other
xach authored
117 (:documentation
118 "An implementation of gunzip.")
996fec5 @xach Initial commit.
xach authored
119 (:use #:cl)
120 (:export #:gunzip))
121
2e6a726 @xach Add first cut of CDB read & write support.
xach authored
122 (defpackage #:ql-cdb
123 (:documentation
124 "Read and write CDB files; code adapted from ZCDB.")
125 (:use #:cl)
126 (:export #:lookup
127 #:map-cdb
128 #:convert-index-file))
129
996fec5 @xach Initial commit.
xach authored
130 (defpackage #:ql-dist
2317817 @xach Add (:documentation ...) to each defpackage, plus some other
xach authored
131 (:documentation
132 "Generic functions, variables, and classes for interacting with the
133 dist system. Documented, exported symbols are intended for public
134 use.")
996fec5 @xach Initial commit.
xach authored
135 (:use #:cl
136 #:ql-util
137 #:ql-http
138 #:ql-setup
139 #:ql-gunzipper
140 #:ql-minitar)
251eda8 @xach Rework directory deletion.
xach authored
141 (:import-from #:ql-impl-util
142 #:delete-directory-tree
f05ab48 @xach Make sure the dist-update directory exists before trying to delete it.
xach authored
143 #:directory-entries
144 #:probe-directory)
996fec5 @xach Initial commit.
xach authored
145 ;; Install/enable protocol
146 (:export #:installedp
147 #:install
148 #:uninstall
149 #:ensure-installed
150 #:enabledp
151 #:enable
152 #:disable)
153 ;; Preference protocol
154 (:export #:preference
155 #:preference-file
156 #:preference-parent
157 #:forget-preference)
158 ;; Generic
159 (:export #:all-dists
160 #:enabled-dists
161 #:find-dist
162 #:find-system
163 #:find-release
164 #:dist
165 #:system
166 #:release
167 #:base-directory
168 #:relative-to
169 #:metadata-name
170 #:install-metadata-file
171 #:short-description
172 #:provided-releases
173 #:provided-systems
174 #:installed-releases
175 #:installed-systems
176 #:name)
177 ;; Dists
178 (:export #:dist
179 #:dist-merge
180 #:find-system-in-dist
181 #:find-release-in-dist
182 #:system-index-url
183 #:release-index-url
7883a8b @xach Add mechanism to list available versions for a dist, if any.
xach authored
184 #:available-versions-url
185 #:available-versions
996fec5 @xach Initial commit.
xach authored
186 #:version
187 #:subscription-url
188 #:new-version-available-p
189 #:dist-difference
190 #:fetch-dist
191 #:initialize-release-index
192 #:initialize-system-index
193 #:with-consistent-dists)
194 ;; Dist updates
195 (:export #:available-update
196 #:update-release-differences
197 #:show-update-report
c9e5e94 @xach Add dist subscription management functions.
xach authored
198 #:update-in-place
c397c96 @xach First cut at INSTALL-DIST.
xach authored
199 #:install-dist
c9e5e94 @xach Add dist subscription management functions.
xach authored
200 #:subscription-inhibition-file
201 #:inhibit-subscription
202 #:uninhibit-subscription
203 #:subscription-inhibited-p
204 #:subscription-unavailable
205 #:subscribedp
206 #:subscribe
207 #:unsubscribe)
996fec5 @xach Initial commit.
xach authored
208 ;; Releases
209 (:export #:release
210 #:project-name
211 #:system-files
212 #:archive-url-suffix
213 #:archive-size
214 #:ensure-archive-file
215 #:archive-content-sha1
216 #:archive-file-md5
217 #:prefix
218 #:local-archive-file
219 #:ensure-local-archive-file
5e31063 @xach Check local archive validity.
xach authored
220 #:check-local-archive-file
221 #:invalid-local-archive
222 #:missing-local-archive
223 #:badly-sized-local-archive
224 #:delete-and-retry)
996fec5 @xach Initial commit.
xach authored
225 ;; Systems
226 (:export #:dist
227 #:release
228 #:preference
229 #:system-file-name
230 #:required-systems)
231 ;; Misc
232 (:export #:standard-dist-enumeration-function
233 #:*dist-enumeration-functions*
234 #:find-asdf-system-file
4874fe2 @xach Export QL-DIST:SYSTEM-DEFINITION-SEARCHER.
xach authored
235 #:system-definition-searcher
6660954 @xach Export QL-DIST:DEPENDENCY-TREE.
xach authored
236 #:system-apropos
251eda8 @xach Rework directory deletion.
xach authored
237 #:dependency-tree
238 #:clean))
996fec5 @xach Initial commit.
xach authored
239
b087d71 @xach Add QL-DIST-USER.
xach authored
240 (defpackage #:ql-dist-user
241 (:documentation
242 "A package that uses QL-DIST; useful for playing around in without
243 clobbering any QL-DIST internals.")
244 (:use #:cl
245 #:ql-dist))
246
996fec5 @xach Initial commit.
xach authored
247 (defpackage #:quicklisp-client
2317817 @xach Add (:documentation ...) to each defpackage, plus some other
xach authored
248 (:documentation
249 "The Quicklisp client package, intended for end-user Quicklisp
250 commands and configuration parameters.")
996fec5 @xach Initial commit.
xach authored
251 (:nicknames #:quicklisp #:ql)
2317817 @xach Add (:documentation ...) to each defpackage, plus some other
xach authored
252 (:use #:cl
253 #:ql-util
254 #:ql-impl-util
255 #:ql-dist
256 #:ql-http
257 #:ql-setup
258 #:ql-config
259 #:ql-minitar
260 #:ql-gunzipper)
261 (:shadow #:uninstall)
996fec5 @xach Initial commit.
xach authored
262 (:export #:quickload
263 #:*quickload-prompt*
264 #:*quickload-verbose*
265 #:*quickload-explain*
fa17f45 @xach Export QL:SYSTEM-NOT-FOUND and QL:SYSTEM-NOT-FOUND-NAME.
xach authored
266 #:system-not-found
267 #:system-not-found-name
5655b77 @xach Make UNINSTALL and UNINSTALL-DIST client options.
xach authored
268 #:uninstall
269 #:uninstall-dist
996fec5 @xach Initial commit.
xach authored
270 #:qmerge
271 #:*quicklisp-home*
272 #:*initial-dist-url*
273 #:*proxy-url*
274 #:config-value
275 #:setup
276 #:provided-systems
277 #:system-apropos
278 #:system-list
279 #:update-client
280 #:update-dist
281 #:update-all-dists
282 #:add-to-init-file
283 #:use-only-quicklisp-systems
a83eb0a @xach Add WRITE-ASDF-MANIFEST-FILE.
xach authored
284 #:write-asdf-manifest-file
5505b34 @xach Add QL:WHERE-IS-SYSTEM.
xach authored
285 #:where-is-system
3c65441 @xach Export QL:REGISTER-LOCAL-PROJECTS.
xach authored
286 #:help
5e4a19f @xach Support multiple local project directories.
xach authored
287 #:register-local-projects
288 #:local-projects-searcher
a03c1f8 @xach Add LIST-LOCAL-PROJECTS.
xach authored
289 #:*local-project-directories*
bf7a30e @xach Add & export LIST-LOCAL-SYSTEMS.
xach authored
290 #:list-local-projects
d13ba2c @xach Add QL:WHO-DEPENDS-ON.
xach authored
291 #:list-local-systems
292 #:who-depends-on))
996fec5 @xach Initial commit.
xach authored
293
294 (in-package #:quicklisp-client)
295
Something went wrong with that request. Please try again.