clean-up asd files - remove obsolete duplication of dependencies and files

This commit is contained in:
Helmut Merz 2024-06-22 16:35:22 +02:00
parent ecb056b61e
commit 2da178f23e
4 changed files with 12 additions and 34 deletions

View file

@ -4,8 +4,8 @@
(:use :common-lisp) (:use :common-lisp)
(:local-nicknames (:config :scopes/config) (:local-nicknames (:config :scopes/config)
(:message :scopes/core/message)) (:message :scopes/core/message))
(:export #:default-setup #:setup-services (:export #:*root* #:default-setup #:find-service #:setup-services
#:context #:add-action #:*root* #:find-service #:config #:name #:send #:context #:add-action #:config #:name #:send
#:printer)) #:printer))
(in-package :scopes/core) (in-package :scopes/core)

View file

@ -15,10 +15,7 @@
(:file "core/message") (:file "core/message")
(:file "forge/forge") (:file "forge/forge")
(:file "util") (:file "util")
(:file "testing" :depends-on ("util")) (:file "testing" :depends-on ("util")))
(:file "test/test-config" :depends-on ("testing" "config"))
(:file "test/test-forge" :depends-on ("testing" "forge/forge"))
(:file "test/test-core" :depends-on ("testing" "core/core")))
:long-description "scopes/core: The core packages of the scopes project." :long-description "scopes/core: The core packages of the scopes project."
:in-order-to ((test-op (test-op "scopes-core/test")))) :in-order-to ((test-op (test-op "scopes-core/test"))))

View file

@ -9,16 +9,12 @@
:depends-on (:alexandria :clack :com.inuoe.jzon :dexador :lack :log4cl :str :depends-on (:alexandria :clack :com.inuoe.jzon :dexador :lack :log4cl :str
:scopes-core) :scopes-core)
:components ((:file "web/client") :components ((:file "web/client")
(:file "web/server") (:file "web/server"))
(:file "util")
(:file "testing" :depends-on ("util"))
(:file "test/test-web"
:depends-on ("testing" "web/client" "web/server")))
:long-description "scopes/web: Web server and web/API/REST client." :long-description "scopes/web: Web server and web/API/REST client."
:in-order-to ((test-op (test-op "scopes-web/test")))) :in-order-to ((test-op (test-op "scopes-web/test"))))
(defsystem :scopes-web/test (defsystem :scopes-web/test
:depends-on (:scopes-web) :depends-on (:scopes-web :scopes-core/test)
:components ((:file "test/test-web")) :components ((:file "test/test-web"))
:perform (test-op (o c) :perform (test-op (o c)
(symbol-call :scopes/test-web :run))) (symbol-call :scopes/test-web :run)))

View file

@ -7,36 +7,21 @@
:homepage "https://www.cyberconcepts.org" :homepage "https://www.cyberconcepts.org"
:description "Generic data processing." :description "Generic data processing."
:depends-on (:alexandria :chanl :cl-dotenv :com.inuoe.jzon :dbi :depends-on (:alexandria :chanl :cl-dotenv :com.inuoe.jzon :dbi
:local-time :log4cl :str :sxql) :local-time :log4cl :str :sxql
:components ((:file "config" :depends-on ("util")) :scopes-core :scopes-web)
(:file "core/core" :components ((:file "storage/storage")
:depends-on ("core/message" "config" (:file "storage/tracking" :depends-on ("storage/storage")))
"forge/forge" "util"))
(:file "core/message")
(:file "forge/forge")
(:file "storage/storage")
(:file "storage/tracking" :depends-on ("storage/storage"))
(:file "util")
(:file "testing" :depends-on ("util"))
(:file "test/test-config" :depends-on ("testing" "config"))
(:file "test/test-core" :depends-on ("testing" "core/core"))
(: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." :long-description "scopes: generic data processing facilities."
;;#.(uiop:read-file-string ;;#.(uiop:read-file-string
;; (uiop:subpathname *load-pathname* "README.md"))) ;; (uiop:subpathname *load-pathname* "README.md")))
:in-order-to ((test-op (test-op "scopes/test")))) :in-order-to ((test-op (test-op "scopes/test"))))
(defsystem :scopes/test (defsystem :scopes/test
:depends-on (:scopes) :depends-on (:scopes :scopes-core/test :scopes-web/test)
:components ((:file "test/test-config") :components ((:file "test/test-storage"))
(:file "test/test-core")
(:file "test/test-forge")
(:file "test/test-storage"))
:perform (test-op (o c) :perform (test-op (o c)
(symbol-call :scopes/test-config :run) (symbol-call :scopes/test-config :run)
(symbol-call :scopes/test-core :run) (symbol-call :scopes/test-core :run)
(symbol-call :scopes/test-forge :run) (symbol-call :scopes/test-forge :run)
(symbol-call :scopes/test-web :run)
(symbol-call :scopes/test-storage :run-all))) (symbol-call :scopes/test-storage :run-all)))