Grooming.

draft
Karchnu 2022-10-12 12:09:07 +02:00
parent 49e155248a
commit 5624c7b7ee
1 changed files with 19 additions and 49 deletions

View File

@ -11,33 +11,12 @@
))
(in-package dodb)
;(defun ln (path &key target hard)
; (format t "LN: ~A -> ~A~&" path target))
;(defun ls (path)
; (format t "LS: ~A~&" path target))
; (osicat:make-link symlink-path
; :target (concatenate 'string "../../data/" file-name)
; :hard nil))
(defmacro alias (to fn)
`(setf (fdefinition ',to) #',fn))
(alias ln osicat:make-link)
(alias ls osicat:list-directory)
; TODO: equivalent in Crystal
; cars = DODB::DataBase(Car).new "./storage"
; cars_by_name = cars.new_index "name", &.name
; cars_by_name.get "foo"
; cars_by_name.update "blah", new-car
; cars_by_name.delete "blah"
;
; car = Car.new "Mustang", "red", [] of String
; cars_by_name.update_or_create car.name, car
; (defstruct index name func)
; index "name" (lambda (x) (car-name x))
; index = 1-1
; partition = 1-n
; String Path [String] [String] Int
@ -108,8 +87,7 @@
; example: "Red"
(get-object-attribute database partition-name object))
; example: "000000000000018.data"
file-name
))
file-name))
(defun db/partition/new (database partition-name object file-name)
(let ((symlink-path
@ -120,8 +98,7 @@
; Works even when the database directory is moved.
(ln symlink-path
:target (concatenate 'string "../../../data/" file-name)
:hard nil)
))
:hard nil)))
; Example: 000000000000018.data
(defun db/add/new-data-filename (database)
@ -144,14 +121,24 @@
; handle partitions
(loop for partition in (db-partitions database)
do (db/partition/new database partition object file-name))
)
do (db/partition/new database partition object file-name)))
; store new in-memory data
(setf (gethash (db-current-index database) (db-data database)) object)
)
; store new in-memory data
(setf (gethash (db-current-index database) (db-data database)) object))
; TODO: should we search for the data from the FS or in-memory?
(defun db/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/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)))
;
; TEST SCENARIO
;
; test structure
(defstruct vehicle name color)
(defparameter cars (db/new "vehicle" "./storage/cars/"))
@ -164,24 +151,7 @@
(format t "~&~S~&" cars)
(defun db/get-by-index (database index-name value)
; (format t "db/get-by-index ~A => ~A" index-name value)
; TODO: should we search for the data from the FS or in-memory?
; (ls (db/index/get-directory-path database index-name))
(util:read-object-from-file (concatenate 'string
(db/index/get-directory-path database index-name) "/" value)))
(defun db/get-by-partition (database name value)
; (format t "db/get-by-partition ~A => ~A" name value)
;(ls (db/partition/get-directory-path database name value)))
(loop for car in (ls (db/partition/get-directory-path database name value))
collect (util:read-object-from-file car)))
(format t "db/get-by-index ~S~&" (db/get-by-index cars "name" "Corvet"))
(format t "db/get-by-partition red cars:~&")
(loop for car in (db/get-by-partition cars "color" "Red")
do (format t "- ~S~&" car))
; (setf cars_by_name (db/new-index cars "name"))
; (db/get-by-index cars "name" "foo"))
; (setf cars_by_name (db/new-index cars "name" (optional: (lambda (x) (vehicle-name x)))))