From ad7c4fa901f1c685a662e68ed3179ac978afb6c3 Mon Sep 17 00:00:00 2001
From: Helmut Merz <helmutm@cy55.de>
Date: Mon, 17 Jun 2024 13:59:16 +0200
Subject: [PATCH] starting with scopes-web sub-system

---
 scopes-web.asd     | 22 ++++++++++++++++++++++
 test/test-web.lisp | 18 ++++++++++++++++++
 web/server.lisp    | 10 ++++++++++
 3 files changed, 50 insertions(+)
 create mode 100644 scopes-web.asd
 create mode 100644 test/test-web.lisp
 create mode 100644 web/server.lisp

diff --git a/scopes-web.asd b/scopes-web.asd
new file mode 100644
index 0000000..0b7ef0a
--- /dev/null
+++ b/scopes-web.asd
@@ -0,0 +1,22 @@
+(in-package #:asdf-user)
+
+(defsystem :scopes-web
+  :author "cyberconcepts.org Team <team@cyberconcepts.org>"
+  :license "MIT"
+  :version "0.0.1"
+  :homepage "https://www.cyberconcepts.org"
+  :description "Web client and server functionality."
+  :depends-on (:alexandria :com.inuoe.jzon :lack :log4cl :str
+               :scopes-core)
+  :components ((:file "web/server")
+               (:file "util")
+               (:file "testing" :depends-on ("util"))
+               (:file "test/test-web" :depends-on ("testing" "web/server")))
+  :long-description "scopes/web: Web server and web/API/REST client."
+  :in-order-to ((test-op (test-op "scopes-web/test"))))
+
+(defsystem :scopes-web/test
+  :depends-on (:scopes-web)
+  :components ((:file "test/test-web"))
+  :perform (test-op (o c) 
+    (symbol-call :scopes/test-web :run)))
diff --git a/test/test-web.lisp b/test/test-web.lisp
new file mode 100644
index 0000000..26a18fe
--- /dev/null
+++ b/test/test-web.lisp
@@ -0,0 +1,18 @@
+;;;; cl-scopes/test-web - test web (client and server) functionality
+
+(defpackage :scopes/test-web
+  (:use :common-lisp)
+  (:local-nicknames (:config :scopes/config)
+                    (:server :scopes/web/server)
+                    (:t :scopes/testing))
+  (:export #:run)
+  (:import-from :scopes/testing #:deftest #:==))
+
+(in-package :scopes/test-web)
+
+(defvar *config* nil)
+
+(defun run ()
+  (let ((*config* nil)
+        (t:*test-suite* (t:test-suite "config")))))
+ 
diff --git a/web/server.lisp b/web/server.lisp
new file mode 100644
index 0000000..271a867
--- /dev/null
+++ b/web/server.lisp
@@ -0,0 +1,10 @@
+;;;; cl-scopes/web/server - web server functionality
+
+(defpackage :scopes/web/server
+  (:use :common-lisp)
+  (:local-nicknames (:config :scopes/config))
+  (:export #:*server*))
+
+(in-package :scopes/web/server)
+
+(defvar *server* nil)