changeset 303: | 87a8ae74a22c |
parent: | c4682fedd73d |
child: | aac665e2f5bf |
author: | Richard Westhaver <ellis@rwest.io> |
date: | Sat, 27 Apr 2024 20:46:03 -0400 |
permissions: | -rw-r--r-- |
description: | base64 |
263
b7183bfd7107
add doc/readme.txt, more doc upgrades
Richard Westhaver <ellis@rwest.io>
parents:
257
diff
changeset
|
1 | ;;; dat/pkg.lisp --- Data |
b7183bfd7107
add doc/readme.txt, more doc upgrades
Richard Westhaver <ellis@rwest.io>
parents:
257
diff
changeset
|
2 | |
b7183bfd7107
add doc/readme.txt, more doc upgrades
Richard Westhaver <ellis@rwest.io>
parents:
257
diff
changeset
|
3 | ;;; Code: |
122
4ba88cac5bc7
num/parse, added DAT system, net/fetch, time/local, refactored trees
ellis <ellis@rwest.io>
parents:
diff
changeset
|
4 | (defpackage :dat/proto |
4ba88cac5bc7
num/parse, added DAT system, net/fetch, time/local, refactored trees
ellis <ellis@rwest.io>
parents:
diff
changeset
|
5 | (:use :cl :std) |
146 | 6 | (:export :serialize :deserialize |
7 | :serializer-error :deserializer-error |
|
257 | 8 | :serde :serde-error :dat-error)) |
146 | 9 | |
10 | (defpackage :dat/sxp |
|
11 | (:nicknames :sxp) |
|
12 | (:use :cl :sb-mop :std) |
|
13 | (:import-from :uiop :read-file-forms :slurp-stream-forms :with-output-file) |
|
14 | ;; TODO: hot-patch readtables into sxp classes/parsers |
|
15 | (:import-from :std/named-readtables :defreadtable :in-readtable) |
|
16 | (:export |
|
17 | :sxp-fmt-designator |
|
18 | :form :formp :sxp-error :sxp-fmt-error :sxp-syntax-error :reader :writer :fmt |
|
19 | :wrap :wrap! :wrap-from-string! :unwrap :unwrap! :unwrap-or |
|
20 | :sxpp :build-ast :load-ast :ast |
|
21 | :define-macro :define-fmt :read-sxp-file :write-sxp-file |
|
22 | :read-sxp-string :write-sxp-string :read-sxp-stream :write-sxp-stream |
|
23 | :make-sxp :sxp :formp :form |
|
289
c4682fedd73d
added krypt lib, will probably add homer too
Richard Westhaver <ellis@rwest.io>
parents:
282
diff
changeset
|
24 | :file-read-forms |
146 | 25 | :wrap-object :unwrap-object)) |
122
4ba88cac5bc7
num/parse, added DAT system, net/fetch, time/local, refactored trees
ellis <ellis@rwest.io>
parents:
diff
changeset
|
26 | |
4ba88cac5bc7
num/parse, added DAT system, net/fetch, time/local, refactored trees
ellis <ellis@rwest.io>
parents:
diff
changeset
|
27 | (defpackage :dat/csv |
4ba88cac5bc7
num/parse, added DAT system, net/fetch, time/local, refactored trees
ellis <ellis@rwest.io>
parents:
diff
changeset
|
28 | (:use :cl :std :dat/proto) |
4ba88cac5bc7
num/parse, added DAT system, net/fetch, time/local, refactored trees
ellis <ellis@rwest.io>
parents:
diff
changeset
|
29 | (:export |
4ba88cac5bc7
num/parse, added DAT system, net/fetch, time/local, refactored trees
ellis <ellis@rwest.io>
parents:
diff
changeset
|
30 | :read-csv-file |
277
10faf95f90dd
stream and basic type upgrades. fixed some bugs and improved csv parsing
Richard Westhaver <ellis@rwest.io>
parents:
276
diff
changeset
|
31 | :*csv-separator* |
122
4ba88cac5bc7
num/parse, added DAT system, net/fetch, time/local, refactored trees
ellis <ellis@rwest.io>
parents:
diff
changeset
|
32 | #:read-csv-stream |
4ba88cac5bc7
num/parse, added DAT system, net/fetch, time/local, refactored trees
ellis <ellis@rwest.io>
parents:
diff
changeset
|
33 | :write-csv-file |
4ba88cac5bc7
num/parse, added DAT system, net/fetch, time/local, refactored trees
ellis <ellis@rwest.io>
parents:
diff
changeset
|
34 | :write-csv-stream |
4ba88cac5bc7
num/parse, added DAT system, net/fetch, time/local, refactored trees
ellis <ellis@rwest.io>
parents:
diff
changeset
|
35 | :read-csv-file-and-sort |
4ba88cac5bc7
num/parse, added DAT system, net/fetch, time/local, refactored trees
ellis <ellis@rwest.io>
parents:
diff
changeset
|
36 | :parse-csv-string)) |
4ba88cac5bc7
num/parse, added DAT system, net/fetch, time/local, refactored trees
ellis <ellis@rwest.io>
parents:
diff
changeset
|
37 | |
4ba88cac5bc7
num/parse, added DAT system, net/fetch, time/local, refactored trees
ellis <ellis@rwest.io>
parents:
diff
changeset
|
38 | (defpackage :dat/toml |
4ba88cac5bc7
num/parse, added DAT system, net/fetch, time/local, refactored trees
ellis <ellis@rwest.io>
parents:
diff
changeset
|
39 | (:use :cl :std :dat/proto :obj/time) |
4ba88cac5bc7
num/parse, added DAT system, net/fetch, time/local, refactored trees
ellis <ellis@rwest.io>
parents:
diff
changeset
|
40 | (:export |
4ba88cac5bc7
num/parse, added DAT system, net/fetch, time/local, refactored trees
ellis <ellis@rwest.io>
parents:
diff
changeset
|
41 | #:parse |
4ba88cac5bc7
num/parse, added DAT system, net/fetch, time/local, refactored trees
ellis <ellis@rwest.io>
parents:
diff
changeset
|
42 | #:parse-toml-blocks |
217
17c05cd3e549
going nuklear, cfg obj, general fixes, introduction of x.lisp
Richard Westhaver <ellis@rwest.io>
parents:
146
diff
changeset
|
43 | #:toml-collection |
122
4ba88cac5bc7
num/parse, added DAT system, net/fetch, time/local, refactored trees
ellis <ellis@rwest.io>
parents:
diff
changeset
|
44 | #:children |
217
17c05cd3e549
going nuklear, cfg obj, general fixes, introduction of x.lisp
Richard Westhaver <ellis@rwest.io>
parents:
146
diff
changeset
|
45 | #:toml-table |
17c05cd3e549
going nuklear, cfg obj, general fixes, introduction of x.lisp
Richard Westhaver <ellis@rwest.io>
parents:
146
diff
changeset
|
46 | #:inline-toml-table |
17c05cd3e549
going nuklear, cfg obj, general fixes, introduction of x.lisp
Richard Westhaver <ellis@rwest.io>
parents:
146
diff
changeset
|
47 | #:toml-table-array |
122
4ba88cac5bc7
num/parse, added DAT system, net/fetch, time/local, refactored trees
ellis <ellis@rwest.io>
parents:
diff
changeset
|
48 | #:toml-redefine-table-error |
4ba88cac5bc7
num/parse, added DAT system, net/fetch, time/local, refactored trees
ellis <ellis@rwest.io>
parents:
diff
changeset
|
49 | #:toml-redefine-property-error |
4ba88cac5bc7
num/parse, added DAT system, net/fetch, time/local, refactored trees
ellis <ellis@rwest.io>
parents:
diff
changeset
|
50 | #:toml-modify-inline-table-error |
4ba88cac5bc7
num/parse, added DAT system, net/fetch, time/local, refactored trees
ellis <ellis@rwest.io>
parents:
diff
changeset
|
51 | #:toml-dotted-key-redefine-table-error |
4ba88cac5bc7
num/parse, added DAT system, net/fetch, time/local, refactored trees
ellis <ellis@rwest.io>
parents:
diff
changeset
|
52 | #:toml-dotted-key-open-table-array-error)) |
4ba88cac5bc7
num/parse, added DAT system, net/fetch, time/local, refactored trees
ellis <ellis@rwest.io>
parents:
diff
changeset
|
53 | |
225 | 54 | (defpackage :dat/arff |
55 | (:use :cl :std :dat/proto :dat/csv) |
|
56 | (:export |
|
57 | :arff :arff-relation :arff-attributes :arff-data :arff-path |
|
58 | :parse-arff :parse-arff-string :parse-arff-stream |
|
59 | :remove-attribute-by-name)) |
|
60 | ||
122
4ba88cac5bc7
num/parse, added DAT system, net/fetch, time/local, refactored trees
ellis <ellis@rwest.io>
parents:
diff
changeset
|
61 | (defpackage :dat/json |
4ba88cac5bc7
num/parse, added DAT system, net/fetch, time/local, refactored trees
ellis <ellis@rwest.io>
parents:
diff
changeset
|
62 | (:use :cl :std :dat/proto) |
4ba88cac5bc7
num/parse, added DAT system, net/fetch, time/local, refactored trees
ellis <ellis@rwest.io>
parents:
diff
changeset
|
63 | (:export |
4ba88cac5bc7
num/parse, added DAT system, net/fetch, time/local, refactored trees
ellis <ellis@rwest.io>
parents:
diff
changeset
|
64 | #:json-decode |
4ba88cac5bc7
num/parse, added DAT system, net/fetch, time/local, refactored trees
ellis <ellis@rwest.io>
parents:
diff
changeset
|
65 | #:json-encode |
4ba88cac5bc7
num/parse, added DAT system, net/fetch, time/local, refactored trees
ellis <ellis@rwest.io>
parents:
diff
changeset
|
66 | #:json-read |
4ba88cac5bc7
num/parse, added DAT system, net/fetch, time/local, refactored trees
ellis <ellis@rwest.io>
parents:
diff
changeset
|
67 | #:json-enable-reader-macro |
4ba88cac5bc7
num/parse, added DAT system, net/fetch, time/local, refactored trees
ellis <ellis@rwest.io>
parents:
diff
changeset
|
68 | #:json-object |
4ba88cac5bc7
num/parse, added DAT system, net/fetch, time/local, refactored trees
ellis <ellis@rwest.io>
parents:
diff
changeset
|
69 | #:json-object-members |
4ba88cac5bc7
num/parse, added DAT system, net/fetch, time/local, refactored trees
ellis <ellis@rwest.io>
parents:
diff
changeset
|
70 | #:json-getf |
4ba88cac5bc7
num/parse, added DAT system, net/fetch, time/local, refactored trees
ellis <ellis@rwest.io>
parents:
diff
changeset
|
71 | #:json-setf)) |
4ba88cac5bc7
num/parse, added DAT system, net/fetch, time/local, refactored trees
ellis <ellis@rwest.io>
parents:
diff
changeset
|
72 | |
303 | 73 | (defpackage :dat/base64 |
74 | (:use :cl :std :dat/proto) |
|
75 | (:export #:base64-stream-to-integer |
|
76 | #:base64-stream-to-string |
|
77 | #:base64-stream-to-stream |
|
78 | #:base64-stream-to-usb8-array |
|
79 | #:base64-string-to-integer |
|
80 | #:base64-string-to-string |
|
81 | #:base64-string-to-stream |
|
82 | #:base64-string-to-usb8-array |
|
83 | #:string-to-base64-string |
|
84 | #:string-to-base64-stream |
|
85 | #:usb8-array-to-base64-string |
|
86 | #:usb8-array-to-base64-stream |
|
87 | #:stream-to-base64-string |
|
88 | #:stream-to-base64-stream |
|
89 | #:integer-to-base64-string |
|
90 | #:integer-to-base64-stream |
|
91 | ;; Conditions. |
|
92 | #:base64-error |
|
93 | #:bad-base64-character |
|
94 | #:incomplete-base64-data |
|
95 | ;; For creating custom encode/decode tables. |
|
96 | #:make-decode-table |
|
97 | #:+decode-table+ |
|
98 | #:+uri-decode-table+)) |
|
99 | ||
240
a3b65a8138ac
html,http init, uuid, db stuff
Richard Westhaver <ellis@rwest.io>
parents:
239
diff
changeset
|
100 | (defpackage :dat/html |
a3b65a8138ac
html,http init, uuid, db stuff
Richard Westhaver <ellis@rwest.io>
parents:
239
diff
changeset
|
101 | (:use :cl :std :dat/proto) |
a3b65a8138ac
html,http init, uuid, db stuff
Richard Westhaver <ellis@rwest.io>
parents:
239
diff
changeset
|
102 | (:import-from :sb-ext :defglobal) |
a3b65a8138ac
html,http init, uuid, db stuff
Richard Westhaver <ellis@rwest.io>
parents:
239
diff
changeset
|
103 | (:export |
a3b65a8138ac
html,http init, uuid, db stuff
Richard Westhaver <ellis@rwest.io>
parents:
239
diff
changeset
|
104 | :parse-html5 |
a3b65a8138ac
html,http init, uuid, db stuff
Richard Westhaver <ellis@rwest.io>
parents:
239
diff
changeset
|
105 | :parse-html5-fragment |
a3b65a8138ac
html,http init, uuid, db stuff
Richard Westhaver <ellis@rwest.io>
parents:
239
diff
changeset
|
106 | :transform-html5-dom |
a3b65a8138ac
html,http init, uuid, db stuff
Richard Westhaver <ellis@rwest.io>
parents:
239
diff
changeset
|
107 | :xml-escape-name |
a3b65a8138ac
html,http init, uuid, db stuff
Richard Westhaver <ellis@rwest.io>
parents:
239
diff
changeset
|
108 | :xml-unescape-name |
a3b65a8138ac
html,http init, uuid, db stuff
Richard Westhaver <ellis@rwest.io>
parents:
239
diff
changeset
|
109 | ;; A simple DOM |
a3b65a8138ac
html,http init, uuid, db stuff
Richard Westhaver <ellis@rwest.io>
parents:
239
diff
changeset
|
110 | :make-document |
a3b65a8138ac
html,http init, uuid, db stuff
Richard Westhaver <ellis@rwest.io>
parents:
239
diff
changeset
|
111 | :make-fragment |
a3b65a8138ac
html,http init, uuid, db stuff
Richard Westhaver <ellis@rwest.io>
parents:
239
diff
changeset
|
112 | :make-doctype |
a3b65a8138ac
html,http init, uuid, db stuff
Richard Westhaver <ellis@rwest.io>
parents:
239
diff
changeset
|
113 | :make-comment |
a3b65a8138ac
html,http init, uuid, db stuff
Richard Westhaver <ellis@rwest.io>
parents:
239
diff
changeset
|
114 | :make-element |
a3b65a8138ac
html,http init, uuid, db stuff
Richard Westhaver <ellis@rwest.io>
parents:
239
diff
changeset
|
115 | :make-text-node |
a3b65a8138ac
html,http init, uuid, db stuff
Richard Westhaver <ellis@rwest.io>
parents:
239
diff
changeset
|
116 | :node-type |
a3b65a8138ac
html,http init, uuid, db stuff
Richard Westhaver <ellis@rwest.io>
parents:
239
diff
changeset
|
117 | :node-name |
a3b65a8138ac
html,http init, uuid, db stuff
Richard Westhaver <ellis@rwest.io>
parents:
239
diff
changeset
|
118 | :node-namespace |
a3b65a8138ac
html,http init, uuid, db stuff
Richard Westhaver <ellis@rwest.io>
parents:
239
diff
changeset
|
119 | :node-value |
a3b65a8138ac
html,http init, uuid, db stuff
Richard Westhaver <ellis@rwest.io>
parents:
239
diff
changeset
|
120 | :node-public-id |
a3b65a8138ac
html,http init, uuid, db stuff
Richard Westhaver <ellis@rwest.io>
parents:
239
diff
changeset
|
121 | :node-system-id |
a3b65a8138ac
html,http init, uuid, db stuff
Richard Westhaver <ellis@rwest.io>
parents:
239
diff
changeset
|
122 | :element-attribute |
a3b65a8138ac
html,http init, uuid, db stuff
Richard Westhaver <ellis@rwest.io>
parents:
239
diff
changeset
|
123 | :node-append-child |
a3b65a8138ac
html,http init, uuid, db stuff
Richard Westhaver <ellis@rwest.io>
parents:
239
diff
changeset
|
124 | :node-insert-before |
a3b65a8138ac
html,http init, uuid, db stuff
Richard Westhaver <ellis@rwest.io>
parents:
239
diff
changeset
|
125 | :node-remove-child |
a3b65a8138ac
html,http init, uuid, db stuff
Richard Westhaver <ellis@rwest.io>
parents:
239
diff
changeset
|
126 | :node-parent |
a3b65a8138ac
html,http init, uuid, db stuff
Richard Westhaver <ellis@rwest.io>
parents:
239
diff
changeset
|
127 | :node-first-child |
a3b65a8138ac
html,http init, uuid, db stuff
Richard Westhaver <ellis@rwest.io>
parents:
239
diff
changeset
|
128 | :node-last-child |
a3b65a8138ac
html,http init, uuid, db stuff
Richard Westhaver <ellis@rwest.io>
parents:
239
diff
changeset
|
129 | :node-previous-sibling |
a3b65a8138ac
html,http init, uuid, db stuff
Richard Westhaver <ellis@rwest.io>
parents:
239
diff
changeset
|
130 | :node-next-sibling |
a3b65a8138ac
html,http init, uuid, db stuff
Richard Westhaver <ellis@rwest.io>
parents:
239
diff
changeset
|
131 | :element-map-attributes |
a3b65a8138ac
html,http init, uuid, db stuff
Richard Westhaver <ellis@rwest.io>
parents:
239
diff
changeset
|
132 | :element-map-attributes* |
a3b65a8138ac
html,http init, uuid, db stuff
Richard Westhaver <ellis@rwest.io>
parents:
239
diff
changeset
|
133 | :element-map-children)) |
a3b65a8138ac
html,http init, uuid, db stuff
Richard Westhaver <ellis@rwest.io>
parents:
239
diff
changeset
|
134 | |
122
4ba88cac5bc7
num/parse, added DAT system, net/fetch, time/local, refactored trees
ellis <ellis@rwest.io>
parents:
diff
changeset
|
135 | (defpackage :dat/xml |
4ba88cac5bc7
num/parse, added DAT system, net/fetch, time/local, refactored trees
ellis <ellis@rwest.io>
parents:
diff
changeset
|
136 | (:use :cl :std :dat/proto) |
123
a4ed30cbe083
data testing, added ical and vcard formats
ellis <ellis@rwest.io>
parents:
122
diff
changeset
|
137 | (:shadow :read-char :unread-char) |
a4ed30cbe083
data testing, added ical and vcard formats
ellis <ellis@rwest.io>
parents:
122
diff
changeset
|
138 | (:export |
a4ed30cbe083
data testing, added ical and vcard formats
ellis <ellis@rwest.io>
parents:
122
diff
changeset
|
139 | :xml-node-name |
a4ed30cbe083
data testing, added ical and vcard formats
ellis <ellis@rwest.io>
parents:
122
diff
changeset
|
140 | :xml-node-ns |
a4ed30cbe083
data testing, added ical and vcard formats
ellis <ellis@rwest.io>
parents:
122
diff
changeset
|
141 | :xml-node-attrs |
a4ed30cbe083
data testing, added ical and vcard formats
ellis <ellis@rwest.io>
parents:
122
diff
changeset
|
142 | :xml-node-children |
a4ed30cbe083
data testing, added ical and vcard formats
ellis <ellis@rwest.io>
parents:
122
diff
changeset
|
143 | :make-xml-node |
a4ed30cbe083
data testing, added ical and vcard formats
ellis <ellis@rwest.io>
parents:
122
diff
changeset
|
144 | :xml-parse |
a4ed30cbe083
data testing, added ical and vcard formats
ellis <ellis@rwest.io>
parents:
122
diff
changeset
|
145 | :to-xml |
a4ed30cbe083
data testing, added ical and vcard formats
ellis <ellis@rwest.io>
parents:
122
diff
changeset
|
146 | :write-xml |
a4ed30cbe083
data testing, added ical and vcard formats
ellis <ellis@rwest.io>
parents:
122
diff
changeset
|
147 | :xml-node-p |
a4ed30cbe083
data testing, added ical and vcard formats
ellis <ellis@rwest.io>
parents:
122
diff
changeset
|
148 | :nodelist->xml-node |
a4ed30cbe083
data testing, added ical and vcard formats
ellis <ellis@rwest.io>
parents:
122
diff
changeset
|
149 | :xml-node->nodelist |
a4ed30cbe083
data testing, added ical and vcard formats
ellis <ellis@rwest.io>
parents:
122
diff
changeset
|
150 | :xml-node ; needed to support use in typep |
a4ed30cbe083
data testing, added ical and vcard formats
ellis <ellis@rwest.io>
parents:
122
diff
changeset
|
151 | ;; processing instruction objects |
a4ed30cbe083
data testing, added ical and vcard formats
ellis <ellis@rwest.io>
parents:
122
diff
changeset
|
152 | :proc-inst-p |
a4ed30cbe083
data testing, added ical and vcard formats
ellis <ellis@rwest.io>
parents:
122
diff
changeset
|
153 | :proc-inst-target |
a4ed30cbe083
data testing, added ical and vcard formats
ellis <ellis@rwest.io>
parents:
122
diff
changeset
|
154 | :proc-inst-contents |
a4ed30cbe083
data testing, added ical and vcard formats
ellis <ellis@rwest.io>
parents:
122
diff
changeset
|
155 | :write-prologue |
a4ed30cbe083
data testing, added ical and vcard formats
ellis <ellis@rwest.io>
parents:
122
diff
changeset
|
156 | :write-prolog |
a4ed30cbe083
data testing, added ical and vcard formats
ellis <ellis@rwest.io>
parents:
122
diff
changeset
|
157 | ;; rpg utils |
a4ed30cbe083
data testing, added ical and vcard formats
ellis <ellis@rwest.io>
parents:
122
diff
changeset
|
158 | :make-xmlrep :xmlrep-add-child! |
a4ed30cbe083
data testing, added ical and vcard formats
ellis <ellis@rwest.io>
parents:
122
diff
changeset
|
159 | :xmlrep-tag :xmlrep-tagmatch |
a4ed30cbe083
data testing, added ical and vcard formats
ellis <ellis@rwest.io>
parents:
122
diff
changeset
|
160 | :xmlrep-attribs :xmlrep-children |
a4ed30cbe083
data testing, added ical and vcard formats
ellis <ellis@rwest.io>
parents:
122
diff
changeset
|
161 | :xmlrep-string-child :xmlrep-integer-child |
a4ed30cbe083
data testing, added ical and vcard formats
ellis <ellis@rwest.io>
parents:
122
diff
changeset
|
162 | :xmlrep-find-child-tags :xmlrep-find-child-tag |
a4ed30cbe083
data testing, added ical and vcard formats
ellis <ellis@rwest.io>
parents:
122
diff
changeset
|
163 | :xmlrep-attrib-value :xmlrep-boolean-attrib-value |
a4ed30cbe083
data testing, added ical and vcard formats
ellis <ellis@rwest.io>
parents:
122
diff
changeset
|
164 | ;; tree searching from Daniel Eliason |
a4ed30cbe083
data testing, added ical and vcard formats
ellis <ellis@rwest.io>
parents:
122
diff
changeset
|
165 | :extract-path-list |
a4ed30cbe083
data testing, added ical and vcard formats
ellis <ellis@rwest.io>
parents:
122
diff
changeset
|
166 | :extract-path)) |
122
4ba88cac5bc7
num/parse, added DAT system, net/fetch, time/local, refactored trees
ellis <ellis@rwest.io>
parents:
diff
changeset
|
167 | |
4ba88cac5bc7
num/parse, added DAT system, net/fetch, time/local, refactored trees
ellis <ellis@rwest.io>
parents:
diff
changeset
|
168 | (defpackage :dat/bencode |
4ba88cac5bc7
num/parse, added DAT system, net/fetch, time/local, refactored trees
ellis <ellis@rwest.io>
parents:
diff
changeset
|
169 | (:use :cl :std :dat/proto :sb-gray) |
4ba88cac5bc7
num/parse, added DAT system, net/fetch, time/local, refactored trees
ellis <ellis@rwest.io>
parents:
diff
changeset
|
170 | (:export |
4ba88cac5bc7
num/parse, added DAT system, net/fetch, time/local, refactored trees
ellis <ellis@rwest.io>
parents:
diff
changeset
|
171 | :bencode-encode |
4ba88cac5bc7
num/parse, added DAT system, net/fetch, time/local, refactored trees
ellis <ellis@rwest.io>
parents:
diff
changeset
|
172 | :bencode-decode |
4ba88cac5bc7
num/parse, added DAT system, net/fetch, time/local, refactored trees
ellis <ellis@rwest.io>
parents:
diff
changeset
|
173 | :*bencode-binary-key-p*)) |
4ba88cac5bc7
num/parse, added DAT system, net/fetch, time/local, refactored trees
ellis <ellis@rwest.io>
parents:
diff
changeset
|
174 | |
237 | 175 | (defpackage :dat/midi |
176 | (:nicknames :midi) |
|
177 | (:use :cl :std :dat/proto) |
|
178 | (:export #:read-midi-file #:write-midi-file |
|
179 | #:midifile |
|
180 | #:midifile-format #:midifile-tracks #:midifile-division |
|
181 | #:message #:note-off-message #:note-on-message #:tempo-message |
|
182 | #:program-change-message #:pitch-bend-message |
|
183 | #:key-signature-message #:time-signature-message |
|
184 | #:smpte-offset-message |
|
185 | #:sequence/track-name-message |
|
186 | #:message-channel #:message-key #:message-time |
|
187 | #:message-velocity #:message-numerator #:message-denominator |
|
188 | #:message-sf #:message-mi #:message-tempo #:message-program |
|
189 | #:message-value |
|
190 | #:header #:header-type |
|
191 | #:unknown-event #:status #:data-byte #:dd #:bb #:cc #:nn)) |
|
192 | ||
239 | 193 | (defpackage :dat/qrcode |
194 | (:nicknames :qrcode) |
|
195 | (:use :cl :std :dat/proto) |
|
196 | (:export |
|
197 | :encode-symbol |
|
198 | ;; QR code representation |
|
199 | ;; this should be enough to write another backend for QR symbol |
|
200 | :qr-symbol |
|
201 | :matrix |
|
202 | :modules |
|
203 | :dark-module-p |
|
204 | :read-file-content)) |
|
205 | ||
282 | 206 | (defpackage :dat/gif |
207 | (:nicknames :gif) |
|
208 | (:use :cl :std :dat/proto)) |
|
209 | ||
239 | 210 | (defpackage :dat/png |
282 | 211 | (:use :cl :std :dat/proto :png)) |
239 | 212 | |
122
4ba88cac5bc7
num/parse, added DAT system, net/fetch, time/local, refactored trees
ellis <ellis@rwest.io>
parents:
diff
changeset
|
213 | (uiop:define-package :dat |
276
bcc180c6ed91
seems like fast-methods still wont compile
Richard Westhaver <ellis@rwest.io>
parents:
263
diff
changeset
|
214 | (:use-reexport :dat/proto :dat/csv :dat/arff :dat/toml :dat/json :dat/sxp :dat/xml :dat/bencode |
bcc180c6ed91
seems like fast-methods still wont compile
Richard Westhaver <ellis@rwest.io>
parents:
263
diff
changeset
|
215 | ;; :dat/qrcode |
bcc180c6ed91
seems like fast-methods still wont compile
Richard Westhaver <ellis@rwest.io>
parents:
263
diff
changeset
|
216 | )) |