changelog shortlog graph tags branches changeset files file revisions raw help

Mercurial > core / annotate lisp/lib/obj/pkg.lisp

changeset 216: 97ad564cd68d
parent: 0d46ef787334
child: fdea20982c25
author: Richard Westhaver <ellis@rwest.io>
date: Tue, 27 Feb 2024 21:46:10 -0500
permissions: -rw-r--r--
description: gui stuff, music
104
6e5caf0c68a1 obj tree, id, hash, seq, graph.. added cli/progress and init cli/repl
ellis <ellis@rwest.io>
parents: 96
diff changeset
1
 (defpackage :obj/hash
6e5caf0c68a1 obj tree, id, hash, seq, graph.. added cli/progress and init cli/repl
ellis <ellis@rwest.io>
parents: 96
diff changeset
2
   (:nicknames :hash)
6e5caf0c68a1 obj tree, id, hash, seq, graph.. added cli/progress and init cli/repl
ellis <ellis@rwest.io>
parents: 96
diff changeset
3
   (:use :cl :std)
6e5caf0c68a1 obj tree, id, hash, seq, graph.. added cli/progress and init cli/repl
ellis <ellis@rwest.io>
parents: 96
diff changeset
4
   (:export 
119
85f27597cf60 castable added, still testing
ellis <ellis@rwest.io>
parents: 118
diff changeset
5
    :*global-hasher*
85f27597cf60 castable added, still testing
ellis <ellis@rwest.io>
parents: 118
diff changeset
6
    :+global-hash+
118
b828a3caa758 object library stuff, removed DOT - api doesnt jive.
ellis <ellis@rwest.io>
parents: 117
diff changeset
7
    :djb
119
85f27597cf60 castable added, still testing
ellis <ellis@rwest.io>
parents: 118
diff changeset
8
    :hash-object
85f27597cf60 castable added, still testing
ellis <ellis@rwest.io>
parents: 118
diff changeset
9
    :hash-object-address
207
e48427b30ecd lisp stuff, nu test stuff, back on stable support for rust
Richard Westhaver <ellis@rwest.io>
parents: 162
diff changeset
10
    :dumb-string-hash
119
85f27597cf60 castable added, still testing
ellis <ellis@rwest.io>
parents: 118
diff changeset
11
    ;; castable
85f27597cf60 castable added, still testing
ellis <ellis@rwest.io>
parents: 118
diff changeset
12
    :castable
85f27597cf60 castable added, still testing
ellis <ellis@rwest.io>
parents: 118
diff changeset
13
    :make-castable
85f27597cf60 castable added, still testing
ellis <ellis@rwest.io>
parents: 118
diff changeset
14
    :castable-p
85f27597cf60 castable added, still testing
ellis <ellis@rwest.io>
parents: 118
diff changeset
15
    :rehash
85f27597cf60 castable added, still testing
ellis <ellis@rwest.io>
parents: 118
diff changeset
16
    :castable-size
85f27597cf60 castable added, still testing
ellis <ellis@rwest.io>
parents: 118
diff changeset
17
    :castable-count
85f27597cf60 castable added, still testing
ellis <ellis@rwest.io>
parents: 118
diff changeset
18
    :castable-test
85f27597cf60 castable added, still testing
ellis <ellis@rwest.io>
parents: 118
diff changeset
19
    :castable-hasher
124
5a2876536ea4 cgethash->getchash
ellis <ellis@rwest.io>
parents: 122
diff changeset
20
    :getchash
5a2876536ea4 cgethash->getchash
ellis <ellis@rwest.io>
parents: 122
diff changeset
21
    :remchash
5a2876536ea4 cgethash->getchash
ellis <ellis@rwest.io>
parents: 122
diff changeset
22
    :try-remchash
5a2876536ea4 cgethash->getchash
ellis <ellis@rwest.io>
parents: 122
diff changeset
23
    :put-if-absent
5a2876536ea4 cgethash->getchash
ellis <ellis@rwest.io>
parents: 122
diff changeset
24
    :put-if-equal
5a2876536ea4 cgethash->getchash
ellis <ellis@rwest.io>
parents: 122
diff changeset
25
    :put-if-present
5a2876536ea4 cgethash->getchash
ellis <ellis@rwest.io>
parents: 122
diff changeset
26
    :clrchash
5a2876536ea4 cgethash->getchash
ellis <ellis@rwest.io>
parents: 122
diff changeset
27
    :mapchash))
104
6e5caf0c68a1 obj tree, id, hash, seq, graph.. added cli/progress and init cli/repl
ellis <ellis@rwest.io>
parents: 96
diff changeset
28
 
6e5caf0c68a1 obj tree, id, hash, seq, graph.. added cli/progress and init cli/repl
ellis <ellis@rwest.io>
parents: 96
diff changeset
29
 (defpackage :obj/id
6e5caf0c68a1 obj tree, id, hash, seq, graph.. added cli/progress and init cli/repl
ellis <ellis@rwest.io>
parents: 96
diff changeset
30
   (:nicknames :id)
6e5caf0c68a1 obj tree, id, hash, seq, graph.. added cli/progress and init cli/repl
ellis <ellis@rwest.io>
parents: 96
diff changeset
31
   (:use :cl :std :obj/hash)
6e5caf0c68a1 obj tree, id, hash, seq, graph.. added cli/progress and init cli/repl
ellis <ellis@rwest.io>
parents: 96
diff changeset
32
   (:export 
212
742e6d74752d added sans-io module, more bits
Richard Westhaver <ellis@rwest.io>
parents: 207
diff changeset
33
    :id :reset-id :update-id :make-id
742e6d74752d added sans-io module, more bits
Richard Westhaver <ellis@rwest.io>
parents: 207
diff changeset
34
    :id-factory))
