Partitions: draft. Different paths for indexes and partitions.

This commit is contained in:
Karchnu 2022-10-12 00:57:41 +02:00
parent 774e9bd436
commit b561984dcc

View File

@ -1,7 +1,7 @@
#!/usr/local/bin/clisp
(load "~/.quicklisp/setup.lisp")
(ql:quickload "osicat")
;(load "~/.quicklisp/setup.lisp")
;(ql:quickload "osicat")
(load "./util.cl")
(defpackage :dodb
@ -14,6 +14,16 @@
))
(in-package dodb)
;(defun ln (path &key target hard)
; (format t "SYMLINK: ~A -> ~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)
; TODO: equivalent in Crystal
; cars = DODB::DataBase(Car).new "./storage"
; cars_by_name = cars.new_index "name", &.name
@ -37,28 +47,39 @@
(ensure-directories-exist (concatenate 'string path "/data/"))
(make-db :struct-name struct-name :path path))
; example: db-path/by_name/
; example: db-path/indexes/by_name/
(defun db/new-index (database attribute-name)
; Create a directory for the indexes.
(ensure-directories-exist
(concatenate 'string (db-path database) "/by_" attribute-name "/"))
(concatenate 'string (db-path database) "/indexes/by_" attribute-name "/"))
; Add this new index to the list.
(push attribute-name (db-indexes database)))
; example: db-path/partitions/by_color/
(defun db/new-partition (database attribute-name)
; Create a directory for the partitions.
(ensure-directories-exist
(concatenate 'string (db-path database) "/partitions/by_" attribute-name "/"))
; Add this new index to the list.
(push attribute-name (db-partitions database)))
(defun to-upper-case (some-string)
(format nil "~@:(~a~)" some-string))
(defun get-object-attribute (database attribute-name object)
(funcall ; example: call function "VEHICLE-COLOR"
(find-symbol (to-upper-case
(concatenate 'string (db-struct-name database) "-" attribute-name)))
object))
; Returns "Corvet".
(defun db/index/get-filename (database index-name object)
(funcall ; example: call function "VEHICLE-NAME"
(find-symbol (to-upper-case
(concatenate 'string (db-struct-name database) "-" index-name)))
object))
(get-object-attribute database index-name object))
(defun db/index/get-symlink-path (database index-name object)
(concatenate 'string
(db-path database)
"/by_" index-name "/"
"/indexes/by_" index-name "/"
(db/index/get-filename database index-name object)))
(defun db/index/new (database index-name object file-name)
@ -66,8 +87,32 @@
(db/index/get-symlink-path database index-name object)))
; Works even when the database directory is moved.
(osicat:make-link symlink-path
:target (concatenate 'string "../data/" file-name)
(ln symlink-path
:target (concatenate 'string "../../data/" file-name)
:hard nil)
))
; Returns "Red".
(defun db/partition/get-filename (database partition-name object)
(get-object-attribute database partition-name object))
(defun db/partition/get-symlink-path (database partition-name object file-name)
(concatenate 'string
(db-path database)
"/partitions/by_" partition-name "/"
(db/partition/get-filename database partition-name object) "/"
file-name
))
(defun db/partition/new (database partition-name object file-name)
(let ((symlink-path
(db/partition/get-symlink-path database partition-name object file-name)))
(ensure-directories-exist symlink-path)
; Works even when the database directory is moved.
(ln symlink-path
:target (concatenate 'string "../../../data/" file-name)
:hard nil)
))
@ -86,11 +131,13 @@
object
(db/add/new-data-filepath database file-name))
; TODO: handle indexes
; handle indexes
(loop for index in (db-indexes database)
do (db/index/new database index object file-name))
; TODO: handle partitions
(loop for partition in (db-partitions database)
do (db/partition/new database partition object file-name))
)
)
@ -99,8 +146,10 @@
; TODO
(setf cars (db/new "vehicle" "./storage/cars/"))
; (format t "~&~S~&" cars)
(db/new-index cars "name")
(db/new-partition cars "color")
(db/add cars (make-vehicle :name "Corvet" :color "Red"))
(format t "~&~S~&" cars)