From 3adec5d44a7699be4dc3d8e612dd10bdaf3af1a3 Mon Sep 17 00:00:00 2001
From: Helmut Merz <helmutm@cy55.de>
Date: Fri, 27 Feb 2026 14:03:44 +0100
Subject: [PATCH] setup (scaffolding) of new system scopes-substrate

---
 scopes-substrate.asd     | 25 +++++++++++++++++++++++++
 substrate/substrate.lisp | 12 ++++++++++++
 test/test-substrate.lisp | 25 +++++++++++++++++++++++++
 3 files changed, 62 insertions(+)
 create mode 100644 scopes-substrate.asd
 create mode 100644 substrate/substrate.lisp
 create mode 100644 test/test-substrate.lisp

diff --git a/scopes-substrate.asd b/scopes-substrate.asd
new file mode 100644
index 0000000..92c76d9
--- /dev/null
+++ b/scopes-substrate.asd
@@ -0,0 +1,25 @@
+(in-package #:asdf-user)
+
+(defsystem :scopes-substrate
+  :author "cyberconcepts.org Team <team@cyberconcepts.org>"
+  :license "MIT"
+  :version "0.0.1"
+  :homepage "https://www.cyberconcepts.org"
+  :description "Communication substrate."
+  :depends-on (:alexandria :cl-dotenv :cl-readline :com.inuoe.jzon 
+               :flexi-streams :ironclad :local-time :log4cl 
+               :lparallel :qbase64 :serapeum :str
+               :scopes-core)
+  :components ((:file "config" :depends-on ("util/util"))
+               (:file "substrate/substrate" 
+                      :depends-on ("config"))
+               (:file "util/util"))
+  :long-description "scopes/substrate: Communication substrate, sort of new core."
+  :in-order-to ((test-op (test-op "scopes-substrate/test"))))
+
+(defsystem :scopes-substrate/test
+  :depends-on (:scopes-substrate)
+  :components ( (:file "test/test-substrate"))
+  :perform (test-op (o c) 
+    (symbol-call :scopes/test-substrate :run)))
+
diff --git a/substrate/substrate.lisp b/substrate/substrate.lisp
new file mode 100644
index 0000000..5f27dfb
--- /dev/null
+++ b/substrate/substrate.lisp
@@ -0,0 +1,12 @@
+;;;; cl-scopes/substrate - communication substrate.
+
+(defpackage :scopes/substrate
+  (:use :common-lisp)
+  (:local-nicknames (:async :scopes/util/async)
+                    (:config :scopes/config)
+                    (:util :scopes/util))
+  (:export #:*root*
+           #:add-action #:config)) 
+
+(in-package :scopes/substrate)
+
diff --git a/test/test-substrate.lisp b/test/test-substrate.lisp
new file mode 100644
index 0000000..1a6ef15
--- /dev/null
+++ b/test/test-substrate.lisp
@@ -0,0 +1,25 @@
+;;;; cl-scopes/test-substrate - testing for the scopes-substrate system.
+
+(defpackage :scopes/test-substrate
+  (:use :common-lisp)
+  (:local-nicknames (:substrate :scopes/substrate)
+                    (:message :scopes/core/message)
+                    (:t :scopes/testing))
+  (:export #:run)
+  (:import-from :scopes/testing #:deftest #:== #:!=))
+
+(in-package :scopes/test-substrate)
+
+(defun run ()
+  (let* ((t:*test-suite* (make-instance 't:test-suite :name "substrate")))
+    ;(load (t:test-path "config-substrate" "etc"))
+    ;(substrate:setup)
+    (unwind-protect
+      (progn
+        (test-basic)
+      )
+      (t:show-result))))
+
+(deftest test-basic ()
+  ;(substrate:send msg)
+)