104
6e5caf0c68a1 obj tree, id, hash, seq, graph.. added cli/progress and init cli/repl
ellis <ellis@rwest.io>
parents: 96
diff changeset
35
 
6e5caf0c68a1 obj tree, id, hash, seq, graph.. added cli/progress and init cli/repl
ellis <ellis@rwest.io>
parents: 96
diff changeset
36
 (defpackage :obj/seq
6e5caf0c68a1 obj tree, id, hash, seq, graph.. added cli/progress and init cli/repl
ellis <ellis@rwest.io>
parents: 96
diff changeset
37
   (:nicknames :seq)
6e5caf0c68a1 obj tree, id, hash, seq, graph.. added cli/progress and init cli/repl
ellis <ellis@rwest.io>
parents: 96
diff changeset
38
   (:use :cl :std)
106
e243efeae91d gui init
ellis <ellis@rwest.io>
parents: 105
diff changeset
39
   (:export :iterator :ring))
104
6e5caf0c68a1 obj tree, id, hash, seq, graph.. added cli/progress and init cli/repl
ellis <ellis@rwest.io>
parents: 96
diff changeset
40
 
6e5caf0c68a1 obj tree, id, hash, seq, graph.. added cli/progress and init cli/repl
ellis <ellis@rwest.io>
parents: 96
diff changeset
41
 (defpackage :obj/tree
6e5caf0c68a1 obj tree, id, hash, seq, graph.. added cli/progress and init cli/repl
ellis <ellis@rwest.io>
parents: 96
diff changeset
42
   (:nicknames :tree)
6e5caf0c68a1 obj tree, id, hash, seq, graph.. added cli/progress and init cli/repl
ellis <ellis@rwest.io>
parents: 96
diff changeset
43
   (:use :cl :std :obj/id :obj/seq)
122
4ba88cac5bc7 num/parse, added DAT system, net/fetch, time/local, refactored trees
ellis <ellis@rwest.io>
parents: 120
diff changeset
44
   (:export :keytype :node :binary-node :unary-node :ternary-node :avl-node
4ba88cac5bc7 num/parse, added DAT system, net/fetch, time/local, refactored trees
ellis <ellis@rwest.io>
parents: 120
diff changeset
45
            :make-node :make-binary-node :make-unary-node :make-ternary-node :make-avl-node))
104
6e5caf0c68a1 obj tree, id, hash, seq, graph.. added cli/progress and init cli/repl
ellis <ellis@rwest.io>
parents: 96
diff changeset
46
 
6e5caf0c68a1 obj tree, id, hash, seq, graph.. added cli/progress and init cli/repl
ellis <ellis@rwest.io>
parents: 96
diff changeset
47
 (defpackage :obj/graph
6e5caf0c68a1 obj tree, id, hash, seq, graph.. added cli/progress and init cli/repl
ellis <ellis@rwest.io>
parents: 96
diff changeset
48
   (:nicknames :graph)
6e5caf0c68a1 obj tree, id, hash, seq, graph.. added cli/progress and init cli/repl
ellis <ellis@rwest.io>
parents: 96
diff changeset
49
   (:use :cl :std :obj/id :obj/seq :obj/tree)
6e5caf0c68a1 obj tree, id, hash, seq, graph.. added cli/progress and init cli/repl
ellis <ellis@rwest.io>
parents: 96
diff changeset
50
   (:export 
6e5caf0c68a1 obj tree, id, hash, seq, graph.. added cli/progress and init cli/repl
ellis <ellis@rwest.io>
parents: 96
diff changeset
51
    :vertex :edge :graph
6e5caf0c68a1 obj tree, id, hash, seq, graph.. added cli/progress and init cli/repl
ellis <ellis@rwest.io>
parents: 96
diff changeset
52
    :weighted-edge :directed-edge :undirected-edge))
6e5caf0c68a1 obj tree, id, hash, seq, graph.. added cli/progress and init cli/repl
ellis <ellis@rwest.io>
parents: 96
diff changeset
53
 
118
b828a3caa758 object library stuff, removed DOT - api doesnt jive.
ellis <ellis@rwest.io>
parents: 117
diff changeset
54
 (defpackage :obj/graph/dot
b828a3caa758 object library stuff, removed DOT - api doesnt jive.
ellis <ellis@rwest.io>
parents: 117
diff changeset
55
   (:nicknames :dot)
b828a3caa758 object library stuff, removed DOT - api doesnt jive.
ellis <ellis@rwest.io>
parents: 117
diff changeset
56
   (:use :cl :std :obj/graph :obj/id :cli)
b828a3caa758 object library stuff, removed DOT - api doesnt jive.
ellis <ellis@rwest.io>
parents: 117
diff changeset
57
   (:export))
b828a3caa758 object library stuff, removed DOT - api doesnt jive.
ellis <ellis@rwest.io>
parents: 117
diff changeset
58
 
96
301fd45bbe73 big refactor of lisp code
ellis <ellis@rwest.io>
parents:
diff changeset
59
 (defpackage :obj/color
301fd45bbe73 big refactor of lisp code
ellis <ellis@rwest.io>
parents:
diff changeset
60
   (:nicknames :color)
301fd45bbe73 big refactor of lisp code
ellis <ellis@rwest.io>
parents:
diff changeset
61
   (:use :cl :std)
301fd45bbe73 big refactor of lisp code
ellis <ellis@rwest.io>
parents:
diff changeset
62
   (:export
301fd45bbe73 big refactor of lisp code
ellis <ellis@rwest.io>
parents:
diff changeset
63
    #:rgb #:rgb-red #:rgb-green #:rgb-blue #:gray #:&rgb
301fd45bbe73 big refactor of lisp code
ellis <ellis@rwest.io>
parents:
diff changeset
64
    #:hsv #:hsv-hue #:hsv-saturation #:hsv-value #:&hsv
301fd45bbe73 big refactor of lisp code
ellis <ellis@rwest.io>
parents:
diff changeset
65
    #:rgb-to-hsv #:hsv-to-rgb #:hex-to-rgb #:as-hsv #:as-rgb
301fd45bbe73 big refactor of lisp code
ellis <ellis@rwest.io>
parents:
diff changeset
66
    #:rgb-combination #:hsv-combination
120
3a282b508f54 tests, colors, tables
ellis <ellis@rwest.io>
parents: 119
diff changeset
67
    #:parse-hex-rgb #:print-hex-rgb
3a282b508f54 tests, colors, tables
ellis <ellis@rwest.io>
parents: 119
diff changeset
68
    :color-palette :parse-and-write-color-definitions))
