Baguette
/
dodb
3
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

code cleaning

draft
kimory 2022-10-16 13:48:49 +02:00
parent a321b62277
commit 6ea4c26172
1 changed files with 0 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
src/dodb.cl
View File

@ -240,7 +240,6 @@
(remhash object-index (db-data database)))) (remhash object-index (db-data database))))
; Search for the data from the FS. ; Search for the data from the FS.
; TODO: get the hash index, too.
(defun db/search/fs/get-by-index (database index-name value) (defun db/search/fs/get-by-index (database index-name value)
(filename->integer (filename->integer
(osicat:read-link (osicat:read-link
@ -254,22 +253,10 @@
(loop for filename in (ls (db/partition/get-directory-path database name value)) (loop for filename in (ls (db/partition/get-directory-path database name value))
collect (filename->integer filename))) collect (filename->integer filename)))
;; Search for the data from the in-memory data.
;; TODO: get the hash index, too.
;
;(defun db/search/mem/get-by-index (database index-name value)
; (util:read-object-from-file (concatenate 'string
; (db/index/get-directory-path database index-name) "/" value)))
;
;(defun db/search/mem/get-by-partition (database name value)
; (loop for car in (ls (db/partition/get-directory-path database name value))
; collect (util:read-object-from-file car)))
; By default, search on the FS. ; By default, search on the FS.
(alias db/get-by-index db/search/fs/get-by-index) (alias db/get-by-index db/search/fs/get-by-index)
(alias db/get-by-partition db/search/fs/get-by-partition) (alias db/get-by-partition db/search/fs/get-by-partition)
; TODO: remove old indexes and partitions
; TODO: check database integrity (redundancy) ; TODO: check database integrity (redundancy)
; TODO: locking ; TODO: locking
(defun db/update (database object-index) (defun db/update (database object-index)