changeset 282: | da580c7fe954 |
parent: | 10faf95f90dd |
child: | c4682fedd73d |
author: | Richard Westhaver <ellis@rwest.io> |
date: | Wed, 17 Apr 2024 22:53:44 -0400 |
permissions: | -rw-r--r-- |
description: | upgrades |
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 |
|
24 | :wrap-object :unwrap-object)) |
|
122
4ba88cac5bc7
num/parse, added DAT system, net/fetch, time/local, refactored trees
ellis <ellis@rwest.io>
parents:
diff
changeset
|
25 | |
4ba88cac5bc7
num/parse, added DAT system, net/fetch, time/local, refactored trees
ellis <ellis@rwest.io>
parents:
diff
changeset
|
26 | (defpackage :dat/csv |
4ba88cac5bc7
num/parse, added DAT system, net/fetch, time/local, refactored trees
ellis <ellis@rwest.io>
parents:
diff
changeset
|
27 | (:use :cl :std :dat/proto) |
4ba88cac5bc7
num/parse, added DAT system, net/fetch, time/local, refactored trees
ellis <ellis@rwest.io>
parents:
diff
changeset
|
28 | (:export |
4ba88cac5bc7
num/parse, added DAT system, net/fetch, time/local, refactored trees
ellis <ellis@rwest.io>
parents:
diff
changeset
|
29 | :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
|
30 | :*csv-separator* |
122
4ba88cac5bc7
num/parse, added DAT system, net/fetch, time/local, refactored trees
ellis <ellis@rwest.io>
parents:
diff
changeset
|
31 | #:read-csv-stream |
4ba88cac5bc7
num/parse, added DAT system, net/fetch, time/local, refactored trees
ellis <ellis@rwest.io>
parents:
diff
changeset
|
32 | :write-csv-file |
4ba88cac5bc7
num/parse, added DAT system, net/fetch, time/local, refactored trees
ellis <ellis@rwest.io>
parents:
diff
changeset
|
33 | :write-csv-stream |
4ba88cac5bc7
num/parse, added DAT system, net/fetch, time/local, refactored trees
ellis <ellis@rwest.io>
parents:
diff
changeset
|
34 | :read-csv-file-and-sort |
4ba88cac5bc7
num/parse, added DAT system, net/fetch, time/local, refactored trees
ellis <ellis@rwest.io>
parents:
diff
changeset
|
35 | :parse-csv-string)) |
4ba88cac5bc7
num/parse, added DAT system, net/fetch, time/local, refactored trees
ellis <ellis@rwest.io>
parents:
diff
changeset
|
36 | |
4ba88cac5bc7
num/parse, added DAT system, net/fetch, time/local, refactored trees
ellis <ellis@rwest.io>
parents:
diff
changeset
|
37 | (defpackage :dat/toml |
4ba88cac5bc7
num/parse, added DAT system, net/fetch, time/local, refactored trees
ellis <ellis@rwest.io>
parents:
diff
changeset
|
38 | (: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
|
39 | (:export |
4ba88cac5bc7
num/parse, added DAT system, net/fetch, time/local, refactored trees
ellis <ellis@rwest.io>
parents:
diff
changeset
|
40 | #:parse |
4ba88cac5bc7
num/parse, added DAT system, net/fetch, time/local, refactored trees
ellis <ellis@rwest.io>
parents:
diff
changeset
|
41 | #:parse-toml-blocks |
217
17c05cd3e549
going nuklear, cfg obj, general fixes, introduction of x.lisp
Richard Westhaver <ellis@rwest.io>
parents:
146
diff
changeset
|
42 | #:toml-collection |
122
4ba88cac5bc7
num/parse, added DAT system, net/fetch, time/local, refactored trees
ellis <ellis@rwest.io>
parents:
diff
changeset
|
43 | #:children |
217
17c05cd3e549
going nuklear, cfg obj, general fixes, introduction of x.lisp
Richard Westhaver <ellis@rwest.io>
parents:
146
diff
changeset
|
44 | #:toml-table |
17c05cd3e549
going nuklear, cfg obj, general fixes, introduction of x.lisp
Richard Westhaver <ellis@rwest.io>
parents:
146
diff
changeset
|
45 | #:inline-toml-table |
17c05cd3e549
going nuklear, cfg obj, general fixes, introduction of x.lisp
Richard Westhaver <ellis@rwest.io>
parents:
146
diff
changeset
|
46 | #:toml-table-array |
122
4ba88cac5bc7
num/parse, added DAT system, net/fetch, time/local, refactored trees
ellis <ellis@rwest.io>
parents:
diff
changeset
|
47 | #:toml-redefine-table-error |
4ba88cac5bc7
num/parse, added DAT system, net/fetch, time/local, refactored trees
ellis <ellis@rwest.io>
parents:
diff
changeset
|
48 | #:toml-redefine-property-error |
4ba88cac5bc7
num/parse, added DAT system, net/fetch, time/local, refactored trees
ellis <ellis@rwest.io>
parents:
diff
changeset
|
49 | #:toml-modify-inline-table-error |
4ba88cac5bc7
num/parse, added DAT system, net/fetch, time/local, refactored trees
ellis <ellis@rwest.io>
parents:
diff
changeset
|
50 | #: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
|
51 | #: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
|
52 | |
225 | 53 | (defpackage :dat/arff |
54 | (:use :cl :std :dat/proto :dat/csv) |
|
55 | (:export |
|
56 | :arff :arff-relation :arff-attributes :arff-data :arff-path |
|
57 | :parse-arff :parse-arff-string :parse-arff-stream |
|
58 | :remove-attribute-by-name)) |
|
59 | ||
122
4ba88cac5bc7
num/parse, added DAT system, net/fetch, time/local, refactored trees
ellis <ellis@rwest.io>
parents:
diff
changeset
|
60 | (defpackage :dat/json |
4ba88cac5bc7
num/parse, added DAT system, net/fetch, time/local, refactored trees
ellis <ellis@rwest.io>
parents:
diff
changeset
|
61 | (:use :cl :std :dat/proto) |
4ba88cac5bc7
num/parse, added DAT system, net/fetch, time/local, refactored trees
ellis <ellis@rwest.io>
parents:
diff
changeset
|
62 | (:export |
4ba88cac5bc7
num/parse, added DAT system, net/fetch, time/local, refactored trees
ellis <ellis@rwest.io>
parents:
diff
changeset
|
63 | #:json-decode |
4ba88cac5bc7
num/parse, added DAT system, net/fetch, time/local, refactored trees
ellis <ellis@rwest.io>
parents:
diff
changeset
|
64 | #:json-encode |
4ba88cac5bc7
num/parse, added DAT system, net/fetch, time/local, refactored trees
ellis <ellis@rwest.io>
parents:
diff
changeset
|
65 | #:json-read |
4ba88cac5bc7
num/parse, added DAT system, net/fetch, time/local, refactored trees
ellis <ellis@rwest.io>
parents:
diff
changeset
|
66 | #:json-enable-reader-macro |
4ba88cac5bc7
num/parse, added DAT system, net/fetch, time/local, refactored trees
ellis <ellis@rwest.io>
parents:
diff
changeset
|
67 | #:json-object |
4ba88cac5bc7
num/parse, added DAT system, net/fetch, time/local, refactored trees
ellis <ellis@rwest.io>
parents:
diff
changeset
|
68 | #:json-object-members |
4ba88cac5bc7
num/parse, added DAT system, net/fetch, time/local, refactored trees
ellis <ellis@rwest.io>
parents:
diff
changeset
|
69 | #:json-getf |
4ba88cac5bc7
num/parse, added DAT system, net/fetch, time/local, refactored trees
ellis <ellis@rwest.io>
parents:
diff
changeset
|
70 | #:json-setf)) |
4ba88cac5bc7
num/parse, added DAT system, net/fetch, time/local, refactored trees
ellis <ellis@rwest.io>
parents:
diff
changeset
|
71 | |
240
a3b65a8138ac
html,http init, uuid, db stuff
Richard Westhaver <ellis@rwest.io>
parents:
239
diff
changeset
|
72 | (defpackage :dat/html |
a3b65a8138ac
html,http init, uuid, db stuff
Richard Westhaver <ellis@rwest.io>
parents:
239
diff
changeset
|
73 | (:use :cl :std :dat/proto) |
a3b65a8138ac
html,http init, uuid, db stuff
Richard Westhaver <ellis@rwest.io>
parents:
239
diff
changeset
|
74 | (:import-from :sb-ext :defglobal) |
a3b65a8138ac
html,http init, uuid, db stuff
Richard Westhaver <ellis@rwest.io>
parents:
239
diff
changeset
|
75 | (:export |
a3b65a8138ac
html,http init, uuid, db stuff
Richard Westhaver <ellis@rwest.io>
parents:
239
diff
changeset
|
76 | :parse-html5 |
a3b65a8138ac
html,http init, uuid, db stuff
Richard Westhaver <ellis@rwest.io>
parents:
239
diff
changeset
|
77 | :parse-html5-fragment |
a3b65a8138ac
html,http init, uuid, db stuff
Richard Westhaver <ellis@rwest.io>
parents:
239
diff
changeset
|
78 | :transform-html5-dom |
a3b65a8138ac
html,http init, uuid, db stuff
Richard Westhaver <ellis@rwest.io>
parents:
239
diff
changeset
|
79 | :xml-escape-name |
a3b65a8138ac
html,http init, uuid, db stuff
Richard Westhaver <ellis@rwest.io>
parents:
239
diff
changeset
|
80 | :xml-unescape-name |
a3b65a8138ac
html,http init, uuid, db stuff
Richard Westhaver <ellis@rwest.io>
parents:
239
diff
changeset
|
81 | ;; A simple DOM |
a3b65a8138ac
html,http init, uuid, db stuff
Richard Westhaver <ellis@rwest.io>
parents:
239
diff
changeset
|
82 | :make-document |
a3b65a8138ac
html,http init, uuid, db stuff
Richard Westhaver <ellis@rwest.io>
parents:
239
diff
changeset
|
83 | :make-fragment |
a3b65a8138ac
html,http init, uuid, db stuff
Richard Westhaver <ellis@rwest.io>
parents:
239
diff
changeset
|
84 | :make-doctype |
a3b65a8138ac
html,http init, uuid, db stuff
Richard Westhaver <ellis@rwest.io>
parents:
239
diff
changeset
|
85 | :make-comment |
a3b65a8138ac
html,http init, uuid, db stuff
Richard Westhaver <ellis@rwest.io>
parents:
239
diff
changeset
|
86 | :make-element |
a3b65a8138ac
html,http init, uuid, db stuff
Richard Westhaver <ellis@rwest.io>
parents:
239
diff
changeset
|
87 | :make-text-node |
a3b65a8138ac
html,http init, uuid, db stuff
Richard Westhaver <ellis@rwest.io>
parents:
239
diff
changeset
|
88 | :node-type |
a3b65a8138ac
html,http init, uuid, db stuff
Richard Westhaver <ellis@rwest.io>
parents:
239
diff
changeset
|
89 | :node-name |
a3b65a8138ac
html,http init, uuid, db stuff
Richard Westhaver <ellis@rwest.io>
parents:
239
diff
changeset
|
90 | :node-namespace |
a3b65a8138ac
html,http init, uuid, db stuff
Richard Westhaver <ellis@rwest.io>
parents:
239
diff
changeset
|
91 | :node-value |
a3b65a8138ac
html,http init, uuid, db stuff
Richard Westhaver <ellis@rwest.io>
parents:
239
diff
changeset
|
92 | :node-public-id |
a3b65a8138ac
html,http init, uuid, db stuff
Richard Westhaver <ellis@rwest.io>
parents:
239
diff
changeset
|
93 | :node-system-id |
a3b65a8138ac
html,http init, uuid, db stuff
Richard Westhaver <ellis@rwest.io>
parents:
239
diff
changeset
|
94 | :element-attribute |
a3b65a8138ac
html,http init, uuid, db stuff
Richard Westhaver <ellis@rwest.io>
parents:
239
diff
changeset
|
95 | :node-append-child |
a3b65a8138ac
html,http init, uuid, db stuff
Richard Westhaver <ellis@rwest.io>
parents:
239
diff
changeset
|
96 | :node-insert-before |
a3b65a8138ac
html,http init, uuid, db stuff
Richard Westhaver <ellis@rwest.io>
parents:
239
diff
changeset
|
97 | :node-remove-child |
a3b65a8138ac
html,http init, uuid, db stuff
Richard Westhaver <ellis@rwest.io>
parents:
239
diff
changeset
|
98 | :node-parent |
a3b65a8138ac
html,http init, uuid, db stuff
Richard Westhaver <ellis@rwest.io>
parents:
239
diff
changeset
|
99 | :node-first-child |
a3b65a8138ac
html,http init, uuid, db stuff
Richard Westhaver <ellis@rwest.io>
parents:
239
diff
changeset
|
100 | :node-last-child |
a3b65a8138ac
html,http init, uuid, db stuff
Richard Westhaver <ellis@rwest.io>
parents:
239
diff
changeset
|
101 | :node-previous-sibling |
a3b65a8138ac
html,http init, uuid, db stuff
Richard Westhaver <ellis@rwest.io>
parents:
239
diff
changeset
|
102 | :node-next-sibling |
a3b65a8138ac
html,http init, uuid, db stuff
Richard Westhaver <ellis@rwest.io>
parents:
239
diff
changeset
|
103 | :element-map-attributes |
a3b65a8138ac
html,http init, uuid, db stuff
Richard Westhaver <ellis@rwest.io>
parents:
239
diff
changeset
|
104 | :element-map-attributes* |
a3b65a8138ac
html,http init, uuid, db stuff
Richard Westhaver <ellis@rwest.io>
parents:
239
diff
changeset
|
105 | :element-map-children)) |
a3b65a8138ac
html,http init, uuid, db stuff
Richard Westhaver <ellis@rwest.io>
parents:
239
diff
changeset
|
106 | |
122
4ba88cac5bc7
num/parse, added DAT system, net/fetch, time/local, refactored trees
ellis <ellis@rwest.io>
parents:
diff
changeset
|
107 | (defpackage :dat/xml |
4ba88cac5bc7
num/parse, added DAT system, net/fetch, time/local, refactored trees
ellis <ellis@rwest.io>
parents:
diff
changeset
|
108 | (:use :cl :std :dat/proto) |
123
a4ed30cbe083
data testing, added ical and vcard formats
ellis <ellis@rwest.io>
parents:
122
diff
changeset
|
109 | (:shadow :read-char :unread-char) |
a4ed30cbe083
data testing, added ical and vcard formats
ellis <ellis@rwest.io>
parents:
122
diff
changeset
|
110 | (:export |
a4ed30cbe083
data testing, added ical and vcard formats
ellis <ellis@rwest.io>
parents:
122
diff
changeset
|
111 | :xml-node-name |
a4ed30cbe083
data testing, added ical and vcard formats
ellis <ellis@rwest.io>
parents:
122
diff
changeset
|
112 | :xml-node-ns |
a4ed30cbe083
data testing, added ical and vcard formats
ellis <ellis@rwest.io>
parents:
122
diff
changeset
|
113 | :xml-node-attrs |
a4ed30cbe083
data testing, added ical and vcard formats
ellis <ellis@rwest.io>
parents:
122
diff
changeset
|
114 | :xml-node-children |
a4ed30cbe083
data testing, added ical and vcard formats
ellis <ellis@rwest.io>
parents:
122
diff
changeset
|
115 | :make-xml-node |
a4ed30cbe083
data testing, added ical and vcard formats
ellis <ellis@rwest.io>
parents:
122
diff
changeset
|
116 | :xml-parse |
a4ed30cbe083
data testing, added ical and vcard formats
ellis <ellis@rwest.io>
parents:
122
diff
changeset
|
117 | :to-xml |
a4ed30cbe083
data testing, added ical and vcard formats
ellis <ellis@rwest.io>
parents:
122
diff
changeset
|
118 | :write-xml |
a4ed30cbe083
data testing, added ical and vcard formats
ellis <ellis@rwest.io>
parents:
122
diff
changeset
|
119 | :xml-node-p |
a4ed30cbe083
data testing, added ical and vcard formats
ellis <ellis@rwest.io>
parents:
122
diff
changeset
|
120 | :nodelist->xml-node |
a4ed30cbe083
data testing, added ical and vcard formats
ellis <ellis@rwest.io>
parents:
122
diff
changeset
|
121 | :xml-node->nodelist |
a4ed30cbe083
data testing, added ical and vcard formats
ellis <ellis@rwest.io>
parents:
122
diff
changeset
|
122 | :xml-node ; needed to support use in typep |
a4ed30cbe083
data testing, added ical and vcard formats
ellis <ellis@rwest.io>
parents:
122
diff
changeset
|
123 | ;; processing instruction objects |
a4ed30cbe083
data testing, added ical and vcard formats
ellis <ellis@rwest.io>
parents:
122
diff
changeset
|
124 | :proc-inst-p |
a4ed30cbe083
data testing, added ical and vcard formats
ellis <ellis@rwest.io>
parents:
122
diff
changeset
|
125 | :proc-inst-target |
a4ed30cbe083
data testing, added ical and vcard formats
ellis <ellis@rwest.io>
parents:
122
diff
changeset
|
126 | :proc-inst-contents |
a4ed30cbe083
data testing, added ical and vcard formats
ellis <ellis@rwest.io>
parents:
122
diff
changeset
|
127 | :write-prologue |
a4ed30cbe083
data testing, added ical and vcard formats
ellis <ellis@rwest.io>
parents:
122
diff
changeset
|
128 | :write-prolog |
a4ed30cbe083
data testing, added ical and vcard formats
ellis <ellis@rwest.io>
parents:
122
diff
changeset
|
129 | ;; rpg utils |
a4ed30cbe083
data testing, added ical and vcard formats
ellis <ellis@rwest.io>
parents:
122
diff
changeset
|
130 | :make-xmlrep :xmlrep-add-child! |
a4ed30cbe083
data testing, added ical and vcard formats
ellis <ellis@rwest.io>
parents:
122
diff
changeset
|
131 | :xmlrep-tag :xmlrep-tagmatch |
a4ed30cbe083
data testing, added ical and vcard formats
ellis <ellis@rwest.io>
parents:
122
diff
changeset
|
132 | :xmlrep-attribs :xmlrep-children |
a4ed30cbe083
data testing, added ical and vcard formats
ellis <ellis@rwest.io>
parents:
122
diff
changeset
|
133 | :xmlrep-string-child :xmlrep-integer-child |
a4ed30cbe083
data testing, added ical and vcard formats
ellis <ellis@rwest.io>
parents:
122
diff
changeset
|
134 | :xmlrep-find-child-tags :xmlrep-find-child-tag |
a4ed30cbe083
data testing, added ical and vcard formats
ellis <ellis@rwest.io>
parents:
122
diff
changeset
|
135 | :xmlrep-attrib-value :xmlrep-boolean-attrib-value |
a4ed30cbe083
data testing, added ical and vcard formats
ellis <ellis@rwest.io>
parents:
122
diff
changeset
|
136 | ;; tree searching from Daniel Eliason |
a4ed30cbe083
data testing, added ical and vcard formats
ellis <ellis@rwest.io>
parents:
122
diff
changeset
|
137 | :extract-path-list |
a4ed30cbe083
data testing, added ical and vcard formats
ellis <ellis@rwest.io>
parents:
122
diff
changeset
|
138 | :extract-path)) |
122
4ba88cac5bc7
num/parse, added DAT system, net/fetch, time/local, refactored trees
ellis <ellis@rwest.io>
parents:
diff
changeset
|
139 | |
4ba88cac5bc7
num/parse, added DAT system, net/fetch, time/local, refactored trees
ellis <ellis@rwest.io>
parents:
diff
changeset
|
140 | (defpackage :dat/bencode |
4ba88cac5bc7
num/parse, added DAT system, net/fetch, time/local, refactored trees
ellis <ellis@rwest.io>
parents:
diff
changeset
|
141 | (: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
|
142 | (:export |
4ba88cac5bc7
num/parse, added DAT system, net/fetch, time/local, refactored trees
ellis <ellis@rwest.io>
parents:
diff
changeset
|
143 | :bencode-encode |
4ba88cac5bc7
num/parse, added DAT system, net/fetch, time/local, refactored trees
ellis <ellis@rwest.io>
parents:
diff
changeset
|
144 | :bencode-decode |
4ba88cac5bc7
num/parse, added DAT system, net/fetch, time/local, refactored trees
ellis <ellis@rwest.io>
parents:
diff
changeset
|
145 | :*bencode-binary-key-p*)) |
4ba88cac5bc7
num/parse, added DAT system, net/fetch, time/local, refactored trees
ellis <ellis@rwest.io>
parents:
diff
changeset
|
146 | |
237 | 147 | (defpackage :dat/midi |
148 | (:nicknames :midi) |
|
149 | (:use :cl :std :dat/proto) |
|
150 | (:export #:read-midi-file #:write-midi-file |
|
151 | #:midifile |
|
152 | #:midifile-format #:midifile-tracks #:midifile-division |
|
153 | #:message #:note-off-message #:note-on-message #:tempo-message |
|
154 | #:program-change-message #:pitch-bend-message |
|
155 | #:key-signature-message #:time-signature-message |
|
156 | #:smpte-offset-message |
|
157 | #:sequence/track-name-message |
|
158 | #:message-channel #:message-key #:message-time |
|
159 | #:message-velocity #:message-numerator #:message-denominator |
|
160 | #:message-sf #:message-mi #:message-tempo #:message-program |
|
161 | #:message-value |
|
162 | #:header #:header-type |
|
163 | #:unknown-event #:status #:data-byte #:dd #:bb #:cc #:nn)) |
|
164 | ||
239 | 165 | (defpackage :dat/qrcode |
166 | (:nicknames :qrcode) |
|
167 | (:use :cl :std :dat/proto) |
|
168 | (:export |
|
169 | :encode-symbol |
|
170 | ;; QR code representation |
|
171 | ;; this should be enough to write another backend for QR symbol |
|
172 | :qr-symbol |
|
173 | :matrix |
|
174 | :modules |
|
175 | :dark-module-p |
|
176 | :read-file-content)) |
|
177 | ||
282 | 178 | (defpackage :dat/gif |
179 | (:nicknames :gif) |
|
180 | (:use :cl :std :dat/proto)) |
|
181 | ||
239 | 182 | (defpackage :dat/png |
282 | 183 | (:use :cl :std :dat/proto :png)) |
239 | 184 | |
122
4ba88cac5bc7
num/parse, added DAT system, net/fetch, time/local, refactored trees
ellis <ellis@rwest.io>
parents:
diff
changeset
|
185 | (uiop:define-package :dat |
276
bcc180c6ed91
seems like fast-methods still wont compile
Richard Westhaver <ellis@rwest.io>
parents:
263
diff
changeset
|
186 | (: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
|
187 | ;; :dat/qrcode |
bcc180c6ed91
seems like fast-methods still wont compile
Richard Westhaver <ellis@rwest.io>
parents:
263
diff
changeset
|
188 | )) |