96
301fd45bbe73 big refactor of lisp code
ellis <ellis@rwest.io>
parents:
diff changeset
69
 
122
4ba88cac5bc7 num/parse, added DAT system, net/fetch, time/local, refactored trees
ellis <ellis@rwest.io>
parents: 120
diff changeset
70
 (defpackage :obj/time
4ba88cac5bc7 num/parse, added DAT system, net/fetch, time/local, refactored trees
ellis <ellis@rwest.io>
parents: 120
diff changeset
71
   (:nicknames :time)
4ba88cac5bc7 num/parse, added DAT system, net/fetch, time/local, refactored trees
ellis <ellis@rwest.io>
parents: 120
diff changeset
72
   (:use :cl :std)
4ba88cac5bc7 num/parse, added DAT system, net/fetch, time/local, refactored trees
ellis <ellis@rwest.io>
parents: 120
diff changeset
73
   (:export
4ba88cac5bc7 num/parse, added DAT system, net/fetch, time/local, refactored trees
ellis <ellis@rwest.io>
parents: 120
diff changeset
74
    :timestamp
4ba88cac5bc7 num/parse, added DAT system, net/fetch, time/local, refactored trees
ellis <ellis@rwest.io>
parents: 120
diff changeset
75
    :date
4ba88cac5bc7 num/parse, added DAT system, net/fetch, time/local, refactored trees
ellis <ellis@rwest.io>
parents: 120
diff changeset
76
    :time-of-day
4ba88cac5bc7 num/parse, added DAT system, net/fetch, time/local, refactored trees
ellis <ellis@rwest.io>
parents: 120
diff changeset
77
    :make-timestamp
4ba88cac5bc7 num/parse, added DAT system, net/fetch, time/local, refactored trees
ellis <ellis@rwest.io>
parents: 120
diff changeset
78
    :clone-timestamp
4ba88cac5bc7 num/parse, added DAT system, net/fetch, time/local, refactored trees
ellis <ellis@rwest.io>
parents: 120
diff changeset
79
    :day-of
4ba88cac5bc7 num/parse, added DAT system, net/fetch, time/local, refactored trees
ellis <ellis@rwest.io>
parents: 120
diff changeset
80
    :sec-of
4ba88cac5bc7 num/parse, added DAT system, net/fetch, time/local, refactored trees
ellis <ellis@rwest.io>
parents: 120
diff changeset
81
    :nsec-of
4ba88cac5bc7 num/parse, added DAT system, net/fetch, time/local, refactored trees
ellis <ellis@rwest.io>
parents: 120
diff changeset
82
    :timestamp<
4ba88cac5bc7 num/parse, added DAT system, net/fetch, time/local, refactored trees
ellis <ellis@rwest.io>
parents: 120
diff changeset
83
    :timestamp<=
4ba88cac5bc7 num/parse, added DAT system, net/fetch, time/local, refactored trees
ellis <ellis@rwest.io>
parents: 120
diff changeset
84
    :timestamp>
4ba88cac5bc7 num/parse, added DAT system, net/fetch, time/local, refactored trees
ellis <ellis@rwest.io>
parents: 120
diff changeset
85
    :timestamp>=
4ba88cac5bc7 num/parse, added DAT system, net/fetch, time/local, refactored trees
ellis <ellis@rwest.io>
parents: 120
diff changeset
86
    :timestamp=
4ba88cac5bc7 num/parse, added DAT system, net/fetch, time/local, refactored trees
ellis <ellis@rwest.io>
parents: 120
diff changeset
87
    :timestamp/=
4ba88cac5bc7 num/parse, added DAT system, net/fetch, time/local, refactored trees
ellis <ellis@rwest.io>
parents: 120
diff changeset
88
    :timestamp-maximum
4ba88cac5bc7 num/parse, added DAT system, net/fetch, time/local, refactored trees
ellis <ellis@rwest.io>
parents: 120
diff changeset
89
    :timestamp-minimum
4ba88cac5bc7 num/parse, added DAT system, net/fetch, time/local, refactored trees
ellis <ellis@rwest.io>
parents: 120
diff changeset
90
    :adjust-timestamp
4ba88cac5bc7 num/parse, added DAT system, net/fetch, time/local, refactored trees
ellis <ellis@rwest.io>
parents: 120
diff changeset
91
    :adjust-timestamp!
4ba88cac5bc7 num/parse, added DAT system, net/fetch, time/local, refactored trees
ellis <ellis@rwest.io>
parents: 120
diff changeset
92
    :timestamp-whole-year-difference
4ba88cac5bc7 num/parse, added DAT system, net/fetch, time/local, refactored trees
ellis <ellis@rwest.io>
parents: 120
diff changeset
93
    :days-in-month
4ba88cac5bc7 num/parse, added DAT system, net/fetch, time/local, refactored trees
ellis <ellis@rwest.io>
parents: 120
diff changeset
94
    :timestamp-
4ba88cac5bc7 num/parse, added DAT system, net/fetch, time/local, refactored trees
ellis <ellis@rwest.io>
parents: 120
diff changeset
95
    :timestamp+
4ba88cac5bc7 num/parse, added DAT system, net/fetch, time/local, refactored trees
ellis <ellis@rwest.io>
parents: 120
diff changeset
96
    :timestamp-difference
4ba88cac5bc7 num/parse, added DAT system, net/fetch, time/local, refactored trees
ellis <ellis@rwest.io>
parents: 120
diff changeset
97
    :timestamp-minimize-part
4ba88cac5bc7 num/parse, added DAT system, net/fetch, time/local, refactored trees
ellis <ellis@rwest.io>
parents: 120
diff changeset
98
    :timestamp-maximize-part
4ba88cac5bc7 num/parse, added DAT system, net/fetch, time/local, refactored trees
ellis <ellis@rwest.io>
parents: 120
diff changeset
99
    :with-decoded-timestamp
4ba88cac5bc7 num/parse, added DAT system, net/fetch, time/local, refactored trees
ellis <ellis@rwest.io>
parents: 120
diff changeset
100
    :decode-timestamp
4ba88cac5bc7 num/parse, added DAT system, net/fetch, time/local, refactored trees
ellis <ellis@rwest.io>
parents: 120
diff changeset
101
    :timestamp-century
4ba88cac5bc7 num/parse, added DAT system, net/fetch, time/local, refactored trees
ellis <ellis@rwest.io>
parents: 120
diff changeset
102
    :timestamp-day
4ba88cac5bc7 num/parse, added DAT system, net/fetch, time/local, refactored trees
ellis <ellis@rwest.io>
parents: 120
diff changeset
103
    :timestamp-day-of-week
4ba88cac5bc7 num/parse, added DAT system, net/fetch, time/local, refactored trees
ellis <ellis@rwest.io>
parents: 120
diff changeset
104
    :timestamp-decade
4ba88cac5bc7 num/parse, added DAT system, net/fetch, time/local, refactored trees
ellis <ellis@rwest.io>
parents: 120
diff changeset
105
    :timestamp-hour
4ba88cac5bc7 num/parse, added DAT system, net/fetch, time/local, refactored trees
ellis <ellis@rwest.io>
parents: 120
diff changeset
106
    :timestamp-microsecond
4ba88cac5bc7 num/parse, added DAT system, net/fetch, time/local, refactored trees
ellis <ellis@rwest.io>
parents: 120
diff changeset
107
    :timestamp-millennium
4ba88cac5bc7 num/parse, added DAT system, net/fetch, time/local, refactored trees
ellis <ellis@rwest.io>
parents: 120
diff changeset
108
    :timestamp-millisecond
4ba88cac5bc7 num/parse, added DAT system, net/fetch, time/local, refactored trees
ellis <ellis@rwest.io>
parents: 120
diff changeset
109
    :timestamp-minute
4ba88cac5bc7 num/parse, added DAT system, net/fetch, time/local, refactored trees
ellis <ellis@rwest.io>
parents: 120
diff changeset
110
    :timestamp-month
4ba88cac5bc7 num/parse, added DAT system, net/fetch, time/local, refactored trees
ellis <ellis@rwest.io>
parents: 120
diff changeset
111
    :timestamp-second
4ba88cac5bc7 num/parse, added DAT system, net/fetch, time/local, refactored trees
ellis <ellis@rwest.io>
parents: 120
diff changeset
112
    :timestamp-week
4ba88cac5bc7 num/parse, added DAT system, net/fetch, time/local, refactored trees
ellis <ellis@rwest.io>
parents: 120
diff changeset
113
    :timestamp-year
4ba88cac5bc7 num/parse, added DAT system, net/fetch, time/local, refactored trees
ellis <ellis@rwest.io>
parents: 120
diff changeset
114
    :parse-timestring
4ba88cac5bc7 num/parse, added DAT system, net/fetch, time/local, refactored trees
ellis <ellis@rwest.io>
parents: 120
diff changeset
115
    :invalid-timestring
4ba88cac5bc7 num/parse, added DAT system, net/fetch, time/local, refactored trees
ellis <ellis@rwest.io>
parents: 120
diff changeset
116
    :format-timestring
4ba88cac5bc7 num/parse, added DAT system, net/fetch, time/local, refactored trees
ellis <ellis@rwest.io>
parents: 120
diff changeset
117
    :format-rfc1123-timestring
4ba88cac5bc7 num/parse, added DAT system, net/fetch, time/local, refactored trees
ellis <ellis@rwest.io>
parents: 120
diff changeset
118
    :to-rfc1123-timestring
4ba88cac5bc7 num/parse, added DAT system, net/fetch, time/local, refactored trees
ellis <ellis@rwest.io>
parents: 120
diff changeset
119
    :format-rfc3339-timestring
4ba88cac5bc7 num/parse, added DAT system, net/fetch, time/local, refactored trees
ellis <ellis@rwest.io>
parents: 120
diff changeset
120
    :to-rfc3339-timestring
4ba88cac5bc7 num/parse, added DAT system, net/fetch, time/local, refactored trees
ellis <ellis@rwest.io>
parents: 120
diff changeset
121
    :encode-timestamp
4ba88cac5bc7 num/parse, added DAT system, net/fetch, time/local, refactored trees
ellis <ellis@rwest.io>
parents: 120
diff changeset
122
    :parse-rfc3339-timestring
4ba88cac5bc7 num/parse, added DAT system, net/fetch, time/local, refactored trees
ellis <ellis@rwest.io>
parents: 120
diff changeset
123
    :universal-to-timestamp
4ba88cac5bc7 num/parse, added DAT system, net/fetch, time/local, refactored trees
ellis <ellis@rwest.io>
parents: 120
diff changeset
124
    :timestamp-to-universal
4ba88cac5bc7 num/parse, added DAT system, net/fetch, time/local, refactored trees
ellis <ellis@rwest.io>
parents: 120
diff changeset
125
    :unix-to-timestamp
4ba88cac5bc7 num/parse, added DAT system, net/fetch, time/local, refactored trees
ellis <ellis@rwest.io>
parents: 120
diff changeset
126
    :timestamp-to-unix
4ba88cac5bc7 num/parse, added DAT system, net/fetch, time/local, refactored trees
ellis <ellis@rwest.io>
parents: 120
diff changeset
127
    :timestamp-subtimezone
4ba88cac5bc7 num/parse, added DAT system, net/fetch, time/local, refactored trees
ellis <ellis@rwest.io>
parents: 120
diff changeset
128
    :define-timezone
4ba88cac5bc7 num/parse, added DAT system, net/fetch, time/local, refactored trees
ellis <ellis@rwest.io>
parents: 120
diff changeset
129
    :*default-timezone*
4ba88cac5bc7 num/parse, added DAT system, net/fetch, time/local, refactored trees
ellis <ellis@rwest.io>
parents: 120
diff changeset
130
    :*clock*
4ba88cac5bc7 num/parse, added DAT system, net/fetch, time/local, refactored trees
ellis <ellis@rwest.io>
parents: 120
diff changeset
131
    :leap-second-adjusted
4ba88cac5bc7 num/parse, added DAT system, net/fetch, time/local, refactored trees
ellis <ellis@rwest.io>
parents: 120
diff changeset
132
    :clock-now
4ba88cac5bc7 num/parse, added DAT system, net/fetch, time/local, refactored trees
ellis <ellis@rwest.io>
parents: 120
diff changeset
133
    :clock-today
4ba88cac5bc7 num/parse, added DAT system, net/fetch, time/local, refactored trees
ellis <ellis@rwest.io>
parents: 120
diff changeset
134
    :find-timezone-by-location-name
4ba88cac5bc7 num/parse, added DAT system, net/fetch, time/local, refactored trees
ellis <ellis@rwest.io>
parents: 120
diff changeset
135
    :timezones-matching-subzone
4ba88cac5bc7 num/parse, added DAT system, net/fetch, time/local, refactored trees
ellis <ellis@rwest.io>
parents: 120
diff changeset
136
    :all-timezones-matching-subzone
4ba88cac5bc7 num/parse, added DAT system, net/fetch, time/local, refactored trees
ellis <ellis@rwest.io>
parents: 120
diff changeset
137
    :reread-timezone-repository
4ba88cac5bc7 num/parse, added DAT system, net/fetch, time/local, refactored trees
ellis <ellis@rwest.io>
parents: 120
diff changeset
138
    :now
4ba88cac5bc7 num/parse, added DAT system, net/fetch, time/local, refactored trees
ellis <ellis@rwest.io>
parents: 120
diff changeset
139
    :today
4ba88cac5bc7 num/parse, added DAT system, net/fetch, time/local, refactored trees
ellis <ellis@rwest.io>
parents: 120
diff changeset
140
    :enable-read-macros
4ba88cac5bc7 num/parse, added DAT system, net/fetch, time/local, refactored trees
ellis <ellis@rwest.io>
parents: 120
diff changeset
141
    :+utc-zone+
4ba88cac5bc7 num/parse, added DAT system, net/fetch, time/local, refactored trees
ellis <ellis@rwest.io>
parents: 120
diff changeset
142
    :+gmt-zone+
4ba88cac5bc7 num/parse, added DAT system, net/fetch, time/local, refactored trees
ellis <ellis@rwest.io>
parents: 120
diff changeset
143
    :+month-names+
4ba88cac5bc7 num/parse, added DAT system, net/fetch, time/local, refactored trees
ellis <ellis@rwest.io>
parents: 120
diff changeset
144
    :+short-month-names+
4ba88cac5bc7 num/parse, added DAT system, net/fetch, time/local, refactored trees
ellis <ellis@rwest.io>
parents: 120
diff changeset
145
    :+day-names+
4ba88cac5bc7 num/parse, added DAT system, net/fetch, time/local, refactored trees
ellis <ellis@rwest.io>
parents: 120
diff changeset
146
    :+short-day-names+
4ba88cac5bc7 num/parse, added DAT system, net/fetch, time/local, refactored trees
ellis <ellis@rwest.io>
parents: 120
diff changeset
147
    :+seconds-per-day+
4ba88cac5bc7 num/parse, added DAT system, net/fetch, time/local, refactored trees
ellis <ellis@rwest.io>
parents: 120
diff changeset
148
    :+seconds-per-hour+
4ba88cac5bc7 num/parse, added DAT system, net/fetch, time/local, refactored trees
ellis <ellis@rwest.io>
parents: 120
diff changeset
149
    :+seconds-per-minute+
4ba88cac5bc7 num/parse, added DAT system, net/fetch, time/local, refactored trees
ellis <ellis@rwest.io>
parents: 120
diff changeset
150
    :+minutes-per-day+
4ba88cac5bc7 num/parse, added DAT system, net/fetch, time/local, refactored trees
ellis <ellis@rwest.io>
parents: 120
diff changeset
151
    :+minutes-per-hour+
4ba88cac5bc7 num/parse, added DAT system, net/fetch, time/local, refactored trees
ellis <ellis@rwest.io>
parents: 120
diff changeset
152
    :+hours-per-day+
4ba88cac5bc7 num/parse, added DAT system, net/fetch, time/local, refactored trees
ellis <ellis@rwest.io>
parents: 120
diff changeset
153
    :+days-per-week+
4ba88cac5bc7 num/parse, added DAT system, net/fetch, time/local, refactored trees
ellis <ellis@rwest.io>
parents: 120
diff changeset
154
    :+months-per-year+
4ba88cac5bc7 num/parse, added DAT system, net/fetch, time/local, refactored trees
ellis <ellis@rwest.io>
parents: 120
diff changeset
155
    :+iso-8601-format+
4ba88cac5bc7 num/parse, added DAT system, net/fetch, time/local, refactored trees
ellis <ellis@rwest.io>
parents: 120
diff changeset
156
    :+iso-8601-date-format+
4ba88cac5bc7 num/parse, added DAT system, net/fetch, time/local, refactored trees
ellis <ellis@rwest.io>
parents: 120
diff changeset
157
    :+iso-8601-time-format+
4ba88cac5bc7 num/parse, added DAT system, net/fetch, time/local, refactored trees
ellis <ellis@rwest.io>
parents: 120
diff changeset
158
    :+rfc3339-format+
4ba88cac5bc7 num/parse, added DAT system, net/fetch, time/local, refactored trees
ellis <ellis@rwest.io>
parents: 120
diff changeset
159
    :+rfc3339-format/date-only+
4ba88cac5bc7 num/parse, added DAT system, net/fetch, time/local, refactored trees
ellis <ellis@rwest.io>
parents: 120
diff changeset
160
    :+asctime-format+
4ba88cac5bc7 num/parse, added DAT system, net/fetch, time/local, refactored trees
ellis <ellis@rwest.io>
parents: 120
diff changeset
161
    :+rfc-1123-format+
4ba88cac5bc7 num/parse, added DAT system, net/fetch, time/local, refactored trees
ellis <ellis@rwest.io>
parents: 120
diff changeset
162
    :+iso-week-date-format+
4ba88cac5bc7 num/parse, added DAT system, net/fetch, time/local, refactored trees
ellis <ellis@rwest.io>
parents: 120
diff changeset
163
    :astronomical-julian-date
4ba88cac5bc7 num/parse, added DAT system, net/fetch, time/local, refactored trees
ellis <ellis@rwest.io>
parents: 120
diff changeset
164
    :modified-julian-date
4ba88cac5bc7 num/parse, added DAT system, net/fetch, time/local, refactored trees
ellis <ellis@rwest.io>
parents: 120
diff changeset
165
    :astronomical-modified-julian-date
4ba88cac5bc7 num/parse, added DAT system, net/fetch, time/local, refactored trees
ellis <ellis@rwest.io>
parents: 120
diff changeset
166
    :zone-name
4ba88cac5bc7 num/parse, added DAT system, net/fetch, time/local, refactored trees
ellis <ellis@rwest.io>
parents: 120
diff changeset
167
    :encode-universal-time-with-tz
4ba88cac5bc7 num/parse, added DAT system, net/fetch, time/local, refactored trees
ellis <ellis@rwest.io>
parents: 120
diff changeset
168
    :decode-universal-time-with-tz))
