database access almost working - sqlite hangs...

.gitignore

@@ -0,0 +1 @@
+test.db

scopes.asd

@@ -6,7 +6,7 @@
   :version "0.0.1"
   :homepage "https://www.cyberconcepts.org"
   :description ""
-  :depends-on (:str :sxql)
+  :depends-on (:dbi :str :sxql)
   :components ((:file "forge/forge")
                (:file "storage/storage")
                (:file "storage/tracking" :depends-on ("storage/storage"))

storage/storage.lisp

@@ -6,6 +6,7 @@
   (:use :common-lisp)
   (:export #:*db-config* #:*db-engine*
            #:make-engine #:make-storage #:db-params
+           #:db
            #:drop-table))
 
 (in-package :scopes/storage)
@@ -14,7 +15,8 @@
 (defparameter *db-engine* nil)
 
 (defclass db-engine ()
-  ((params :initarg :params)
+  ((connect :initarg :connect)
+   (params :initarg :params)
    (config :initarg :config)))
 
 (defun make-engine ()
@@ -22,25 +24,42 @@
 
 (defclass storage ()
   ((engine :initarg :engine)
-   (db)
+   (db :reader db)
    (schema)))
 
 (defun make-storage ()
-  (make-instance 'storage :engine *db-engine*))
+  (let ((st (make-instance 'storage :engine *db-engine*))
+        (db (funcall (slot-value *db-engine* 'connect))))
+    (setf (slot-value st 'db) db)
+    st))
 
 (defun db-params (st)
   (slot-value (slot-value st 'engine) 'params))
 
 (defun drop-table (st tn)
-  st
-  (print (sxql:yield
-    (sxql:drop-table tn :if-exists t))))
+  (let ((sql (sxql:yield (sxql:drop-table tn :if-exists t))))
+    (print sql)
+    (dbi:do-sql (db st) sql)))
 
 ;; db-driver-specific stuff
 
+(defun connect-sqlite (params config)
+  (declare (ignorable params))
+  (print config)
+  (apply #'dbi:connect-cached (cons :sqlite3 config)))
+
+(defun connect-postgres (params config)
+  (declare (ignorable params))
+  (apply #'dbi:connect (cons :postgres config)))
+
+(defvar *db-params*
+  '(:sqlite3 (:connect connect-sqlite 
+              :id-type integer :json-type json)
+    :postgres (:connect connect-postgres
+               :id-type bigserial :json-type jsonb)))
+
 (defun make-engine-db (db-type config)
-  (let ((params 
-          (case db-type 
-            (:sqlite3 '(:id-type integer :json-type json))
-            (:postgres '(:id-type bigserial :json-type jsonb)))))
-    (make-instance 'db-engine :params params :config config)))
+  (let ((params (getf *db-params* db-type)))
+    (make-instance 'db-engine :params params :config config
+                   :connect #'(lambda () 
+                                (funcall (getf params :connect) params config)))))

storage/tracking.lisp

@@ -34,4 +34,5 @@
              hf-def
              `((timestamp :type timestamp)
                (data :type ,json-type)))))))
-    (print sql)))
+    (print sql)
+    (dbi:do-sql (storage:db st) sql)))

test/etc.lisp

@@ -3,13 +3,14 @@
 
 (defparameter db-config-sqlite
   '(:db-type :sqlite3
-	:database-name "test/test.db"))
+	:database-name "test/test.db"
+    :busy-timeout 1))
 
 (defparameter db-config-postgres
   '(:db-type :postgres
-    :database-name "cl-test"
+    :database-name "cltest"
 	:host "localhost"
-	:port "5432"
+	:port 5432
 	:username "testuser"
 	:password "secret"
 	:schema "testing"))