changelog shortlog graph tags branches changeset files revisions annotate raw help

Mercurial > demo / demo.asd

changeset 26: 2015d7277629
parent: ba323d8c0f93
child: 529419ac94f3
author: ellis <ellis@rwest.io>
date: Mon, 05 Jun 2023 19:59:26 -0400
permissions: -rw-r--r--
description: refactor 01 
     1 ;;; demo.asd
     2 (in-package #:asdf-user)
     3 
     4 (defsystem "demo"
     5   :version "0.1.0"
     6   :author "ellis <ellis@rwest.io>"
     7   :maintainer "ellis <ellis@rwest.io>"
     8   :description ""
     9   :homepage "https://rwest.io/p/demo"
    10   :bug-tracker "https://gitlab.rwest.io/ellis/demo/issues"
    11   :source-control (:hg "https://gitlab.rwest.io/ellis/demo")
    12   :license "WTFPL"
    13   :depends-on ("demo/sys" "demo/db" "demo/ui" "demo/cli")
    14   :in-order-to ((test-op (test-op "src/test")))
    15   :build-pathname "demo")
    16 
    17 (defsystem "demo/sys"
    18   :depends-on (:sxql :log4cl)
    19   :components ((:file "src/packages")
    20 	       (:module "tk"
    21 		:pathname "src/tk"
    22 		:serial t
    23 		:components ((:file "tk")
    24 			     (:file "rs" :depends-on ("tk"))))))
    25 
    26 (defmethod perform :after ((op load-op) (c (eql (find-system :demo))))
    27   (pushnew :demo *features*))
    28 
    29 (defsystem "demo/cli"
    30   :depends-on (:clingon "demo/sys" "demo/ui" "demo/db")
    31   :components ((:file "src/cli")))
    32 (defsystem "demo/ui"
    33   :depends-on (:clog "demo/sys" "demo/db")
    34   :components ((:file "src/ui")))
    35 (defsystem "demo/db"
    36   :depends-on (:cl-dbi "demo/sys")
    37   :components ((:file "src/db")))			     			     
    38 
    39 (defsystem "demo/tests"
    40   :depends-on ("demo" "fiveam")
    41   :components ((:module "src/tests"
    42 		:serial t
    43 		:components
    44 		((:file "package")
    45 		 (:file "utils")
    46 		 (:module "clients"
    47 		  :serial t
    48 		  :components
    49 		  ((:file "cli")
    50 		   (:file "web"))))))
    51   :perform (test-op (op component)
    52 		    (uiop:symbol-call '#:demo-tests '#:run-tests)))