4ba88cac5bc7 num/parse, added DAT system, net/fetch, time/local, refactored trees
ellis <ellis@rwest.io>
parents: 120
diff changeset
169
 
216
97ad564cd68d gui stuff, music
Richard Westhaver <ellis@rwest.io>
parents: 214
diff changeset
170
 (defpackage :obj/music
97ad564cd68d gui stuff, music
Richard Westhaver <ellis@rwest.io>
parents: 214
diff changeset
171
   (:nicknames :music)
97ad564cd68d gui stuff, music
Richard Westhaver <ellis@rwest.io>
parents: 214
diff changeset
172
   (:use :cl :std)
97ad564cd68d gui stuff, music
Richard Westhaver <ellis@rwest.io>
parents: 214
diff changeset
173
   (:export
97ad564cd68d gui stuff, music
Richard Westhaver <ellis@rwest.io>
parents: 214
diff changeset
174
    :*bpm* :*key-signature* :*time-signature*
97ad564cd68d gui stuff, music
Richard Westhaver <ellis@rwest.io>
parents: 214
diff changeset
175
    :*chord-table* :*key-table* :*tone-table*))
97ad564cd68d gui stuff, music
Richard Westhaver <ellis@rwest.io>
parents: 214
diff changeset
176
 
96
301fd45bbe73 big refactor of lisp code
ellis <ellis@rwest.io>
parents:
diff changeset
177
 (defpackage :obj/tbl
301fd45bbe73 big refactor of lisp code
ellis <ellis@rwest.io>
parents:
diff changeset
178
   (:nicknames :tbl)
301fd45bbe73 big refactor of lisp code
ellis <ellis@rwest.io>
parents:
diff changeset
179
   (:use :cl :std)
301fd45bbe73 big refactor of lisp code
ellis <ellis@rwest.io>
parents:
diff changeset
180
   (:import-from :uiop :split-string)
301fd45bbe73 big refactor of lisp code
ellis <ellis@rwest.io>
parents:
diff changeset
181
   (:export 
120
3a282b508f54 tests, colors, tables
ellis <ellis@rwest.io>
parents: 119
diff changeset
182
    :table
3a282b508f54 tests, colors, tables
ellis <ellis@rwest.io>
parents: 119
diff changeset
183
    :row
96
301fd45bbe73 big refactor of lisp code
ellis <ellis@rwest.io>
parents:
diff changeset
184
    :make-table
301fd45bbe73 big refactor of lisp code
ellis <ellis@rwest.io>
parents:
diff changeset
185
    :make-row
301fd45bbe73 big refactor of lisp code
ellis <ellis@rwest.io>
parents:
diff changeset
186
    :add-to-table
301fd45bbe73 big refactor of lisp code
ellis <ellis@rwest.io>
parents:
diff changeset
187
    :add-to-row
301fd45bbe73 big refactor of lisp code
ellis <ellis@rwest.io>
parents:
diff changeset
188
    :get-row
301fd45bbe73 big refactor of lisp code
ellis <ellis@rwest.io>
parents:
diff changeset
189
    :get-row-column
301fd45bbe73 big refactor of lisp code
ellis <ellis@rwest.io>
parents:
diff changeset
190
    :set-row-column
301fd45bbe73 big refactor of lisp code
ellis <ellis@rwest.io>
parents:
diff changeset
191
    :num-rows
301fd45bbe73 big refactor of lisp code
ellis <ellis@rwest.io>
parents:
diff changeset
192
    :num-cols
301fd45bbe73 big refactor of lisp code
ellis <ellis@rwest.io>
parents:
diff changeset
193
    :num-col
301fd45bbe73 big refactor of lisp code
ellis <ellis@rwest.io>
parents:
diff changeset
194
    :rectangular-table-p
301fd45bbe73 big refactor of lisp code
ellis <ellis@rwest.io>
parents:
diff changeset
195
    :sequence->row
301fd45bbe73 big refactor of lisp code
ellis <ellis@rwest.io>
parents:
diff changeset
196
    :row-sequence->table
301fd45bbe73 big refactor of lisp code
ellis <ellis@rwest.io>
parents:
diff changeset
197
    :with-rows
301fd45bbe73 big refactor of lisp code
ellis <ellis@rwest.io>
parents:
diff changeset
198
    :select
301fd45bbe73 big refactor of lisp code
ellis <ellis@rwest.io>
parents:
diff changeset
199
    :distinct
301fd45bbe73 big refactor of lisp code
ellis <ellis@rwest.io>
parents:
diff changeset
200
    :top
301fd45bbe73 big refactor of lisp code
ellis <ellis@rwest.io>
parents:
diff changeset
201
    :order-by
301fd45bbe73 big refactor of lisp code
ellis <ellis@rwest.io>
parents:
diff changeset
202
    :where
301fd45bbe73 big refactor of lisp code
ellis <ellis@rwest.io>
parents:
diff changeset
203
    :where-filter
301fd45bbe73 big refactor of lisp code
ellis <ellis@rwest.io>
parents:
diff changeset
204
    :where-or
301fd45bbe73 big refactor of lisp code
ellis <ellis@rwest.io>
parents:
diff changeset
205
    :where-and
124
5a2876536ea4 cgethash->getchash
ellis <ellis@rwest.io>
parents: 122
diff changeset
206
    :table-from-csv
5a2876536ea4 cgethash->getchash
ellis <ellis@rwest.io>
parents: 122
diff changeset
207
    :table-from-tvs))
