From 4036a03882bc1af9e432f68d73f35ebe182dc443 Mon Sep 17 00:00:00 2001
From: Helmut Merz <helmutm@cy55.de>
Date: Wed, 1 May 2024 19:51:36 +0200
Subject: [PATCH] initial set-up for storage / tracking stuff

---
 scopes.asd             |  6 ++++--
 storage/storage.lisp   | 11 +++++++++++
 storage/tracking.lisp  |  8 +++-----
 test/test-storage.lisp | 17 +++++++++++++++++
 4 files changed, 35 insertions(+), 7 deletions(-)
 create mode 100644 storage/storage.lisp
 create mode 100644 test/test-storage.lisp

diff --git a/scopes.asd b/scopes.asd
index 3b4ca39..6f66842 100644
--- a/scopes.asd
+++ b/scopes.asd
@@ -8,9 +8,11 @@
   :description ""
   :depends-on (:str)
   :components ((:file "forge/forge")
+			   (:file "storage/storage")
+			   (:file "storage/tracking" :depends-on ("storage/storage"))
 			   (:file "testing")
-			   (:file "test/test-forge" :depends-on ("testing" "forge/forge")))
-
+			   (:file "test/test-forge" :depends-on ("testing" "forge/forge"))
+			   (:file "test/test-storage" :depends-on ("testing" "storage/storage" "storage/tracking")))
   :long-description "scopes: generic data processing facilities")
   ;;#.(uiop:read-file-string
   ;;   (uiop:subpathname *load-pathname* "README.md")))
diff --git a/storage/storage.lisp b/storage/storage.lisp
new file mode 100644
index 0000000..cdcc19a
--- /dev/null
+++ b/storage/storage.lisp
@@ -0,0 +1,11 @@
+;;; cl-scopes/storage
+
+;;;; Common layer for SQL storage functionality.
+
+(defpackage :scopes/storage
+  (:use :common-lisp)
+  (:export #:query
+		   #:track))
+
+(in-package :scopes/storage)
+
diff --git a/storage/tracking.lisp b/storage/tracking.lisp
index 6274cab..11d56e3 100644
--- a/storage/tracking.lisp
+++ b/storage/tracking.lisp
@@ -1,10 +1,8 @@
-;;; cl-scopes/forge - may the forge be with you!
+;;; cl-scopes/storage/tracking.lisp
 
-;;;; A Forth-like interpreter implemented in Common Lisp.
+;;;; A simple generic (SQL-based) storage for tracks, messages, and other stuff.
 
-
-(defun hello ()
-  (format t "Hello Common Lisp - changed!"))
+(in-package :scopes/storage)
 
 (defclass track () (
   (taskid :initarg :taskid)
diff --git a/test/test-storage.lisp b/test/test-storage.lisp
new file mode 100644
index 0000000..1a73bef
--- /dev/null
+++ b/test/test-storage.lisp
@@ -0,0 +1,17 @@
+;;; cl-scopes/test/test-storage
+
+;;;; testing facility for scopes/storage
+
+(defpackage :scopes/test-storage
+  (:use :common-lisp)
+  (:local-nicknames (:scs :scopes/storage) 
+					(:sct :scopes/testing))
+  (:export #:run))
+
+(in-package :scopes/test-storage)
+
+(defun run ()
+  (let ((tst (sct:test-suite)))
+    (sct:result tst)))
+
+