File tree Expand file tree Collapse file tree 1 file changed +7
-7
lines changed Expand file tree Collapse file tree 1 file changed +7
-7
lines changed Original file line number Diff line number Diff line change 31
31
{:keyword " kw"
32
32
:boolean " bl"
33
33
:key-integer " ki"
34
- :nil " nl" ; ; TODO: Could use Tag/NONE instead
34
+ :nil " nl" ; ; TODO: Could use Tag/NONE instead
35
35
:inst " in"
36
36
:date " da" })
37
37
175
175
[k]
176
176
(cond
177
177
(integer? k)
178
- (database-bytes (str k) " ki" ) ; integer keys are stored as strings with 'ki' format tag
178
+ (database-bytes (str k) " ki" ) ; integer keys are stored as strings with 'ki' format tag
179
179
:else
180
180
(primitive-for k)))
181
181
182
182
(defn read-bytes-with-format-tag [^ReadCursor cursor]
183
183
(let [bytes-obj (.readBytesObject cursor nil )
184
- str (String. (.value bytes-obj))
185
- fmt-tag (some-> bytes-obj .formatTag String.)]
184
+ str (String. (.value bytes-obj))
185
+ fmt-tag (some-> bytes-obj .formatTag String.)]
186
186
(cond
187
187
188
188
(= fmt-tag (fmt-tag-value :keyword ))
270
270
(doseq [[k v] m]
271
271
(let [hash-value (db-key-hash (-> cursor .db) k)
272
272
key-cursor (.putKeyCursor whm hash-value)
273
- cursor (.putCursor whm hash-value)]
273
+ cursor (.putCursor whm hash-value)]
274
274
(.writeIfEmpty key-cursor (v->slot! key-cursor k))
275
275
(.write cursor (v->slot! cursor v))))
276
276
(.-cursor whm)))
280
280
Returns the cursor of the created WriteHashSet."
281
281
[^WriteCursor cursor s]
282
282
(let [whm (WriteCountedHashSet. cursor)
283
- db (-> cursor .db)]
283
+ db (-> cursor .db)]
284
284
(doseq [v s]
285
285
(let [hash-code (db-key-hash db v)
286
- cursor (.putCursor whm hash-code)]
286
+ cursor (.putCursor whm hash-code)]
287
287
(.writeIfEmpty cursor (v->slot! cursor v))))
288
288
(.-cursor whm)))
You can’t perform that action at this time.
0 commit comments