changeset 696: | 38e9c3be2392 |
parent: | 2bad47888dbf |
author: | Richard Westhaver <ellis@rwest.io> |
date: | Fri, 04 Oct 2024 21:11:52 -0400 |
permissions: | -rw-r--r-- |
description: | prep for adding zdict wrapper, change default control stack size of inferior-lisp to 8M |
388
dec30b6fd500
prelude/user packages init
Richard Westhaver <ellis@rwest.io>
parents:
384
diff
changeset
|
1 | ;;; std/pkg.lisp --- Standard Packages |
dec30b6fd500
prelude/user packages init
Richard Westhaver <ellis@rwest.io>
parents:
384
diff
changeset
|
2 | |
dec30b6fd500
prelude/user packages init
Richard Westhaver <ellis@rwest.io>
parents:
384
diff
changeset
|
3 | ;; |
291 | 4 | |
388
dec30b6fd500
prelude/user packages init
Richard Westhaver <ellis@rwest.io>
parents:
384
diff
changeset
|
5 | ;;; Code: |
413 | 6 | (pkg:defpkg :std-int |
7 | (:use :cl) |
|
8 | (:use-reexport :std/named-readtables :std/defpkg)) |
|
403 | 9 | |
408
96020a698c0b
std-user package updates
Richard Westhaver <ellis@rwest.io>
parents:
403
diff
changeset
|
10 | (in-package :std-int) |
403 | 11 | |
563 | 12 | (defpackage :std/condition |
291 | 13 | (:use :cl) |
14 | (:export ;; err |
|
224 | 15 | :std-error :std-error-message |
16 | :define-error-reporter |
|
17 | :deferror |
|
122
4ba88cac5bc7
num/parse, added DAT system, net/fetch, time/local, refactored trees
ellis <ellis@rwest.io>
parents:
119
diff
changeset
|
18 | :nyi! |
4ba88cac5bc7
num/parse, added DAT system, net/fetch, time/local, refactored trees
ellis <ellis@rwest.io>
parents:
119
diff
changeset
|
19 | :required-argument |
4ba88cac5bc7
num/parse, added DAT system, net/fetch, time/local, refactored trees
ellis <ellis@rwest.io>
parents:
119
diff
changeset
|
20 | :ignore-some-conditions |
4ba88cac5bc7
num/parse, added DAT system, net/fetch, time/local, refactored trees
ellis <ellis@rwest.io>
parents:
119
diff
changeset
|
21 | :simple-style-warning |
4ba88cac5bc7
num/parse, added DAT system, net/fetch, time/local, refactored trees
ellis <ellis@rwest.io>
parents:
119
diff
changeset
|
22 | :simple-reader-error |
4ba88cac5bc7
num/parse, added DAT system, net/fetch, time/local, refactored trees
ellis <ellis@rwest.io>
parents:
119
diff
changeset
|
23 | :simple-parse-error |
4ba88cac5bc7
num/parse, added DAT system, net/fetch, time/local, refactored trees
ellis <ellis@rwest.io>
parents:
119
diff
changeset
|
24 | :simple-program-error |
4ba88cac5bc7
num/parse, added DAT system, net/fetch, time/local, refactored trees
ellis <ellis@rwest.io>
parents:
119
diff
changeset
|
25 | :circular-dependency |
4ba88cac5bc7
num/parse, added DAT system, net/fetch, time/local, refactored trees
ellis <ellis@rwest.io>
parents:
119
diff
changeset
|
26 | :circular-dependency-items |
4ba88cac5bc7
num/parse, added DAT system, net/fetch, time/local, refactored trees
ellis <ellis@rwest.io>
parents:
119
diff
changeset
|
27 | :unknown-argument |
4ba88cac5bc7
num/parse, added DAT system, net/fetch, time/local, refactored trees
ellis <ellis@rwest.io>
parents:
119
diff
changeset
|
28 | :unknown-argument-name |
4ba88cac5bc7
num/parse, added DAT system, net/fetch, time/local, refactored trees
ellis <ellis@rwest.io>
parents:
119
diff
changeset
|
29 | :unknown-argument-kind |
4ba88cac5bc7
num/parse, added DAT system, net/fetch, time/local, refactored trees
ellis <ellis@rwest.io>
parents:
119
diff
changeset
|
30 | :unknown-argument-p |
4ba88cac5bc7
num/parse, added DAT system, net/fetch, time/local, refactored trees
ellis <ellis@rwest.io>
parents:
119
diff
changeset
|
31 | :missing-argument |
4ba88cac5bc7
num/parse, added DAT system, net/fetch, time/local, refactored trees
ellis <ellis@rwest.io>
parents:
119
diff
changeset
|
32 | :missing-argument-command |
4ba88cac5bc7
num/parse, added DAT system, net/fetch, time/local, refactored trees
ellis <ellis@rwest.io>
parents:
119
diff
changeset
|
33 | :missing-argument-p |
4ba88cac5bc7
num/parse, added DAT system, net/fetch, time/local, refactored trees
ellis <ellis@rwest.io>
parents:
119
diff
changeset
|
34 | :invalid-argument |
4ba88cac5bc7
num/parse, added DAT system, net/fetch, time/local, refactored trees
ellis <ellis@rwest.io>
parents:
119
diff
changeset
|
35 | :invalid-argument-item |
4ba88cac5bc7
num/parse, added DAT system, net/fetch, time/local, refactored trees
ellis <ellis@rwest.io>
parents:
119
diff
changeset
|
36 | :invalid-argument-reason |
4ba88cac5bc7
num/parse, added DAT system, net/fetch, time/local, refactored trees
ellis <ellis@rwest.io>
parents:
119
diff
changeset
|
37 | :invalid-argument-p |
645 | 38 | :unwind-protect-case |
39 | :define-simple-error |
|
40 | :define-simple-error-reporter |
|
41 | :def-simple-error-reporter |
|
42 | :std-warning |
|
43 | :defwarning |
|
44 | :def-simple-warning-reporter |
|
45 | :def-warning-reporter)) |
|
291 | 46 | |
390 | 47 | (defpackage :std/sym |
291 | 48 | (:use :cl) |
49 | (:shadowing-import-from :sb-int |
|
50 | :with-unique-names :symbolicate :package-symbolicate :keywordicate :gensymify* |
|
51 | :gensymify) |
|
52 | (:export |
|
53 | :ensure-symbol |
|
54 | :format-symbol |
|
55 | :make-keyword |
|
56 | :make-slot-name |
|
57 | :make-gensym |
|
58 | :make-gensym-list |
|
59 | :with-gensyms |
|
60 | :with-unique-names |
|
61 | :symbolicate |
|
62 | :keywordicate |
|
63 | :gensymify |
|
64 | :gensymify*)) |
|
65 | ||
66 | (defpkg :std/list |
|
67 | (:use :cl) |
|
68 | (:shadowing-import-from :sb-int |
|
69 | :ensure-list :recons :memq :assq |
|
70 | :ensure-list :proper-list-of-length-p :proper-list-p :singleton-p) |
|
292
00d1c8afcdbb
mostly done with std refactor, added sst-file-writer to rdb
Richard Westhaver <ellis@rwest.io>
parents:
291
diff
changeset
|
71 | (:import-from :std/sym :symb) |
00d1c8afcdbb
mostly done with std refactor, added sst-file-writer to rdb
Richard Westhaver <ellis@rwest.io>
parents:
291
diff
changeset
|
72 | (:import-from :std/named-readtables :parse-body) |
291 | 73 | (:export |
74 | :ensure-car |
|
75 | :ensure-cons |
|
76 | :appendf |
|
77 | :nconcf |
|
78 | :unionf |
|
79 | :nunionf |
|
80 | :reversef |
|
81 | :nreversef |
|
82 | :deletef |
|
83 | :flatten |
|
84 | :group |
|
85 | :let-binding-transform |
|
86 | :ensure-list :recons :memq :assq |
|
87 | :circular-list :circular-list-p :circular-tree-p :merge! |
|
456 | 88 | :sort! |
89 | :set-equal)) |
|
291 | 90 | |
91 | (defpkg :std/type |
|
92 | (:use :cl) |
|
293
e2e5c4831389
std fixes and rdb with-sst
Richard Westhaver <ellis@rwest.io>
parents:
292
diff
changeset
|
93 | (:import-from :std/sym :format-symbol :with-gensyms) |
291 | 94 | (:import-from :std/list :ensure-car) |
95 | (:export :+default-element-type+ |
|
96 | :array-index :array-length |
|
695 | 97 | #:negative-double-float |
98 | #:negative-fixnum-p |
|
99 | #:negative-float |
|
100 | #:negative-float-p |
|
101 | #:negative-long-float |
|
102 | #:negative-long-float-p |
|
103 | #:negative-rational |
|
104 | #:negative-rational-p |
|
105 | #:negative-real |
|
106 | #:negative-single-float-p |
|
107 | #:non-negative-double-float |
|
108 | #:non-negative-double-float-p |
|
109 | #:non-negative-fixnum |
|
110 | #:non-negative-fixnum-p |
|
111 | #:non-negative-float |
|
112 | #:non-negative-float-p |
|
113 | #:non-negative-integer-p |
|
114 | #:non-negative-long-float |
|
115 | #:non-negative-rational |
|
116 | #:non-negative-real-p |
|
117 | #:non-negative-short-float-p |
|
118 | #:non-negative-single-float |
|
119 | #:non-negative-single-float-p |
|
120 | #:non-positive-double-float |
|
121 | #:non-positive-double-float-p |
|
122 | #:non-positive-fixnum |
|
123 | #:non-positive-fixnum-p |
|
124 | #:non-positive-float |
|
125 | #:non-positive-float-p |
|
126 | #:non-positive-integer |
|
127 | #:non-positive-rational |
|
128 | #:non-positive-real |
|
129 | #:non-positive-real-p |
|
130 | #:non-positive-short-float |
|
131 | #:non-positive-short-float-p |
|
132 | #:non-positive-single-float-p |
|
133 | #:positive-double-float |
|
134 | #:positive-double-float-p |
|
135 | #:positive-fixnum |
|
136 | #:positive-fixnum-p |
|
137 | #:positive-float |
|
138 | #:positive-float-p |
|
139 | #:positive-integer |
|
140 | #:positive-rational |
|
141 | #:positive-real |
|
142 | #:positive-real-p |
|
143 | #:positive-short-float |
|
144 | #:positive-short-float-p |
|
145 | #:positive-single-float |
|
146 | #:positive-single-float-p |
|
147 | :negative-integer |
|
148 | #:negative-double-float-p |
|
149 | #:negative-fixnum |
|
150 | #:negative-integer |
|
151 | #:negative-integer-p |
|
152 | #:negative-real-p |
|
153 | #:negative-short-float |
|
154 | #:negative-short-float-p |
|
155 | #:negative-single-float |
|
156 | #:non-negative-integer |
|
157 | #:non-negative-long-float-p |
|
158 | #:non-negative-rational-p |
|
159 | #:non-negative-real |
|
160 | #:non-negative-short-float |
|
161 | #:non-positive-integer-p |
|
162 | #:non-positive-long-float |
|
163 | #:non-positive-long-float-p |
|
164 | #:non-positive-rational-p |
|
165 | #:non-positive-single-float |
|
166 | :coercef |
|
167 | :octet |
|
168 | :octet-vector |
|
169 | #:positive-integer-p |
|
170 | #:positive-long-float |
|
171 | #:positive-long-float-p |
|
172 | #:positive-rational-p |
|
173 | :of-type |
|
174 | :type=)) |
|
291 | 175 | |
176 | (defpkg :std/num |
|
177 | (:use :cl) |
|
178 | (:export |
|
122
4ba88cac5bc7
num/parse, added DAT system, net/fetch, time/local, refactored trees
ellis <ellis@rwest.io>
parents:
119
diff
changeset
|
179 | ;; num/parse |
4ba88cac5bc7
num/parse, added DAT system, net/fetch, time/local, refactored trees
ellis <ellis@rwest.io>
parents:
119
diff
changeset
|
180 | :parse-number |
4ba88cac5bc7
num/parse, added DAT system, net/fetch, time/local, refactored trees
ellis <ellis@rwest.io>
parents:
119
diff
changeset
|
181 | :parse-real-number |
4ba88cac5bc7
num/parse, added DAT system, net/fetch, time/local, refactored trees
ellis <ellis@rwest.io>
parents:
119
diff
changeset
|
182 | :parse-positive-real-number |
4ba88cac5bc7
num/parse, added DAT system, net/fetch, time/local, refactored trees
ellis <ellis@rwest.io>
parents:
119
diff
changeset
|
183 | :invalid-number |
4ba88cac5bc7
num/parse, added DAT system, net/fetch, time/local, refactored trees
ellis <ellis@rwest.io>
parents:
119
diff
changeset
|
184 | :invalid-number-value |
4ba88cac5bc7
num/parse, added DAT system, net/fetch, time/local, refactored trees
ellis <ellis@rwest.io>
parents:
119
diff
changeset
|
185 | :invalid-number-reason |
115
7ed6bc70ca20
added basics of DB, included XDB, added IEEE floats to std/num module (new)
ellis <ellis@rwest.io>
parents:
110
diff
changeset
|
186 | ;; num/float |
7ed6bc70ca20
added basics of DB, included XDB, added IEEE floats to std/num module (new)
ellis <ellis@rwest.io>
parents:
110
diff
changeset
|
187 | :make-float-converters |
7ed6bc70ca20
added basics of DB, included XDB, added IEEE floats to std/num module (new)
ellis <ellis@rwest.io>
parents:
110
diff
changeset
|
188 | :encode-float32 |
7ed6bc70ca20
added basics of DB, included XDB, added IEEE floats to std/num module (new)
ellis <ellis@rwest.io>
parents:
110
diff
changeset
|
189 | :decode-float32 |
7ed6bc70ca20
added basics of DB, included XDB, added IEEE floats to std/num module (new)
ellis <ellis@rwest.io>
parents:
110
diff
changeset
|
190 | :encode-float64 |
547 | 191 | :decode-float64 |
192 | ;; num/leb128 |
|
193 | :read-leb128 |
|
194 | :encode-leb128 |
|
195 | :decode-leb128 |
|
196 | :read-uleb128 |
|
197 | :encode-uleb128 |
|
198 | :decode-uleb128)) |
|
291 | 199 | |
200 | (defpkg :std/stream |
|
442 | 201 | (:use :cl :sb-gray) |
291 | 202 | (:import-from :std/type :non-negative-integer :positive-integer) |
203 | (:export |
|
277
10faf95f90dd
stream and basic type upgrades. fixed some bugs and improved csv parsing
Richard Westhaver <ellis@rwest.io>
parents:
240
diff
changeset
|
204 | ;; stream |
279
efc3e9ec02bf
random tune-ups, added mpd and net/util.lisp
Richard Westhaver <ellis@rwest.io>
parents:
278
diff
changeset
|
205 | :copy-stream |
289
c4682fedd73d
added krypt lib, will probably add homer too
Richard Westhaver <ellis@rwest.io>
parents:
284
diff
changeset
|
206 | :wrapped-stream |
c4682fedd73d
added krypt lib, will probably add homer too
Richard Westhaver <ellis@rwest.io>
parents:
284
diff
changeset
|
207 | :wrapped-character-input-stream |
c4682fedd73d
added krypt lib, will probably add homer too
Richard Westhaver <ellis@rwest.io>
parents:
284
diff
changeset
|
208 | :wrapped-character-output-stream |
c4682fedd73d
added krypt lib, will probably add homer too
Richard Westhaver <ellis@rwest.io>
parents:
284
diff
changeset
|
209 | :counting-character-input-stream |
c4682fedd73d
added krypt lib, will probably add homer too
Richard Westhaver <ellis@rwest.io>
parents:
284
diff
changeset
|
210 | :prefixed-character-output-stream |
c4682fedd73d
added krypt lib, will probably add homer too
Richard Westhaver <ellis@rwest.io>
parents:
284
diff
changeset
|
211 | :stream-of :char-count-of :line-count-of :col-count-of |
c4682fedd73d
added krypt lib, will probably add homer too
Richard Westhaver <ellis@rwest.io>
parents:
284
diff
changeset
|
212 | :prev-col-count-of :col-index-of :write-prefix |
291 | 213 | :prefix-of)) |
214 | ||
215 | (defpkg :std/array |
|
216 | (:use :cl) |
|
217 | (:export :copy-array :signed-array-length)) |
|
218 | ||
219 | (defpkg :std/hash-table |
|
220 | (:use :cl) |
|
221 | (:nicknames :std/ht) |
|
222 | (:export :hash-table-alist |
|
223 | :maphash-keys :hash-table-keys |
|
224 | :maphash-values :hash-table-values)) |
|
225 | ||
226 | (defpkg :std/alien |
|
227 | (:use :cl :sb-alien) |
|
292
00d1c8afcdbb
mostly done with std refactor, added sst-file-writer to rdb
Richard Westhaver <ellis@rwest.io>
parents:
291
diff
changeset
|
228 | (:import-from :std/sym :symbolicate :with-gensyms) |
291 | 229 | (:export |
292
00d1c8afcdbb
mostly done with std refactor, added sst-file-writer to rdb
Richard Westhaver <ellis@rwest.io>
parents:
291
diff
changeset
|
230 | :setfa |
00d1c8afcdbb
mostly done with std refactor, added sst-file-writer to rdb
Richard Westhaver <ellis@rwest.io>
parents:
291
diff
changeset
|
231 | :copy-c-string |
00d1c8afcdbb
mostly done with std refactor, added sst-file-writer to rdb
Richard Westhaver <ellis@rwest.io>
parents:
291
diff
changeset
|
232 | :clone-strings |
658
804b5ee20a46
zstd completed (besides zdict), working on readline
Richard Westhaver <ellis@rwest.io>
parents:
657
diff
changeset
|
233 | :octets-to-alien-array |
804b5ee20a46
zstd completed (besides zdict), working on readline
Richard Westhaver <ellis@rwest.io>
parents:
657
diff
changeset
|
234 | :with-alien-slots |
292
00d1c8afcdbb
mostly done with std refactor, added sst-file-writer to rdb
Richard Westhaver <ellis@rwest.io>
parents:
291
diff
changeset
|
235 | :clone-octets-to-alien |
657 | 236 | :octets-to-alien |
292
00d1c8afcdbb
mostly done with std refactor, added sst-file-writer to rdb
Richard Westhaver <ellis@rwest.io>
parents:
291
diff
changeset
|
237 | :clone-octets-from-alien |
00d1c8afcdbb
mostly done with std refactor, added sst-file-writer to rdb
Richard Westhaver <ellis@rwest.io>
parents:
291
diff
changeset
|
238 | :foreign-int-to-integer |
00d1c8afcdbb
mostly done with std refactor, added sst-file-writer to rdb
Richard Westhaver <ellis@rwest.io>
parents:
291
diff
changeset
|
239 | :foreign-int-to-bool |
00d1c8afcdbb
mostly done with std refactor, added sst-file-writer to rdb
Richard Westhaver <ellis@rwest.io>
parents:
291
diff
changeset
|
240 | :bool-to-foreign-int |
469
7354623e5b54
define-alien-enum, zstd, skel, and pod work
Richard Westhaver <ellis@rwest.io>
parents:
456
diff
changeset
|
241 | :define-alien-enum |
292
00d1c8afcdbb
mostly done with std refactor, added sst-file-writer to rdb
Richard Westhaver <ellis@rwest.io>
parents:
291
diff
changeset
|
242 | :define-opaque |
291 | 243 | :shared-object-name |
244 | :define-alien-loader |
|
245 | :c-string-to-string-list |
|
246 | :list-all-shared-objects |
|
247 | :num-cpus |
|
248 | :*cpus* |
|
249 | :loff-t |
|
695 | 250 | :memset |
251 | :memcpy |
|
252 | :posix-memalign)) |
|
291 | 253 | |
254 | (defpkg :std/mop |
|
292
00d1c8afcdbb
mostly done with std refactor, added sst-file-writer to rdb
Richard Westhaver <ellis@rwest.io>
parents:
291
diff
changeset
|
255 | (:use :cl :sb-mop :sb-pcl) |
00d1c8afcdbb
mostly done with std refactor, added sst-file-writer to rdb
Richard Westhaver <ellis@rwest.io>
parents:
291
diff
changeset
|
256 | (:import-from :std/sym :symb :make-keyword) |
291 | 257 | (:export :list-slot-values-using-class |
694 | 258 | :list-class-methods :list-class-slots :list-indirect-slot-methods |
259 | :ensure-finalized :subclassp)) |
|
291 | 260 | |
357
7c1383c08493
port xsubseq, proc-parse. work on http and clap
Richard Westhaver <ellis@rwest.io>
parents:
355
diff
changeset
|
261 | (defpkg :std/fu |
7c1383c08493
port xsubseq, proc-parse. work on http and clap
Richard Westhaver <ellis@rwest.io>
parents:
355
diff
changeset
|
262 | (:use :cl) |
7c1383c08493
port xsubseq, proc-parse. work on http and clap
Richard Westhaver <ellis@rwest.io>
parents:
355
diff
changeset
|
263 | (:import-from :std/sym :make-gensym-list) |
7c1383c08493
port xsubseq, proc-parse. work on http and clap
Richard Westhaver <ellis@rwest.io>
parents:
355
diff
changeset
|
264 | (:export |
7c1383c08493
port xsubseq, proc-parse. work on http and clap
Richard Westhaver <ellis@rwest.io>
parents:
355
diff
changeset
|
265 | :ensure-function |
7c1383c08493
port xsubseq, proc-parse. work on http and clap
Richard Westhaver <ellis@rwest.io>
parents:
355
diff
changeset
|
266 | :ensure-functionf |
7c1383c08493
port xsubseq, proc-parse. work on http and clap
Richard Westhaver <ellis@rwest.io>
parents:
355
diff
changeset
|
267 | :disjoin |
7c1383c08493
port xsubseq, proc-parse. work on http and clap
Richard Westhaver <ellis@rwest.io>
parents:
355
diff
changeset
|
268 | :conjoin |
7c1383c08493
port xsubseq, proc-parse. work on http and clap
Richard Westhaver <ellis@rwest.io>
parents:
355
diff
changeset
|
269 | :compose |
7c1383c08493
port xsubseq, proc-parse. work on http and clap
Richard Westhaver <ellis@rwest.io>
parents:
355
diff
changeset
|
270 | :multiple-value-compose |
7c1383c08493
port xsubseq, proc-parse. work on http and clap
Richard Westhaver <ellis@rwest.io>
parents:
355
diff
changeset
|
271 | :curry |
7c1383c08493
port xsubseq, proc-parse. work on http and clap
Richard Westhaver <ellis@rwest.io>
parents:
355
diff
changeset
|
272 | :rcurry)) |
7c1383c08493
port xsubseq, proc-parse. work on http and clap
Richard Westhaver <ellis@rwest.io>
parents:
355
diff
changeset
|
273 | |
291 | 274 | (defpkg :std/macs |
275 | (:use :cl) |
|
292
00d1c8afcdbb
mostly done with std refactor, added sst-file-writer to rdb
Richard Westhaver <ellis@rwest.io>
parents:
291
diff
changeset
|
276 | (:import-from :std/sym :symb :mkstr :make-gensym-list :once-only :with-gensyms) |
357
7c1383c08493
port xsubseq, proc-parse. work on http and clap
Richard Westhaver <ellis@rwest.io>
parents:
355
diff
changeset
|
277 | (:import-from :std/fu :compose) |
291 | 278 | (:import-from :std/named-readtables :in-readtable :parse-body) |
292
00d1c8afcdbb
mostly done with std refactor, added sst-file-writer to rdb
Richard Westhaver <ellis@rwest.io>
parents:
291
diff
changeset
|
279 | (:import-from :std/list :flatten :defmacro!) |
291 | 280 | (:export |
281 | :named-lambda |
|
580
571685ae64f1
queries, cli fixes, dat/csv, emacs org-columns
Richard Westhaver <ellis@rwest.io>
parents:
563
diff
changeset
|
282 | :nested-loop |
122
4ba88cac5bc7
num/parse, added DAT system, net/fetch, time/local, refactored trees
ellis <ellis@rwest.io>
parents:
119
diff
changeset
|
283 | :g!-symbol-p |
4ba88cac5bc7
num/parse, added DAT system, net/fetch, time/local, refactored trees
ellis <ellis@rwest.io>
parents:
119
diff
changeset
|
284 | :defmacro/g! |
4ba88cac5bc7
num/parse, added DAT system, net/fetch, time/local, refactored trees
ellis <ellis@rwest.io>
parents:
119
diff
changeset
|
285 | :o!-symbol-p |
4ba88cac5bc7
num/parse, added DAT system, net/fetch, time/local, refactored trees
ellis <ellis@rwest.io>
parents:
119
diff
changeset
|
286 | :o!-symbol-to-g!-symbol |
4ba88cac5bc7
num/parse, added DAT system, net/fetch, time/local, refactored trees
ellis <ellis@rwest.io>
parents:
119
diff
changeset
|
287 | :defmacro! |
4ba88cac5bc7
num/parse, added DAT system, net/fetch, time/local, refactored trees
ellis <ellis@rwest.io>
parents:
119
diff
changeset
|
288 | :defun! |
4ba88cac5bc7
num/parse, added DAT system, net/fetch, time/local, refactored trees
ellis <ellis@rwest.io>
parents:
119
diff
changeset
|
289 | :dlambda |
291 | 290 | :until |
291 | :fact |
|
292 | :choose |
|
122
4ba88cac5bc7
num/parse, added DAT system, net/fetch, time/local, refactored trees
ellis <ellis@rwest.io>
parents:
119
diff
changeset
|
293 | :make-tlist |
4ba88cac5bc7
num/parse, added DAT system, net/fetch, time/local, refactored trees
ellis <ellis@rwest.io>
parents:
119
diff
changeset
|
294 | :tlist-left |
4ba88cac5bc7
num/parse, added DAT system, net/fetch, time/local, refactored trees
ellis <ellis@rwest.io>
parents:
119
diff
changeset
|
295 | :tlist-right |
4ba88cac5bc7
num/parse, added DAT system, net/fetch, time/local, refactored trees
ellis <ellis@rwest.io>
parents:
119
diff
changeset
|
296 | :tlist-empty-p |
4ba88cac5bc7
num/parse, added DAT system, net/fetch, time/local, refactored trees
ellis <ellis@rwest.io>
parents:
119
diff
changeset
|
297 | :tlist-add-left |
4ba88cac5bc7
num/parse, added DAT system, net/fetch, time/local, refactored trees
ellis <ellis@rwest.io>
parents:
119
diff
changeset
|
298 | :tlist-add-right |
4ba88cac5bc7
num/parse, added DAT system, net/fetch, time/local, refactored trees
ellis <ellis@rwest.io>
parents:
119
diff
changeset
|
299 | :tlist-rem-left |
4ba88cac5bc7
num/parse, added DAT system, net/fetch, time/local, refactored trees
ellis <ellis@rwest.io>
parents:
119
diff
changeset
|
300 | :tlist-update |
4ba88cac5bc7
num/parse, added DAT system, net/fetch, time/local, refactored trees
ellis <ellis@rwest.io>
parents:
119
diff
changeset
|
301 | :build-batcher-sn |
4ba88cac5bc7
num/parse, added DAT system, net/fetch, time/local, refactored trees
ellis <ellis@rwest.io>
parents:
119
diff
changeset
|
302 | :sortf |
4ba88cac5bc7
num/parse, added DAT system, net/fetch, time/local, refactored trees
ellis <ellis@rwest.io>
parents:
119
diff
changeset
|
303 | :dollar-symbol-p |
4ba88cac5bc7
num/parse, added DAT system, net/fetch, time/local, refactored trees
ellis <ellis@rwest.io>
parents:
119
diff
changeset
|
304 | :if-match |
4ba88cac5bc7
num/parse, added DAT system, net/fetch, time/local, refactored trees
ellis <ellis@rwest.io>
parents:
119
diff
changeset
|
305 | :when-match |
4ba88cac5bc7
num/parse, added DAT system, net/fetch, time/local, refactored trees
ellis <ellis@rwest.io>
parents:
119
diff
changeset
|
306 | :once-only |
4ba88cac5bc7
num/parse, added DAT system, net/fetch, time/local, refactored trees
ellis <ellis@rwest.io>
parents:
119
diff
changeset
|
307 | :destructuring-case |
4ba88cac5bc7
num/parse, added DAT system, net/fetch, time/local, refactored trees
ellis <ellis@rwest.io>
parents:
119
diff
changeset
|
308 | :destructuring-ccase |
4ba88cac5bc7
num/parse, added DAT system, net/fetch, time/local, refactored trees
ellis <ellis@rwest.io>
parents:
119
diff
changeset
|
309 | :destructuring-ecase |
4ba88cac5bc7
num/parse, added DAT system, net/fetch, time/local, refactored trees
ellis <ellis@rwest.io>
parents:
119
diff
changeset
|
310 | :when-let |
4ba88cac5bc7
num/parse, added DAT system, net/fetch, time/local, refactored trees
ellis <ellis@rwest.io>
parents:
119
diff
changeset
|
311 | :when-let* |
4ba88cac5bc7
num/parse, added DAT system, net/fetch, time/local, refactored trees
ellis <ellis@rwest.io>
parents:
119
diff
changeset
|
312 | :if-let |
4ba88cac5bc7
num/parse, added DAT system, net/fetch, time/local, refactored trees
ellis <ellis@rwest.io>
parents:
119
diff
changeset
|
313 | :if-let* |
105 | 314 | :if* |
96 | 315 | :define-constant |
369 | 316 | :defvar-unbound |
96 | 317 | :def! |
318 | :eval-always |
|
291 | 319 | ;; ana |
320 | :awhen |
|
321 | :acond |
|
322 | :alambda |
|
323 | :nlet-tail |
|
324 | :alet% |
|
325 | :alet |
|
326 | :acond2 |
|
594
5bd0eb9fa1fa
rocksdb callbacks, missing symbol fixes
Richard Westhaver <ellis@rwest.io>
parents:
589
diff
changeset
|
327 | :aif |
291 | 328 | :it |
594
5bd0eb9fa1fa
rocksdb callbacks, missing symbol fixes
Richard Westhaver <ellis@rwest.io>
parents:
589
diff
changeset
|
329 | :%a |
291 | 330 | ;; pan |
594
5bd0eb9fa1fa
rocksdb callbacks, missing symbol fixes
Richard Westhaver <ellis@rwest.io>
parents:
589
diff
changeset
|
331 | :%p |
291 | 332 | :pandoriclet |
333 | :pandoriclet-get |
|
334 | :pandoriclet-set |
|
335 | :get-pandoric |
|
336 | :with-pandoric |
|
337 | :pandoric-hotpatch |
|
338 | :pandoric-recode |
|
339 | :plambda |
|
357
7c1383c08493
port xsubseq, proc-parse. work on http and clap
Richard Westhaver <ellis@rwest.io>
parents:
355
diff
changeset
|
340 | :pandoric-eval |
7c1383c08493
port xsubseq, proc-parse. work on http and clap
Richard Westhaver <ellis@rwest.io>
parents:
355
diff
changeset
|
341 | :with-collectors |
359
0e00dec3de03
macs/control macros, seq functions, ported cl-cookie, added uri/domain.lisp, fully ported http! next we should remove dependence on cl+ssl
Richard Westhaver <ellis@rwest.io>
parents:
357
diff
changeset
|
342 | :collecting |
0e00dec3de03
macs/control macros, seq functions, ported cl-cookie, added uri/domain.lisp, fully ported http! next we should remove dependence on cl+ssl
Richard Westhaver <ellis@rwest.io>
parents:
357
diff
changeset
|
343 | :xor)) |
292
00d1c8afcdbb
mostly done with std refactor, added sst-file-writer to rdb
Richard Westhaver <ellis@rwest.io>
parents:
291
diff
changeset
|
344 | |
437
83f8623a6ec3
std work, renamed :disabled in deftest to :skip
Richard Westhaver <ellis@rwest.io>
parents:
431
diff
changeset
|
345 | (defpkg :std/thread |
83f8623a6ec3
std work, renamed :disabled in deftest to :skip
Richard Westhaver <ellis@rwest.io>
parents:
431
diff
changeset
|
346 | (:use :cl :sb-thread :sb-concurrency) |
83f8623a6ec3
std work, renamed :disabled in deftest to :skip
Richard Westhaver <ellis@rwest.io>
parents:
431
diff
changeset
|
347 | (:import-from :std/list :flatten) |
497
bcf772e86fbc
add std/task, some fixes and added cli/tools/systemd
Richard Westhaver <ellis@rwest.io>
parents:
492
diff
changeset
|
348 | (:use-reexport :sb-thread) |
437
83f8623a6ec3
std work, renamed :disabled in deftest to :skip
Richard Westhaver <ellis@rwest.io>
parents:
431
diff
changeset
|
349 | (:export |
664
4d8451fe5423
moved web to lib/web, added dat/css
Richard Westhaver <ellis@rwest.io>
parents:
658
diff
changeset
|
350 | :std-thread-error |
492
dc0cc9c69789
ephemeral worker threads
Richard Westhaver <ellis@rwest.io>
parents:
482
diff
changeset
|
351 | :print-top-level :thread-support-p |
437
83f8623a6ec3
std work, renamed :disabled in deftest to :skip
Richard Westhaver <ellis@rwest.io>
parents:
431
diff
changeset
|
352 | :find-thread-by-id :thread-id-list |
497
bcf772e86fbc
add std/task, some fixes and added cli/tools/systemd
Richard Westhaver <ellis@rwest.io>
parents:
492
diff
changeset
|
353 | :timed-join-thread :kill-thread |
bcf772e86fbc
add std/task, some fixes and added cli/tools/systemd
Richard Westhaver <ellis@rwest.io>
parents:
492
diff
changeset
|
354 | :wait-for-threads |
bcf772e86fbc
add std/task, some fixes and added cli/tools/systemd
Richard Westhaver <ellis@rwest.io>
parents:
492
diff
changeset
|
355 | :hang :finish-threads |
bcf772e86fbc
add std/task, some fixes and added cli/tools/systemd
Richard Westhaver <ellis@rwest.io>
parents:
492
diff
changeset
|
356 | :make-threads :with-threads |
bcf772e86fbc
add std/task, some fixes and added cli/tools/systemd
Richard Westhaver <ellis@rwest.io>
parents:
492
diff
changeset
|
357 | :thread-count :dump-thread)) |
bcf772e86fbc
add std/task, some fixes and added cli/tools/systemd
Richard Westhaver <ellis@rwest.io>
parents:
492
diff
changeset
|
358 | |
bcf772e86fbc
add std/task, some fixes and added cli/tools/systemd
Richard Westhaver <ellis@rwest.io>
parents:
492
diff
changeset
|
359 | (defpkg :std/task |
bcf772e86fbc
add std/task, some fixes and added cli/tools/systemd
Richard Westhaver <ellis@rwest.io>
parents:
492
diff
changeset
|
360 | (:use :cl :std/thread :sb-concurrency) |
bcf772e86fbc
add std/task, some fixes and added cli/tools/systemd
Richard Westhaver <ellis@rwest.io>
parents:
492
diff
changeset
|
361 | (:import-from :std/thread :%make-thread) |
696
38e9c3be2392
prep for adding zdict wrapper, change default control stack size of inferior-lisp to 8M
Richard Westhaver <ellis@rwest.io>
parents:
695
diff
changeset
|
362 | (:import-from :std/macs :if-let :eval-always) |
694 | 363 | (:import-from :std/list :deletef) |
497
bcf772e86fbc
add std/task, some fixes and added cli/tools/systemd
Richard Westhaver <ellis@rwest.io>
parents:
492
diff
changeset
|
364 | (:export |
492
dc0cc9c69789
ephemeral worker threads
Richard Westhaver <ellis@rwest.io>
parents:
482
diff
changeset
|
365 | :spawn-workers |
497
bcf772e86fbc
add std/task, some fixes and added cli/tools/systemd
Richard Westhaver <ellis@rwest.io>
parents:
492
diff
changeset
|
366 | :make-oracle :make-supervisor |
694 | 367 | :oracle |
454 | 368 | :oracle-id :find-thread |
497
bcf772e86fbc
add std/task, some fixes and added cli/tools/systemd
Richard Westhaver <ellis@rwest.io>
parents:
492
diff
changeset
|
369 | :push-job :push-task |
bcf772e86fbc
add std/task, some fixes and added cli/tools/systemd
Richard Westhaver <ellis@rwest.io>
parents:
492
diff
changeset
|
370 | :push-worker :push-task-result |
696
38e9c3be2392
prep for adding zdict wrapper, change default control stack size of inferior-lisp to 8M
Richard Westhaver <ellis@rwest.io>
parents:
695
diff
changeset
|
371 | :run-object |
694 | 372 | :work |
497
bcf772e86fbc
add std/task, some fixes and added cli/tools/systemd
Richard Westhaver <ellis@rwest.io>
parents:
492
diff
changeset
|
373 | :pop-job :pop-task |
692 | 374 | :workers |
375 | :tasks |
|
376 | :results |
|
377 | :kill-workers |
|
378 | :kill-worker |
|
379 | :join-worker |
|
380 | :worker-thread |
|
381 | :start-task-worker |
|
382 | :start-task-workers |
|
497
bcf772e86fbc
add std/task, some fixes and added cli/tools/systemd
Richard Westhaver <ellis@rwest.io>
parents:
492
diff
changeset
|
383 | :pop-worker :pop-task-result |
bcf772e86fbc
add std/task, some fixes and added cli/tools/systemd
Richard Westhaver <ellis@rwest.io>
parents:
492
diff
changeset
|
384 | :*task-pool* |
bcf772e86fbc
add std/task, some fixes and added cli/tools/systemd
Richard Westhaver <ellis@rwest.io>
parents:
492
diff
changeset
|
385 | :*tasks* |
bcf772e86fbc
add std/task, some fixes and added cli/tools/systemd
Richard Westhaver <ellis@rwest.io>
parents:
492
diff
changeset
|
386 | :*oracles* |
694 | 387 | :*oracle-threads* |
388 | :*worker-threads* |
|
389 | :*supervisor-threads* |
|
497
bcf772e86fbc
add std/task, some fixes and added cli/tools/systemd
Richard Westhaver <ellis@rwest.io>
parents:
492
diff
changeset
|
390 | :*jobs* |
bcf772e86fbc
add std/task, some fixes and added cli/tools/systemd
Richard Westhaver <ellis@rwest.io>
parents:
492
diff
changeset
|
391 | :*stages* |
692 | 392 | :*task* |
393 | :*task-result* |
|
497
bcf772e86fbc
add std/task, some fixes and added cli/tools/systemd
Richard Westhaver <ellis@rwest.io>
parents:
492
diff
changeset
|
394 | :define-task-kernel |
bcf772e86fbc
add std/task, some fixes and added cli/tools/systemd
Richard Westhaver <ellis@rwest.io>
parents:
492
diff
changeset
|
395 | :*task-kernel* |
bcf772e86fbc
add std/task, some fixes and added cli/tools/systemd
Richard Westhaver <ellis@rwest.io>
parents:
492
diff
changeset
|
396 | :default-task-kernel |
bcf772e86fbc
add std/task, some fixes and added cli/tools/systemd
Richard Westhaver <ellis@rwest.io>
parents:
492
diff
changeset
|
397 | :make-worker |
bcf772e86fbc
add std/task, some fixes and added cli/tools/systemd
Richard Westhaver <ellis@rwest.io>
parents:
492
diff
changeset
|
398 | :make-workers |
691 | 399 | :run-tasks |
400 | :run-jobs |
|
497
bcf772e86fbc
add std/task, some fixes and added cli/tools/systemd
Richard Westhaver <ellis@rwest.io>
parents:
492
diff
changeset
|
401 | :worker-count |
bcf772e86fbc
add std/task, some fixes and added cli/tools/systemd
Richard Westhaver <ellis@rwest.io>
parents:
492
diff
changeset
|
402 | :init-task-pool |
437
83f8623a6ec3
std work, renamed :disabled in deftest to :skip
Richard Westhaver <ellis@rwest.io>
parents:
431
diff
changeset
|
403 | :make-task-pool |
497
bcf772e86fbc
add std/task, some fixes and added cli/tools/systemd
Richard Westhaver <ellis@rwest.io>
parents:
492
diff
changeset
|
404 | :start-task-pool :pause-task-pool |
bcf772e86fbc
add std/task, some fixes and added cli/tools/systemd
Richard Westhaver <ellis@rwest.io>
parents:
492
diff
changeset
|
405 | :shutdown-task-pool |
bcf772e86fbc
add std/task, some fixes and added cli/tools/systemd
Richard Westhaver <ellis@rwest.io>
parents:
492
diff
changeset
|
406 | :push-stage :designate-oracle |
bcf772e86fbc
add std/task, some fixes and added cli/tools/systemd
Richard Westhaver <ellis@rwest.io>
parents:
492
diff
changeset
|
407 | :make-task-pool |
bcf772e86fbc
add std/task, some fixes and added cli/tools/systemd
Richard Westhaver <ellis@rwest.io>
parents:
492
diff
changeset
|
408 | :task :job :task-pool |
bcf772e86fbc
add std/task, some fixes and added cli/tools/systemd
Richard Westhaver <ellis@rwest.io>
parents:
492
diff
changeset
|
409 | :stage :task-pool-p |
bcf772e86fbc
add std/task, some fixes and added cli/tools/systemd
Richard Westhaver <ellis@rwest.io>
parents:
492
diff
changeset
|
410 | :job-tasks :make-job |
bcf772e86fbc
add std/task, some fixes and added cli/tools/systemd
Richard Westhaver <ellis@rwest.io>
parents:
492
diff
changeset
|
411 | :job-p :task-object |
bcf772e86fbc
add std/task, some fixes and added cli/tools/systemd
Richard Westhaver <ellis@rwest.io>
parents:
492
diff
changeset
|
412 | :make-task :task-p :task |
bcf772e86fbc
add std/task, some fixes and added cli/tools/systemd
Richard Westhaver <ellis@rwest.io>
parents:
492
diff
changeset
|
413 | :task-pool-oracle :task-pool-jobs |
bcf772e86fbc
add std/task, some fixes and added cli/tools/systemd
Richard Westhaver <ellis@rwest.io>
parents:
492
diff
changeset
|
414 | :task-pool-stages |
bcf772e86fbc
add std/task, some fixes and added cli/tools/systemd
Richard Westhaver <ellis@rwest.io>
parents:
492
diff
changeset
|
415 | :task-pool-workers :task-pool-results |
bcf772e86fbc
add std/task, some fixes and added cli/tools/systemd
Richard Westhaver <ellis@rwest.io>
parents:
492
diff
changeset
|
416 | :with-task-pool)) |
437
83f8623a6ec3
std work, renamed :disabled in deftest to :skip
Richard Westhaver <ellis@rwest.io>
parents:
431
diff
changeset
|
417 | |
355 | 418 | (defpkg :std/readtable |
419 | (:use :cl) |
|
420 | (:import-from :std/named-readtables :defreadtable) |
|
421 | (:import-from :std/fu :curry :rcurry :compose) |
|
422 | (:import-from :std/sym :symb) |
|
423 | (:import-from :std/list :defmacro!) ;; kludge |
|
424 | (:export |
|
425 | ;; readtable |
|
426 | :|#"-reader| |
|
427 | :|#`-reader| |
|
428 | :|#f-reader| |
|
429 | :|#$-reader| |
|
430 | :segment-reader |
|
431 | :match-mode-ppcre-lambda-form |
|
432 | :subst-mode-ppcre-lambda-form |
|
433 | :|#~-reader| |
|
434 | :_)) |
|
435 | ||
291 | 436 | (defpkg :std/bit |
437 | (:use :cl) |
|
293
e2e5c4831389
std fixes and rdb with-sst
Richard Westhaver <ellis@rwest.io>
parents:
292
diff
changeset
|
438 | (:import-from :std/type :octet :octet-vector) |
291 | 439 | (:export |
119 | 440 | :make-bits |
212
742e6d74752d
added sans-io module, more bits
Richard Westhaver <ellis@rwest.io>
parents:
208
diff
changeset
|
441 | :sign-bit |
742e6d74752d
added sans-io module, more bits
Richard Westhaver <ellis@rwest.io>
parents:
208
diff
changeset
|
442 | :different-signs-p |
742e6d74752d
added sans-io module, more bits
Richard Westhaver <ellis@rwest.io>
parents:
208
diff
changeset
|
443 | :mortify-bits |
742e6d74752d
added sans-io module, more bits
Richard Westhaver <ellis@rwest.io>
parents:
208
diff
changeset
|
444 | :int-list-bits |
742e6d74752d
added sans-io module, more bits
Richard Westhaver <ellis@rwest.io>
parents:
208
diff
changeset
|
445 | :aref-bit |
742e6d74752d
added sans-io module, more bits
Richard Westhaver <ellis@rwest.io>
parents:
208
diff
changeset
|
446 | :make-bit-vector |
742e6d74752d
added sans-io module, more bits
Richard Westhaver <ellis@rwest.io>
parents:
208
diff
changeset
|
447 | :logbit |
234
d7aa08025537
cry, obj/meta, ffi/magick
Richard Westhaver <ellis@rwest.io>
parents:
233
diff
changeset
|
448 | :bitfield |
d7aa08025537
cry, obj/meta, ffi/magick
Richard Westhaver <ellis@rwest.io>
parents:
233
diff
changeset
|
449 | :bitfield-slot-name |
d7aa08025537
cry, obj/meta, ffi/magick
Richard Westhaver <ellis@rwest.io>
parents:
233
diff
changeset
|
450 | :bitfield-slot-start |
d7aa08025537
cry, obj/meta, ffi/magick
Richard Westhaver <ellis@rwest.io>
parents:
233
diff
changeset
|
451 | :bitfield-slot-end |
d7aa08025537
cry, obj/meta, ffi/magick
Richard Westhaver <ellis@rwest.io>
parents:
233
diff
changeset
|
452 | :bitfield-slot-size |
d7aa08025537
cry, obj/meta, ffi/magick
Richard Westhaver <ellis@rwest.io>
parents:
233
diff
changeset
|
453 | :bitfield-slot-reader |
d7aa08025537
cry, obj/meta, ffi/magick
Richard Westhaver <ellis@rwest.io>
parents:
233
diff
changeset
|
454 | :bitfield-slot-initform |
d7aa08025537
cry, obj/meta, ffi/magick
Richard Westhaver <ellis@rwest.io>
parents:
233
diff
changeset
|
455 | :bitfield-slot-pack |
d7aa08025537
cry, obj/meta, ffi/magick
Richard Westhaver <ellis@rwest.io>
parents:
233
diff
changeset
|
456 | :bitfield-slot-unpack |
d7aa08025537
cry, obj/meta, ffi/magick
Richard Westhaver <ellis@rwest.io>
parents:
233
diff
changeset
|
457 | :parse-atomic-bitfield-slot-specifier |
d7aa08025537
cry, obj/meta, ffi/magick
Richard Westhaver <ellis@rwest.io>
parents:
233
diff
changeset
|
458 | :parse-compound-bitfield-slot-specifier |
d7aa08025537
cry, obj/meta, ffi/magick
Richard Westhaver <ellis@rwest.io>
parents:
233
diff
changeset
|
459 | :bitfield-slot |
d7aa08025537
cry, obj/meta, ffi/magick
Richard Westhaver <ellis@rwest.io>
parents:
233
diff
changeset
|
460 | :bitfield-boolean-slot |
d7aa08025537
cry, obj/meta, ffi/magick
Richard Westhaver <ellis@rwest.io>
parents:
233
diff
changeset
|
461 | :bitfield-integer-slot |
d7aa08025537
cry, obj/meta, ffi/magick
Richard Westhaver <ellis@rwest.io>
parents:
233
diff
changeset
|
462 | :bitfield-member-slot |
d7aa08025537
cry, obj/meta, ffi/magick
Richard Westhaver <ellis@rwest.io>
parents:
233
diff
changeset
|
463 | :define-bitfield |
240
a3b65a8138ac
html,http init, uuid, db stuff
Richard Westhaver <ellis@rwest.io>
parents:
238
diff
changeset
|
464 | :hex-string-to-octet-vector |
a3b65a8138ac
html,http init, uuid, db stuff
Richard Westhaver <ellis@rwest.io>
parents:
238
diff
changeset
|
465 | :octet-vector-to-hex-string |
a3b65a8138ac
html,http init, uuid, db stuff
Richard Westhaver <ellis@rwest.io>
parents:
238
diff
changeset
|
466 | :octets-to-integer |
a3b65a8138ac
html,http init, uuid, db stuff
Richard Westhaver <ellis@rwest.io>
parents:
238
diff
changeset
|
467 | :integer-to-octets |
544
ec1d4d544c36
parquet expansion, init leb128, add little-endian octet encoders
Richard Westhaver <ellis@rwest.io>
parents:
533
diff
changeset
|
468 | :octets-to-integer-le |
ec1d4d544c36
parquet expansion, init leb128, add little-endian octet encoders
Richard Westhaver <ellis@rwest.io>
parents:
533
diff
changeset
|
469 | :integer-to-octets-le |
ec1d4d544c36
parquet expansion, init leb128, add little-endian octet encoders
Richard Westhaver <ellis@rwest.io>
parents:
533
diff
changeset
|
470 | :read-little-endian |
ec1d4d544c36
parquet expansion, init leb128, add little-endian octet encoders
Richard Westhaver <ellis@rwest.io>
parents:
533
diff
changeset
|
471 | :write-little-endian |
291 | 472 | :hexchar-to-int)) |
473 | ||
474 | (defpkg :std/fmt |
|
475 | (:use :cl) |
|
476 | (:import-from :std/list :group :ensure-cons) |
|
477 | (:shadowing-import-from :uiop :println) |
|
478 | (:export :printer-status :fmt-row :format-sxhash :iprintln :fmt-tree :println)) |
|
479 | ||
480 | (defpkg :std/path |
|
481 | (:use :cl) |
|
482 | (:export |
|
483 | :wild-pathname |
|
484 | :non-wild-pathname |
|
485 | :absolute-pathname |
|
486 | :relative-pathname |
|
487 | :directory-pathname |
|
648
926d95e5fdc7
cli/multi and slime-cape fixes
Richard Westhaver <ellis@rwest.io>
parents:
645
diff
changeset
|
488 | :symlink-pathname |
926d95e5fdc7
cli/multi and slime-cape fixes
Richard Westhaver <ellis@rwest.io>
parents:
645
diff
changeset
|
489 | :symlinkp |
379 | 490 | :absolute-directory-pathname |
431
c40d2a41d7ce
source concatenating std.lisp, more systems, got zstd simple working, IO work, added dat/tar
Richard Westhaver <ellis@rwest.io>
parents:
424
diff
changeset
|
491 | :+wildfile+ :+pathsep+ :set-pathname-suffix :*tmp-suffix* |
c40d2a41d7ce
source concatenating std.lisp, more systems, got zstd simple working, IO work, added dat/tar
Richard Westhaver <ellis@rwest.io>
parents:
424
diff
changeset
|
492 | :tmpize-pathname)) |
291 | 493 | |
494 | (defpkg :std/os |
|
495 | (:use :cl) |
|
589 | 496 | (:import-from :std/macs :with-gensyms) |
291 | 497 | (:export |
498 | :list-all-users |
|
589 | 499 | :list-all-groups |
685
ebe3315b7add
evdev/kbd fully operational, rustls and blake3 cleanups
Richard Westhaver <ellis@rwest.io>
parents:
664
diff
changeset
|
500 | :with-umask |
ebe3315b7add
evdev/kbd fully operational, rustls and blake3 cleanups
Richard Westhaver <ellis@rwest.io>
parents:
664
diff
changeset
|
501 | :with-fd)) |
291 | 502 | |
503 | (defpkg :std/file |
|
504 | (:use :cl) |
|
292
00d1c8afcdbb
mostly done with std refactor, added sst-file-writer to rdb
Richard Westhaver <ellis@rwest.io>
parents:
291
diff
changeset
|
505 | (:import-from :std/macs :define-constant :once-only :eval-always) |
336 | 506 | (:import-from :std/stream :copy-stream) |
296 | 507 | (:import-from :std/type :octet :octet-vector :array-index :array-length :+default-element-type+) |
291 | 508 | (:export |
509 | :tmpfile |
|
510 | :file-pathname |
|
511 | :with-open-files |
|
512 | :write-stream-into-file |
|
513 | :write-file-into-stream |
|
514 | :file= |
|
515 | :file-size |
|
516 | :file-size-in-octets |
|
517 | :octet-vector= |
|
518 | :file-date |
|
519 | :file-timestamp |
|
520 | :directory-path-p |
|
342 | 521 | :*hidden-paths* |
291 | 522 | :hidden-path-p |
523 | :directory-path |
|
524 | :find-files |
|
525 | :count-file-lines)) |
|
526 | ||
527 | (defpkg :std/string |
|
528 | (:use :cl) |
|
529 | (:export |
|
530 | :*omit-nulls* |
|
531 | :*whitespaces* |
|
532 | :string-designator |
|
533 | :ssplit |
|
534 | :trim |
|
535 | :collapse-whitespaces |
|
536 | :make-template-parser |
|
537 | :string-case)) |
|
538 | ||
539 | (defpkg :std/seq |
|
540 | (:use :cl) |
|
295 | 541 | (:import-from :sb-int :collect) |
291 | 542 | (:import-from :std/array :signed-array-length) |
359
0e00dec3de03
macs/control macros, seq functions, ported cl-cookie, added uri/domain.lisp, fully ported http! next we should remove dependence on cl+ssl
Richard Westhaver <ellis@rwest.io>
parents:
357
diff
changeset
|
543 | (:export :take :starts-with-subseq :ends-with-subseq |
0e00dec3de03
macs/control macros, seq functions, ported cl-cookie, added uri/domain.lisp, fully ported http! next we should remove dependence on cl+ssl
Richard Westhaver <ellis@rwest.io>
parents:
357
diff
changeset
|
544 | :split-sequence :split-sequence-if :split-sequence-if-not)) |
291 | 545 | |
546 | (defpkg :std/sys |
|
547 | (:use :cl) |
|
295 | 548 | (:shadowing-import-from :sb-kernel :get-lisp-obj-address :with-pinned-objects :unbound-marker-p :generation-of) |
549 | (:shadowing-import-from :sb-vm :list-allocated-objects) |
|
533 | 550 | (:import-from :sb-impl :*logical-hosts*) |
291 | 551 | (:export |
691 | 552 | :*default-arena-size* |
291 | 553 | :current-lisp-implementation |
482 | 554 | :current-machine |
555 | :list-package-symbols |
|
586
7ce855f76e1d
net/fetch upgrades, fixes, net/err -> net/condition
Richard Westhaver <ellis@rwest.io>
parents:
580
diff
changeset
|
556 | :package-symbols |
7ce855f76e1d
net/fetch upgrades, fixes, net/err -> net/condition
Richard Westhaver <ellis@rwest.io>
parents:
580
diff
changeset
|
557 | :package-symbol-names |
533 | 558 | :append-logical-hosts |
291 | 559 | :save-lisp-tree-shake-and-die |
374 | 560 | :save-lisp-and-live |
424
1005a80b8201
add forget-shared-object from rurik
Richard Westhaver <ellis@rwest.io>
parents:
413
diff
changeset
|
561 | :forget-shared-object |
651
af486e0a40c9
multi-binaries, working on removing x.lisp
Richard Westhaver <ellis@rwest.io>
parents:
648
diff
changeset
|
562 | :forget-shared-objects |
af486e0a40c9
multi-binaries, working on removing x.lisp
Richard Westhaver <ellis@rwest.io>
parents:
648
diff
changeset
|
563 | :compile-lisp)) |
291 | 564 | |
565 | (defpkg :std |
|
566 | (:use :cl :sb-unicode :cl-ppcre :sb-mop :sb-c :sb-thread :sb-alien :sb-gray :sb-concurrency) |
|
563 | 567 | (:use-reexport :std/named-readtables :std/defpkg :std/condition |
497
bcf772e86fbc
add std/task, some fixes and added cli/tools/systemd
Richard Westhaver <ellis@rwest.io>
parents:
492
diff
changeset
|
568 | :std/sym :std/list :std/type :std/num |
bcf772e86fbc
add std/task, some fixes and added cli/tools/systemd
Richard Westhaver <ellis@rwest.io>
parents:
492
diff
changeset
|
569 | :std/stream :std/fu :std/array :std/hash-table |
bcf772e86fbc
add std/task, some fixes and added cli/tools/systemd
Richard Westhaver <ellis@rwest.io>
parents:
492
diff
changeset
|
570 | :std/alien :std/mop :std/thread :std/task |
bcf772e86fbc
add std/task, some fixes and added cli/tools/systemd
Richard Westhaver <ellis@rwest.io>
parents:
492
diff
changeset
|
571 | :std/macs :std/bit :std/fmt :std/path |
bcf772e86fbc
add std/task, some fixes and added cli/tools/systemd
Richard Westhaver <ellis@rwest.io>
parents:
492
diff
changeset
|
572 | :std/os :std/file :std/string :std/seq |
bcf772e86fbc
add std/task, some fixes and added cli/tools/systemd
Richard Westhaver <ellis@rwest.io>
parents:
492
diff
changeset
|
573 | :std/sys :std/readtable)) |
403 | 574 | |
413 | 575 | (defpkg :std-user |
576 | (:use :cl :cl-user :sb-ext :std |
|
577 | :std-int :sb-alien :sb-thread :sb-bsd-sockets |
|
448 | 578 | :sb-gray :sb-mop :sb-debug)) |
408
96020a698c0b
std-user package updates
Richard Westhaver <ellis@rwest.io>
parents:
403
diff
changeset
|
579 | |
413 | 580 | (pkg:define-lisp-package :std) |