Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Tag: v0.2.1
Fetching contributors…

Cannot retrieve contributors at this time

88 lines (77 sloc) 2.785 kB
;;;; -*- Mode: lisp; indent-tabs-mode: nil -*-
;;;;
;;;; Copyright © 2009 Kat Marchan, Adlai Chandrasekhar
;;;;
;;;; Anothimr System Definition
;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(asdf:defsystem chanl
:name "chanl"
:maintainer "Kat Marchan"
:author "Kat Marchan"
:description "Communicating Sequential Process support for Common Lisp"
:depends-on (:bordeaux-threads)
:components
((:module "src"
:serial t
:components ((:file "package")
(:file "utils")
(:file "threads")
(:file "queues")
(:file "channels")
(:file "select")))))
;;; ... And a few more!
(asdf:defsystem chanl.examples.base
:name "chanl examples"
:maintainer "Adlai Chandrasekhar"
:author "Kat Marchan"
:description "Examples of how to use chanl"
:depends-on (:chanl)
:components ((:module "examples"
:components ((:file "package")
(:file "utils" :depends-on ("package"))))))
(asdf:defsystem chanl.examples.conditions
:name "ChanL cross-thread conditions example"
:depends-on (:chanl.examples.base)
:components
((:module "examples"
:components ((:file "conditions")))))
(asdf:defsystem chanl.examples.sieve
:name "ChanL parallel sieve example"
:depends-on (:chanl.examples.base)
:components
((:module "examples"
:components ((:file "sieve")))))
(asdf:defsystem chanl.examples.ltk
:name "ChanL LTK example"
:depends-on (:ltk :chanl.examples.base)
:components
((:module "examples"
:components ((:file "tk")))))
(asdf:defsystem chanl.examples.futures
:depends-on (:chanl.examples.base)
:components
((:module "examples"
:components ((:file "futures")))))
(asdf:defsystem chanl.examples
:depends-on (:chanl.examples.ltk :chanl.examples.sieve :chanl.examples.conditions
:chanl.examples.futures))
(asdf:defsystem chanl.tests
:name "chanl tests"
:description "Unit Tests for thim ChanL library and its examples"
:depends-on (:chanl :eos)
:serial t
:components
((:module "tests"
:serial t
:components ((:file "setup-tests")
(:file "threads")
(:file "queues")
(:file "channels")
(:file "select")))))
(defmethod asdf:perform ((op asdf:test-op) (system (eql (asdf:find-system :chanl))))
(format t "~2&*******************~@
** Loading tests **~@
*******************~%")
(asdf:oos 'asdf:load-op :chanl.tests)
(asdf:oos 'asdf:test-op :chanl.tests))
Jump to Line
Something went wrong with that request. Please try again.