96
301fd45bbe73 big refactor of lisp code
ellis <ellis@rwest.io>
parents:
diff changeset
208
 
113
afcb1f02bb66 removed obj/uri. may add back new impl later. new file obj/db.lisp and RDB stuff - (sst)
ellis <ellis@rwest.io>
parents: 109
diff changeset
209
 (defpackage :obj/db
afcb1f02bb66 removed obj/uri. may add back new impl later. new file obj/db.lisp and RDB stuff - (sst)
ellis <ellis@rwest.io>
parents: 109
diff changeset
210
   (:nicknames :db)
118
b828a3caa758 object library stuff, removed DOT - api doesnt jive.
ellis <ellis@rwest.io>
parents: 117
diff changeset
211
   (:use :cl :std :id :seq :sb-mop :sb-pcl)
115
7ed6bc70ca20 added basics of DB, included XDB, added IEEE floats to std/num module (new)
ellis <ellis@rwest.io>
parents: 113
diff changeset
212
   (:export
7ed6bc70ca20 added basics of DB, included XDB, added IEEE floats to std/num module (new)
ellis <ellis@rwest.io>
parents: 113
diff changeset
213
    :xdb
7ed6bc70ca20 added basics of DB, included XDB, added IEEE floats to std/num module (new)
ellis <ellis@rwest.io>
parents: 113
diff changeset
214
    :collection
7ed6bc70ca20 added basics of DB, included XDB, added IEEE floats to std/num module (new)
ellis <ellis@rwest.io>
parents: 113
diff changeset
215
    :collection-aware
7ed6bc70ca20 added basics of DB, included XDB, added IEEE floats to std/num module (new)
ellis <ellis@rwest.io>
parents: 113
diff changeset
216
    :map-docs
7ed6bc70ca20 added basics of DB, included XDB, added IEEE floats to std/num module (new)
ellis <ellis@rwest.io>
parents: 113
diff changeset
217
    :duplicate-doc-p
7ed6bc70ca20 added basics of DB, included XDB, added IEEE floats to std/num module (new)
ellis <ellis@rwest.io>
parents: 113
diff changeset
218
    :find-duplicate-doc
7ed6bc70ca20 added basics of DB, included XDB, added IEEE floats to std/num module (new)
ellis <ellis@rwest.io>
parents: 113
diff changeset
219
    :store-doc
7ed6bc70ca20 added basics of DB, included XDB, added IEEE floats to std/num module (new)
ellis <ellis@rwest.io>
parents: 113
diff changeset
220
    :serialize-doc
7ed6bc70ca20 added basics of DB, included XDB, added IEEE floats to std/num module (new)
ellis <ellis@rwest.io>
parents: 113
diff changeset
221
    :serialize-docs
7ed6bc70ca20 added basics of DB, included XDB, added IEEE floats to std/num module (new)
ellis <ellis@rwest.io>
parents: 113
diff changeset
222
    :load-from-file
7ed6bc70ca20 added basics of DB, included XDB, added IEEE floats to std/num module (new)
ellis <ellis@rwest.io>
parents: 113
diff changeset
223
    :get-collection
7ed6bc70ca20 added basics of DB, included XDB, added IEEE floats to std/num module (new)
ellis <ellis@rwest.io>
parents: 113
diff changeset
224
    :add-collection
7ed6bc70ca20 added basics of DB, included XDB, added IEEE floats to std/num module (new)
ellis <ellis@rwest.io>
parents: 113
diff changeset
225
    :snapshot
7ed6bc70ca20 added basics of DB, included XDB, added IEEE floats to std/num module (new)
ellis <ellis@rwest.io>
parents: 113
diff changeset
226
    :load-db
7ed6bc70ca20 added basics of DB, included XDB, added IEEE floats to std/num module (new)
ellis <ellis@rwest.io>
parents: 113
diff changeset
227
    :get-docs
7ed6bc70ca20 added basics of DB, included XDB, added IEEE floats to std/num module (new)
ellis <ellis@rwest.io>
parents: 113
diff changeset
228
    :get-doc
7ed6bc70ca20 added basics of DB, included XDB, added IEEE floats to std/num module (new)
ellis <ellis@rwest.io>
parents: 113
diff changeset
229
    :get-val
7ed6bc70ca20 added basics of DB, included XDB, added IEEE floats to std/num module (new)
ellis <ellis@rwest.io>
parents: 113
diff changeset
230
    :set-val
7ed6bc70ca20 added basics of DB, included XDB, added IEEE floats to std/num module (new)
ellis <ellis@rwest.io>
parents: 113
diff changeset
231
    :sum
7ed6bc70ca20 added basics of DB, included XDB, added IEEE floats to std/num module (new)
ellis <ellis@rwest.io>
parents: 113
diff changeset
232
    :max-val
7ed6bc70ca20 added basics of DB, included XDB, added IEEE floats to std/num module (new)
ellis <ellis@rwest.io>
parents: 113
diff changeset
233
    :document
7ed6bc70ca20 added basics of DB, included XDB, added IEEE floats to std/num module (new)
ellis <ellis@rwest.io>
parents: 113
diff changeset
234
    :doc-type
7ed6bc70ca20 added basics of DB, included XDB, added IEEE floats to std/num module (new)
ellis <ellis@rwest.io>
parents: 113
diff changeset
235
    :key
7ed6bc70ca20 added basics of DB, included XDB, added IEEE floats to std/num module (new)
ellis <ellis@rwest.io>
parents: 113
diff changeset
236
    :find-doc
7ed6bc70ca20 added basics of DB, included XDB, added IEEE floats to std/num module (new)
ellis <ellis@rwest.io>
parents: 113
diff changeset
237
    :find-docs
7ed6bc70ca20 added basics of DB, included XDB, added IEEE floats to std/num module (new)
ellis <ellis@rwest.io>
parents: 113
diff changeset
238
    :sort-collection
7ed6bc70ca20 added basics of DB, included XDB, added IEEE floats to std/num module (new)
ellis <ellis@rwest.io>
parents: 113
diff changeset
239
    :docs
7ed6bc70ca20 added basics of DB, included XDB, added IEEE floats to std/num module (new)
ellis <ellis@rwest.io>
parents: 113
diff changeset
240
    :*fsync-data*
7ed6bc70ca20 added basics of DB, included XDB, added IEEE floats to std/num module (new)
ellis <ellis@rwest.io>
parents: 113
diff changeset
241
    :storable-class
7ed6bc70ca20 added basics of DB, included XDB, added IEEE floats to std/num module (new)
ellis <ellis@rwest.io>
parents: 113
diff changeset
242
    :dbs
7ed6bc70ca20 added basics of DB, included XDB, added IEEE floats to std/num module (new)
ellis <ellis@rwest.io>
parents: 113
diff changeset
243
    :get-db
7ed6bc70ca20 added basics of DB, included XDB, added IEEE floats to std/num module (new)
ellis <ellis@rwest.io>
parents: 113
diff changeset
244
    :add-db
162
cc74c0054bc1 prelude
ellis <ellis@rwest.io>
parents: 124
diff changeset
245
    :make-db
214
0d46ef787334 db updates
Richard Westhaver <ellis@rwest.io>
parents: 212
diff changeset
246
    :close-db
0d46ef787334 db updates
Richard Westhaver <ellis@rwest.io>
parents: 212
diff changeset
247
    :destroy-db
162
cc74c0054bc1 prelude
ellis <ellis@rwest.io>
parents: 124
diff changeset
248
    :connect-db
cc74c0054bc1 prelude
ellis <ellis@rwest.io>
parents: 124
diff changeset
249
    :query-db
cc74c0054bc1 prelude
ellis <ellis@rwest.io>
parents: 124
diff changeset
250
    :db-get
cc74c0054bc1 prelude
ellis <ellis@rwest.io>
parents: 124
diff changeset
251
    :close-db
cc74c0054bc1 prelude
ellis <ellis@rwest.io>
parents: 124
diff changeset
252
    :database
115
7ed6bc70ca20 added basics of DB, included XDB, added IEEE floats to std/num module (new)
ellis <ellis@rwest.io>
parents: 113
diff changeset
253
    :enable-sequences
7ed6bc70ca20 added basics of DB, included XDB, added IEEE floats to std/num module (new)
ellis <ellis@rwest.io>
parents: 113
diff changeset
254
    :next-sequence
7ed6bc70ca20 added basics of DB, included XDB, added IEEE floats to std/num module (new)
ellis <ellis@rwest.io>
parents: 113
diff changeset
255
    :sort-docs))
105
524dfb768c7a added PWN, NET, OBJ/URI
ellis <ellis@rwest.io>
parents: 104
diff changeset
256
 
96
301fd45bbe73 big refactor of lisp code
ellis <ellis@rwest.io>
parents:
diff changeset
257
 (uiop:define-package :obj
122
4ba88cac5bc7 num/parse, added DAT system, net/fetch, time/local, refactored trees
ellis <ellis@rwest.io>
parents: 120
diff changeset
258
     (:use-reexport :hash :color :seq :tree :graph :tbl :id :db))