changelog shortlog graph tags branches changeset files file revisions raw help

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

changeset 99: 40d91ba5a115
parent: 91a382b59e5c
child: db52ddb25d7f
author: ellis <ellis@rwest.io>
date: Thu, 14 Dec 2023 17:53:03 -0500
permissions: -rw-r--r--
description: rdb stuff
18
61482ce290f9 migration complete
ellis <ellis@rwest.io>
parents:
diff changeset
1
 ;;; rdb.lisp --- High-level RocksDB API
61482ce290f9 migration complete
ellis <ellis@rwest.io>
parents:
diff changeset
2
 
61482ce290f9 migration complete
ellis <ellis@rwest.io>
parents:
diff changeset
3
 ;; a thin ORM for working with RocksDB storage. 
61482ce290f9 migration complete
ellis <ellis@rwest.io>
parents:
diff changeset
4
 
61482ce290f9 migration complete
ellis <ellis@rwest.io>
parents:
diff changeset
5
 ;; Low-level bindings are in rocksdb.lisp.
61482ce290f9 migration complete
ellis <ellis@rwest.io>
parents:
diff changeset
6
 
61482ce290f9 migration complete
ellis <ellis@rwest.io>
parents:
diff changeset
7
 ;; Commentary:
61482ce290f9 migration complete
ellis <ellis@rwest.io>
parents:
diff changeset
8
 
61482ce290f9 migration complete
ellis <ellis@rwest.io>
parents:
diff changeset
9
 ;; Code:
93
17b6d1f39506 rdb refactor, skel stuff
ellis <ellis@rwest.io>
parents: 84
diff changeset
10
 (defpackage :rdb
96
301fd45bbe73 big refactor of lisp code
ellis <ellis@rwest.io>
parents: 95
diff changeset
11
   (:use :cl :std :rocksdb :sb-alien)
18
61482ce290f9 migration complete
ellis <ellis@rwest.io>
parents:
diff changeset
12
   (:import-from :sb-ext :string-to-octets :octets-to-string)
61482ce290f9 migration complete
ellis <ellis@rwest.io>
parents:
diff changeset
13
   (:export 
93
17b6d1f39506 rdb refactor, skel stuff
ellis <ellis@rwest.io>
parents: 84
diff changeset
14
    ;; err
98
91a382b59e5c lisp test fixes
ellis <ellis@rwest.io>
parents: 97
diff changeset
15
    :with-errptr
99
40d91ba5a115 rdb stuff
ellis <ellis@rwest.io>
parents: 98
diff changeset
16
    :rdb-error
40d91ba5a115 rdb stuff
ellis <ellis@rwest.io>
parents: 98
diff changeset
17
    :rocksdb-error
40d91ba5a115 rdb stuff
ellis <ellis@rwest.io>
parents: 98
diff changeset
18
    :rdb-user-error
93
17b6d1f39506 rdb refactor, skel stuff
ellis <ellis@rwest.io>
parents: 84
diff changeset
19
    :put-kv-error
17b6d1f39506 rdb refactor, skel stuff
ellis <ellis@rwest.io>
parents: 84
diff changeset
20
    :get-kv-error
99
40d91ba5a115 rdb stuff
ellis <ellis@rwest.io>
parents: 98
diff changeset
21
    :handle-errptr
93
17b6d1f39506 rdb refactor, skel stuff
ellis <ellis@rwest.io>
parents: 84
diff changeset
22
    ;; util
99
40d91ba5a115 rdb stuff
ellis <ellis@rwest.io>
parents: 98
diff changeset
23
    :make-rocksdb-options :default-rocksdb-options
93
17b6d1f39506 rdb refactor, skel stuff
ellis <ellis@rwest.io>
parents: 84
diff changeset
24
    :open-db-raw :with-open-db-raw
17b6d1f39506 rdb refactor, skel stuff
ellis <ellis@rwest.io>
parents: 84
diff changeset
25
    :close-db-raw :destroy-db-raw
17b6d1f39506 rdb refactor, skel stuff
ellis <ellis@rwest.io>
parents: 84
diff changeset
26
    :put-kv-raw :put-kv-str-raw
17b6d1f39506 rdb refactor, skel stuff
ellis <ellis@rwest.io>
parents: 84
diff changeset
27
    :get-kv-raw :get-kv-str-raw
17b6d1f39506 rdb refactor, skel stuff
ellis <ellis@rwest.io>
parents: 84
diff changeset
28
    :put-cf-raw :put-cf-str-raw
17b6d1f39506 rdb refactor, skel stuff
ellis <ellis@rwest.io>
parents: 84
diff changeset
29
    :get-cf-raw :get-cf-str-raw
17b6d1f39506 rdb refactor, skel stuff
ellis <ellis@rwest.io>
parents: 84
diff changeset
30
    :create-iter :with-iter
17b6d1f39506 rdb refactor, skel stuff
ellis <ellis@rwest.io>
parents: 84
diff changeset
31
    :iter-key :iter-key-str
17b6d1f39506 rdb refactor, skel stuff
ellis <ellis@rwest.io>
parents: 84
diff changeset
32
    :iter-val :iter-val-str
17b6d1f39506 rdb refactor, skel stuff
ellis <ellis@rwest.io>
parents: 84
diff changeset
33
    ;; proto
94
01051403700f rdb work
ellis <ellis@rwest.io>
parents: 93
diff changeset
34
    :put-key :put-kv
01051403700f rdb work
ellis <ellis@rwest.io>
parents: 93
diff changeset
35
    :get-key :get-kv
01051403700f rdb work
ellis <ellis@rwest.io>
parents: 93
diff changeset
36
    :put-cf-key :get-cf-key
01051403700f rdb work
ellis <ellis@rwest.io>
parents: 93
diff changeset
37
    :push-sap :push-sap*
01051403700f rdb work
ellis <ellis@rwest.io>
parents: 93
diff changeset
38
    :get-opt :set-opt
01051403700f rdb work
ellis <ellis@rwest.io>
parents: 93
diff changeset
39
    :push-cf :init-db
01051403700f rdb work
ellis <ellis@rwest.io>
parents: 93
diff changeset
40
    :insert-kv :insert-key
95
c42f9baece41 rt/rdb stuff
ellis <ellis@rwest.io>
parents: 94
diff changeset
41
    :make-db :open-db :close-db :destroy-db
93
17b6d1f39506 rdb refactor, skel stuff
ellis <ellis@rwest.io>
parents: 84
diff changeset
42
    ;; obj
94
01051403700f rdb work
ellis <ellis@rwest.io>
parents: 93
diff changeset
43
    :rdb :make-rdb 
93
17b6d1f39506 rdb refactor, skel stuff
ellis <ellis@rwest.io>
parents: 84
diff changeset
44
    :rdb-db :rdb-name :rdb-cfs :rdb-opts
95
c42f9baece41 rt/rdb stuff
ellis <ellis@rwest.io>
parents: 94
diff changeset
45
    :rdb-bytes :rdb-bytes-buffer
97
cc8100641c10 more rdb errptr manging
ellis <ellis@rwest.io>
parents: 96
diff changeset
46
    :make-rdb-key :make-rdb-kv :make-rdb-val :rdb-kv :rdb-key :rdb-val 
93
17b6d1f39506 rdb refactor, skel stuff
ellis <ellis@rwest.io>
parents: 84
diff changeset
47
    :rdb-opts :make-rdb-opts
17b6d1f39506 rdb refactor, skel stuff
ellis <ellis@rwest.io>
parents: 84
diff changeset
48
    :default-rdb-opts
17b6d1f39506 rdb refactor, skel stuff
ellis <ellis@rwest.io>
parents: 84
diff changeset
49
    :rdb-cf :make-rdb-cf :create-cf
17b6d1f39506 rdb refactor, skel stuff
ellis <ellis@rwest.io>
parents: 84
diff changeset
50
    :rdb-cf-sap :rdb-cf-name
17b6d1f39506 rdb refactor, skel stuff
ellis <ellis@rwest.io>
parents: 84
diff changeset
51
    ;; macs
17b6d1f39506 rdb refactor, skel stuff
ellis <ellis@rwest.io>
parents: 84
diff changeset
52
    :with-db
17b6d1f39506 rdb refactor, skel stuff
ellis <ellis@rwest.io>
parents: 84
diff changeset
53
    :with-cf))